Массивы в VB

13 сентября 2018 - Администратор

Массивы в Vb

На этом уроке мы узнаем, как объявлять и заполнять массивы в visual basic net
Массивы используются в математических расчетах, компьютерной графике.
Массив – это набор элементов с общим именем. К элементу можно обратиться по его индексу (значение первого элемента 0, второго 1 и т.д.). Задается массив в Vb следующим образом
Dim имя массива () As тип элемента
Чтобы присвоить значение элементу массива в vb,необходимо указать имя массива и в скобках индекс номер элемента массива
имя массива (номер элемента) = значение. 

Например, a (1) = 100 присвоит элементу массива a с номером 1 значение 100
Существуют различные способы заполнения массивов в vb.net
Заполнение массива случайными числами
Заполнение массива при объявлении
Заполнение массива с клавиатуры с помощью диалогового окна
Заполнение массива из файла

Заполнение массива в Vb случайными числами

Мы задаем массив произвольным образом (случайные целые числа) и выведем массив на экран в элемент Listbox

список на форме

Размещаемв форме Listbox и Button. Чтобы задать случайные числа в Vb, необходимо в начале программы создать объект, отвечающий за случайные числа.
Dim random As New Random()
Чтобы получить случайное значение в диапазоне  от min до max, используется функция
random.Next(min, max)
Чтобы присвоить всем элементам массива  значения и вывести их в элемент ListBox, используется цикл For. В этом цикле  граница цикла совпадает с размерностью массива (числом элементов в массиве). Переменная цикла используется при обращении к элементам массива.
For i = 1 To 10 Step 1
    a(i) = random.Next(1, 1000)
    ListBox1.Items.Add(i & vbTab & a(i))
Next i

Полная версия программы в Vb заполнение массива случайнйми числами:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(100) As Integer 'задаем целочисленный массив
        Dim i As Integer 'переменная для цикла
        Dim random As New Random() 'задаем объект случайных чисел
        'пробегаемся по всему массиву
        For i = 1 To 10 Step 1
            a(i) = random.Next(1, 1000) 'присваиваем элементу массива с номером i случайное число в диапазоне от 1 до 1000
            ListBox1.Items.Add(i & vbTab & a(i)) 'выводим в Listbox номер массива и значение массива
        Next i
    End Sub
End Class

Заполнение массива в vb при объявлении
Массив в Vb можно ввести прямо при ее объявлении. Для этого необходимо при объявлении массива не указывать его размер просто оставить пустые скобки, и в фигурных скобках ввести элементы через запятую
Public Class Form1
    Dim matr() As Integer = {2, 2, 4, 4}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        For i = 0 To 3
            ListBox1.Items.Add(matr(i))
        Next
    End Sub
End Class

Заполнение массива с помощью клавиатуры с помощью элемента InputBox
Значение элементов массива можно задать  с помощью даиалогвого окна Inputbox. Чтобы вызвать диалоговое окно и присвоить знаечние введеное вс его помощью необходимо использовать конструкцию
Перменная=InputBox(“Сообщение”, “название окна”)

matr (i)=InputBox("Введите пожалуйста (" + Str(i + 1) + ”) элемент массива","Заполнение массива")

Str(I+1) преобразует номер i+1 в текстовое выражение

Пример программы на visual basic для ввода массива с клавиатуры
Public Class Form1
    Dim matr(3) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        For i = 0 To 3
            matr(i) = InputBox("Введите (" + Str(i + 1) + ") элемент массива", "Заполнение массива")
            ListBox1.Items.Add(matr(i))
        Next
    End Sub
End Class

Заполнение массива vb из файла

Для работы с файлами в Vb необходимо в начале программы указать  
Imports System
Imports System.IO

Весь файл можно записать в строковый массив, используя команду
Dim имя массива() As String = IO.File.ReadAllLines("путь к файлу", System.Text.Encoding.Default)
Например команда
Dim Massiv() As String = IO.File.ReadAllLines("C: ext.txt", System.Text.Encoding.Default)
Запишет все строки файла C: ext.txt в массив строк Massiv()
Чтобы перевести строковое значение в числовое используется функция Val(строка)
Напишем программу которая считывает из файла массив чисел и записывает его в массив,  выводит в ListBox Чтобы вывести весь массив в ListBox нужно в цикле For использовать размер массива который можно узнать с помощью команды
 имя массива.Length
Полная программа Vb для считывания массива из файла
Imports System
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim a(10) As Integer
        Dim Massiv() As String = IO.File.ReadAllLines("C:UsersuserDesktop ext.txt", System.Text.Encoding.Default)
        For i = 0 To Massiv.Length - 1
            a(i) = Val(Massiv(i))
            ListBox1.Items.Add(a(i))
        Next i
    End Sub
End Class

   Вернуться к содержанию  Перейти к следующему уроку Матрицы в VB

Полезно почитать по теме массивы в Vb:
Двумерные массивы матрицы в visual basic 
Циклы в Vb

Поделиться:

 
Комментарии (0)

Нет комментариев. Ваш будет первым!