16

Line (5, 100 + I) - (500, 100 + I), RGB(0, 0, 0)

Next I 'конец (нижняя граница цикла)

End Sub

Пример 6. Нарисовать концентрические окружности с радиусами 20, 30, … , 100 и центром в точке X=100, Y=200 (использовать оператор цикла For …. Next ):

Private Sub Окружности_Click()

For I=0 To 100 Step 10

Circle (100,200), 20 + I , RGB(255,0,0), , ,1

Next I

End Sub

Пример 7. Остановить выполнение программы

Private Sub Стоп_Click()

End Sub

Принципы выполнения лабораторных работ:

1.Запускаем лабораторную работу. На экран дисплея загружается форма, на которой будут разворачиваться события работы.

2.Как правило, на форме уже имеются командные кнопки (объекты CommandButton). Часть кнопок работает. Это означает, что нажав на них, мы запустим фрагменты, соответствующие теме работы и демонстрирующие её основные идеи. Эти фрагменты позволяют “войти в тему” текущей лабораторной работы.

3.Другая часть кнопок не работает. Это означает, что нажав на них, мы не увидим никакого отклика программы. В этом случае, если мы перейдем в окно кода (двойной щелчок по неработающей кнопке - и “проваливаемся” в окно кода как раз внутрь процедуры, которая соответствует этой кнопке), то увидим пустую заготовку процедуры, которую следует заполнить самостоятельно.

Последовательность выполнения лабораторной работы

1.Запустить Visual Basic 6.0. На экране появится окно “New Project”, которое по умолчанию предлагает открыть файл типа “Standard Exe”.

2.Если программу пишем “с нуля”, подтвердить открытие нового файла типа “Standard Exe” щелчком по кнопке “Open” (“Открыть”) . На экране появится пустая форма.

3. Если программу дописываем, то в окне “ New Project ” выбрать “Cancel” (“Отмена”) и далее в меню основного окна выбираем File , Open Project - появится окно поиска и выбора файла . Открываем требуемый файл (с расширением .vbp )