End Sub

Лабораторная работа №

Массивы, строки, множества в VB

Цель: изучить работу со статическими и динамическими массивами.

Теоретическая часть

Статические массивы

Массивы в алгоритмических языках служат для работы с упорядоченными наборами элементов одного типа. Каждый элемент массива имеет свой номер, называемый индексом. Если массив многомерный, то по каждому измерению указывается свой номер. Количество измерений массива называется его рангом, или размерностью. В VB нумерация по каждому измерению начинается с нуля.

Статический массив – массив, в котором заранее известно, сколько переменных можно в него записать.

Примеры описания массивов.

Dim SA (6) As String ‘семь элементов типа String

Private I (4,1) As Integer ‘десять элементов типа Integer (5*2)

Public Ra(1,1,1) As Double ‘(2*2*2) элементов типа Double

Задание начальных значений элементов массива можно выполнить как с помощью обычных операторов присваивания, так и непосредственно при описании массива.

1) sA(0) = "Пн"

sA(l) = "Вт"

sA(2) = "Ср"

sA(3) = "Чт" …

2) i A ( 0, 0) = 1

i A ( 0 ,1 ) = 2

i A ( l, 0 ) = 3 … или

Dim sA( ) As String ={"Пн","Вт","Ср","Чт", "Пт", "Сб","Вс"}

Private iA(,) As Integer={{1,2}, {3,4}, {5,6}, {7,8}, {9,10}}

После описания массива с его элементами можно работать и с обычными переменными соответствующего типа, в частности, они могут быть частью выражений левой и правой части оператора присваивания и т. п. Значения индекса указываются в скобках через запятую.

При инициализации массива непосредственно в операторе описания начальные значения каждого элемента указываются в фигурных скобках и разделяются запятыми. Обратите внимание, что в случае, когда инициализация массива производится непосредственно в операторе описания, верхние границы индексов не указываются, так как компилятор VB.NET определяет их по реальному количеству элементов, указанных в правой части соответствующего оператора.

Пример 1.

Создадим массив для хранения результатов таблицы умножения на 8. Поскольку на ноль умножать бесперспективно, привязываем первый элемент массива к единице и объявляем переменную x для организации цикла For...Next.

Dim Chislo(10) As Long

Dim x As Long

Положим на форму Textbox1 с установленными свойствами.MultiLine в True, а .ScrollBars в 2-Вертикаль, а также кнопку Button1. В процедуре Form_Load напишем цикл, который будет присваивать каждому элементу массива значение, соответствующее его номеру, умноженному на 8.

Private Sub Form_Load()

Text1.Text = ""

For x = 1 To 10

Chislo(x) = x * 8

Next x

End Sub

Как видите, в цикле мы вместо номера элемента просто используем значение x, и таким образом перебираются все элементы массива. Теперь мы выведем значения элементов массива вTextbox1 в процедуре Button1.