Массивы в VB
Массивы в 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(числовое значение) в vb преобразует числовое значение в текстовое выражение для последующего вывода в диалоговом меню
Пример программы на 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(строка)
Напишем программу на vb, которая считывает из файла массив чисел и записывает его в массив, выводит полученный массив в элемент 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
Поделиться:
Нет комментариев. Ваш будет первым!