Введение в программирование на VBA - eDrive

50
If остаток > 0 Then доля (0) = доля (0) + 1
If остаток > 1 Then доля (1) = доля (1) + 1
MsgBox введено & "=" & доля (0) & "+" & доля (1) & "+" & доля (2)
End Sub
Dim память As Integer
Sub Счетчик ()
Dim массив (10) As Integer, Индекс As Integer
память = 0
For индекс = 0 To 10 Step 2
массив (индекс) = индекс
MsgBox Вывод (массив (), индекс)
Next
End Sub
Function Вывод (аргумент1 () As Integer, аргумент2 As Integer) As Integer
память = память + аргумент1 (аргумент2)
Вывод = память
End Function
Если размер массива заранее неизвестен, его можно объявлять без
размера, а размер задавать оператором ReDim по мере заполнения массива. В
этом случае мы имеем дело с динамическим массивом, который, в отличие от
статического, изменяет свой размер по ходу выполнения программы.
Всякий раз при переопределении оператором ReDim содержимое
массива уничтожается. Если по условию задачи этого не требуется, после
ReDim следует ввести оператор Preserve. Тогда массив будет «запоминать»
свое содержимое.
Примеры
Sub Покупки ()
Dim список () As String, i As Integer, количество As Integer
количество = InputBox ("Сколько ")
ReDim список (1 To количество)
For i = 1 To количество
список (i) = InputBox (Str(i) & " - Это что ")
Next
End Sub
Sub ДинамическийМассив ()
Dim тест () As Integer, индекс As Integer, массив As String
For индекс = 10 To 20
ReDim тест (индекс) As Integer
тест (индекс) = индекс
Next
For индекс = 10 To 20
массив = массив & тест (индекс)
тест (индекс) = индекс