End Sub. По умолчанию нумерация элементов массива начинается с 0

Option Base 1

Option Base 1

Option Base 0

или

По умолчанию нумерация элементов массива начинается с 0

Использование массива

Пример: использование массива типа Integer

______________________________________________________

Sub UsingArray()

Dim Vals(3) As Integer

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

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

Vals(3) = Int (100 * Rnd())

MsgBox "Lottery numbers: " & Vals(1) & ", " & Vals(2) & "," & Vals(3)

Пример: использование массива типа Variant

Option Base 1

_____________________________________________________________

Sub Using2DVariantArray()

Dim Data2D(10, 3) As Variant

Data2D(1, 1) = "Kate"

Data2D(1, 2) = 43

Data2D(1, 3) = #4/15/1962#

MsgBox Data2D(1, 1) & ", age " & Data2D(1, 2) & ", born " & Data2D(1, 3)

Дата добавления: 2014-01-07