Графика, нарисовать солнце - VB
Формулировка задачи:
Нарисовать солнце. (
Помогите с программой.
Решение задачи: «Графика, нарисовать солнце»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim i As Single Const PI As Single = 3.1415 Me.Width = Me.Height Scale (-10, 10)-(10, -10) AutoRedraw = True DrawWidth = 5 FillStyle = 0 BackColor = vbWhite Cls For i = 0 To PI * 2 Step PI / 4 Line (Sin(i) * 8, Cos(i) * 8)-(Sin(i) * 5, Cos(i) * 5) 'лучи Next i FillColor = vbYellow Circle (0, 0), 4.8 FillColor = vbRed Circle (0, 0), 0.5 'нос Circle (0, -3), 1, , , , 2 'рот FillColor = vbBlue Circle (-1, 3), 0.5 ' глаз Circle (1, 3), 0.5 ' глаз End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д