Цикл FOR. Для повторных действий определенное количество раз в VB существует цикл, который записывается так: FOR i=1 TO 20 STEP 0.5(заголовок цикла) команды цикла (тело цикла) NEXT(конец цикла) i - переменная цикла, которая будет изменять свое значение по мере выполнения цикла от начального значения (нз=1) до конечного значения (кз=20) с шагом 0.5 (шп=0.5), т.е. значения переменной цикла будут изменяться так: 1, 1.5, 2, – данный цикл будет выполняться 39 раз. Сколько раз выполняется цикл? Количество (к) вычисляется по следующей формуле: к=(кз- нз)/шп+1. Для нашего цикла получается – (20-1)/0.5+1=39. Если шаг изменения переменной цикла равен 1, то он не указывается.

Графическое представление цикла FOR: ? - условие завершения цикла (i>кз), как только текущее значение переменной цикла станет больше кз, так цикл завершается. Некоторые последовательности отрезков. Задание_1: Используя цикл FOR, построить последовательность одинаковых отрезков, которая изображена на рисунке. Начальное значение координаты Х равно 10 (первый отрезок). Далее эта координата увеличивается на 20 (Х=Х+20). Тогда программа построения данной последовательности выглядит так: да нет Тело цикла ? начало конец i=нз i=i+шп

Private Sub Button1_Click() Dim x, i as integer DRAW.BEGIN(FMain) x=10 FOR i=1 TO 10 DRAW.LINE(x, 20, x, 200) x=x+20 NEXT DRAW.END End Sub

Задание_2 Private Sub Button2_Click() Dim x, d, i as integer DRAW.BEGIN(FMain) X=20 D=150 FOR i=1 TO 10 LINE(X,10, X, D+10) X=X+20 D=D-10 NEXT DRAW.END End Sub

Задание_3 Задание_4

Задание_5