Разработать приложение, которое рисует на форме несколько окружностей разного радиуса - VB
Формулировка задачи:
IF Then Else Visual Basic
Разработать приложение, которое рисует на форме несколько окружностей разного радиуса, цент окружностей совпадает
Решение задачи: «Разработать приложение, которое рисует на форме несколько окружностей разного радиуса»
textual
Листинг программы
- Private Sub DrawCircle(Num As Long)
- Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), Rnd * 2000
- If Num Then DrawCircle (Num - 1)
- End Sub
- Private Sub Form_Load()
- Randomize
- Me.Width = 4000
- Me.Height = 4000
- Me.AutoRedraw = True
- DrawCircle 10
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
