Построить полукруг. Графика - VB

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

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

Построить полукруг , радиус которого задан пользователем.

Решение задачи: «Построить полукруг. Графика»

textual
Листинг программы 
Private Sub Form_Load()
    Dim R As Double
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True
    R = Val(InputBox("Введите радиус", , "50"))
    If R > 0 Then
        Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), R, , -4.71238898038469, -1.5707963267949
    End If
End Sub

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

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

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

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