Рисование светофорных кругов - 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

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы