Рисование светофорных кругов - VB
Формулировка задачи:
Помогите с задачей)
Разработать приложение, рисующее светофорные круги. Самые большие круги красные, средние – желтые, маленькие – зеленые . Число кругов вводится после запуска программы.Решение задачи: «Рисование светофорных кругов»
textual
Листинг программы
Option Explicit Dim n As Integer Private Sub Form_Load() n = Val(InputBox("Введите кол-во кругов ", "", "3")) Form1.ScaleMode = 3 End Sub Private Sub Form_Paint() Dim x As Integer Dim y As Integer Dim i As Integer x = 20: y = 20 For i = 1 To n With Form1 .FillColor = vbRed Circle (x, y), 20, vbRed .FillColor = vbYellow Circle (x, y), 12, vbYellow .FillColor = vbGreen Circle (x, y), 6, vbGreen End With x = x + 40 Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д