пользователей: 21251
предметов: 10459
вопросов: 177801
Конспект-online
зарегистрируйся или войди через vk.com чтобы оставить конспект.
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

II семестр:
» Информатика

For...Next, программирование, циклы

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


04.10.2015; 23:56
хиты: 21
рейтинг:0
Точные науки
информатика
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2016. All Rights Reserved. помощь