End Sub

End Sub

Код присваивает значения ячейкам первой строки таблицы. Для задания остальных строк необходимо добавить соответствующие инструкции.

 

Функции для работы с массивами

  1. Функция Array– позволяет создавать массив в ходе выполнения программы, без предварительного описания.

Пример:

Sub CreateArray()

DataCA = Array("Kate", 43, #4/15/1962#)

MsgBox DataCA(0) & ", age " & DataCA(1) & ", born " & DataCA(2)

  1. Функция Erase – используется для удаления данных, хранимых в элементах массива. Если массив фиксированного размера – очищается содержимое массива, а память, выделенная массиву, остается за ним.

Пример:

Option Base 1

_______________________________________________

Sub EraseArray()

Dim EA(2) As Integer

EA(1) = Int(100 * Rnd())

EA(2) = Int(100 * Rnd())

MsgBox "Lottery numbers: " & EA(1) & " ," & EA(2)

Erase EA

MsgBox "Lottery numbers: " & EA(1) & " ," & EA(2)