Dim Mass () as String

Redim Mass (5) as String ‘ объявляем массив из 6 элементов

Redim Preserve Mass (5) as String ‘ сохраняем определенные ранее элементы

Пример 2.

Вывести таблицу умножения от 1 до 9.

Разместим на форме текстовое поле TextBox1 (многострочное с вертикальной полосой прокрутки) и кнопку Button1. Запишем программный код для кнопки.

Dim tabl(9, 10) As Integer

Dim i, j As Integer

Private Sub button1_click()

i = 1

Do

For j = 1 To 10

tabl(i, j) = (i * j)

TextBox1.Text = TextBox1.Text & i & " * " & j & " = " & tabl(i, j) & vbCrLf

Next

i = i + 1

Loop Until i = 10 ‘ или Loop While i <> 10

End Sub

В результате получим

Основная прелесть массивов в том, что с данными, записанными в них, можно что угодно делать: сортировать, разбивать на группы, осуществлять поиск, делать выборки и т.п.