Построить полукруг. Графика - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д