Разработать программу которая рисует несколько одинаковых окружностей на форме - VB

Узнай цену своей работы

Формулировка задачи:

Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета
Листинг программы
  1. Private Sub Command1_Click()
  2. X = 0: y = 0: r = 1
  3. For X = 1 To 30 Step X + 4
  4. Scale (-5, -35)-(35, 35)
  5. Circle (X, y), r, vbBlue
  6. Next
  7. For X = 1 To 10 Step X + 4
  8. Scale (-5, -15)-(35, 35)
  9. Circle (X, y), r, vbRed
  10. Next
  11. For X = 1 To 10 Step X + 4
  12. Scale (-5, -75)-(35, 35)
  13. Circle (X, y), r, vbGreen
  14. Next
  15. End Sub

Решение задачи: «Разработать программу которая рисует несколько одинаковых окружностей на форме»

textual
Листинг программы
  1. X = 0: y = 0: r = 1
  2. For X = 1 To 30 Step X + 4
  3. Scale (-5, -35)-(35, 35)
  4. Circle (X, y), r, vbBlue
  5. Next
  6. X = 0: y = 0: r = 1
  7. For X = 1 To 30 Step X + 4
  8. Scale (-5, -15)-(35, 35)
  9. Circle (X, y), r, vbRed
  10. Next
  11. X = 0: y = 0: r = 1
  12. For X = 1 To 30 Step X + 4
  13. Scale (-5, -75)-(35, 35)
  14. Circle (X, y), r, vbGreen
  15. Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.556 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы