Оператор счетного цикла For-Next

Дата добавления: 2015-07-23; просмотров: 806; Нарушение авторских прав

Этот оператор относится к категории счетных циклов: заранее известно число повторений цикла, заданы начальное, конечное значения и шаг (приращение) изменения начального значения. В этом цикле для каждого значения переменной повторяет указанный блок операторов. Если переменная цикла превысила конечное значение, управление передается оператору, следующему за циклом. В теле цикла может присутствовать оператор Exit For. При выполнении этого оператора цикл прекращается, управление передается оператору, следующему за циклом. Цикл For-Next может быть вложенным. Примеры использования счетного цикла:

Текст программы	Комментарий
Sub stickRandom() Dim nrows As Integer; ncols As Integer Dim trow As Integer; tcol As Integer nrows=Selection.Rows.Count	- объявление процедуры - объявление - переменных - определение числа строк в выделенном блоке ячеек
ncols=Selection.Columns.Count	- определение числа столбцов в выделенном блоке ячеек
Debug.Print nrows; ncols	- печать числа строк и столбцов в выделенном блоке ячеек
Randomize	- генератор случайных чисел
Debug.Print Rnd	- печать случайного числа
For trow=1 To nrows	- цикл по числу строк в блоке ячеек (внешний)
For tcol=1 To ncols	- цикл по числу столбцов в блоке ячеек (внутренний)
Selection. Cell(therow;thecol).Value=Rnd	- присваивание текущей ячейке случайного числа: Selection – объект для выбора ячейки, Cell - метод для доступа к ячейке с указанными в скобках координатами Value – свойство, отвечающее за значение ячейки
Next tcol	- конец внутреннего цикла
Next trow	- конец внешнего цикла
End Sub	- конец процедуры

<== предыдущая лекция	\|	следующая лекция ==>
Оператор выборки Select Case.	\|	Цикл Do-Loop