|
1
2 3 |
For счетчик = начало_счетчика To конец_счетчика
‘Какое-то действие Next счетчик |
То что мы делаем здесь, по существу, это создаем цикл, который использует переменную счетчик как хранитель времени. Устанавливаем его значение равным начало_счетчика, и увеличиваем (или уменьшаем) на 1 во время каждого витка. Цикл будет выполняться до тех пор, пока значение счетчик не станет равным конец_счетчика. Когда оба эти значения совпадут, цикл выполнится последний раз и остановится.
(пример массива 3x3 рандомных чисел)
Sub arr()
Dim m1(3, 3) As LongLong
For i = 1 To 3
For j = 1 To 3
m1(i, j) = Int(Rnd * 100)
If m1(i, j) Mod 2 = 0 Then
m1(i, j) = m1(i, j) * 1000
Else
If m1(i, j) Mod 3 = 0 Then
m1(i, j) = m1(i, j) * 10000
End If
End If
Next j
Next i
MsgBox m1(1, 1) & " " & m1(1, 2) & " " & m1(1, 3) & " " & m1(2, 1) & " " & m1(2, 2) & " " & m1(2, 3) & " " & m1(3, 1) & " " & m1(3, 2) & " " & m1(3, 3)
End Sub
