Разработать приложение, которое рисует на форме несколько окружностей разного радиуса - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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