Массивы. Sub ChangeName1(ByVal Username)

End Sub

End Sub

__________________________________________________

Sub ChangeName1(ByVal Username)

MsgBox "The original name is " & Username & "."

Username = "Kate"

MsgBox "The name is changed to " & Username & " in the called proc."

Объявление массива

локальный массив:

Dim <имя массива> ( размерность ) As <тип элементов массива>

глобальный массив:

Public <имя массива> ( размерность ) As <тип элементов массива>

Примеры:

Dim NumberArray ( 10 ) As Integer

Dim TableArray ( 10, 20 ) As String

Dim BigArray ( 5, 50, 100 ) As Variant

Нумерация элементов массива задается инструкцией Option Base в начале модуля:

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