Ход работы. 1. Создайте в папке Лабораторная_работа_№10 папку 10.3.

1. Создайте в папке Лабораторная_работа_№10 папку 10.3.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

1. Задайте свойству Name формы значение frmСмайл.

5. Установите для формы значение свойства ScaleMode равное 3 – Pixels.

6. Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint

7. Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):

Private Sub Form_Paint()

'рисуем радостный смайлик

FillStyle = vbFSSolid 'стиль закраски - сплошная заливка

FillColor = QBColor(14) 'цвет заливки – желтый

Circle (200, 200), 100, QBColor(14) 'рисуем оболочку смайла

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (170, 160), 10, QBColor(0) 'рисуем левый глазик

Circle (230, 160), 10, QBColor(0) 'рисуем правый глазик

Circle (200, 200), 5, QBColor(0) 'рисуем носик

FillStyle = vbFSSolid

FillColor = QBColor(15)

Circle (170, 160), 2, QBColor(15) 'рисуем левый зрачок

Circle (230, 160), 2, QBColor(15) 'рисуем правый зрачок

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (200, 200), 60, QBColor(0), 3.88, 5.55 'рисуем улыбку

Form1.Caption = "Смайлики" 'задаем название формы

'рисуем грустный смайлик

FillStyle = vbFSSolid

FillColor = QBColor(14)

Circle (500, 200), 100, QBColor(14)

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (470, 160), 10, QBColor(0)

Circle (530, 160), 10, QBColor(0)

Circle (500, 200), 5, QBColor(0)

FillStyle = vbFSSolid

FillColor = QBColor(15)

Circle (470, 160), 2, QBColor(15)

Circle (530, 160), 2, QBColor(15)

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (500, 300), 60, QBColor(0), 0.83, 2.3 'рисуем грустную улыбку