Задание 2. Вывести на экран концентрические окружности.
Постановка задачи.
Разработать приложение, позволяющее по щелчку на кнопке показать на экране расходящиеся окружности (основу мишени). Примерный внешний вид формы приложения показан на Рис.8.4, результат работы программы – на Рис.8.5.
Ход работы.
1. Создайте в папке Лабораторная_работа_№8 папку 8.2.
2. Запустите программу Microsoft Visual Basic 6.0.
3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
4. Расположите на форме командную кнопку CommandButton1 и компонент PictureBox.
5. Присвойте свойству Caption кнопки значение «Нарисовать окружности».
6. Присвойте свойству Caption формы значение «Окружности», а свойству Name значение «FrmОкружности».
7. Напишите обработчик события по кнопке «Нарисовать окружности», не забывая объявить переменные в начале программы:
DimrAs Integer
Private Sub Command1_Click()
Picture1.Scale (0, 100)-(100, 0)
Forr = 5 To 50 Step 10
Picture1.Circle (50, 50), r
Next
Дата добавления: 2015-06-12; просмотров: 832;