Разработать программу которая рисует несколько одинаковых окружностей на форме - VB
Формулировка задачи:
Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета
Листинг программы
- Private Sub Command1_Click()
- X = 0: y = 0: r = 1
- For X = 1 To 30 Step X + 4
- Scale (-5, -35)-(35, 35)
- Circle (X, y), r, vbBlue
- Next
- For X = 1 To 10 Step X + 4
- Scale (-5, -15)-(35, 35)
- Circle (X, y), r, vbRed
- Next
- For X = 1 To 10 Step X + 4
- Scale (-5, -75)-(35, 35)
- Circle (X, y), r, vbGreen
- Next
- End Sub
Решение задачи: «Разработать программу которая рисует несколько одинаковых окружностей на форме»
textual
Листинг программы
- X = 0: y = 0: r = 1
- For X = 1 To 30 Step X + 4
- Scale (-5, -35)-(35, 35)
- Circle (X, y), r, vbBlue
- Next
- X = 0: y = 0: r = 1
- For X = 1 To 30 Step X + 4
- Scale (-5, -15)-(35, 35)
- Circle (X, y), r, vbRed
- Next
- X = 0: y = 0: r = 1
- For X = 1 To 30 Step X + 4
- Scale (-5, -75)-(35, 35)
- Circle (X, y), r, vbGreen
- Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д