Вычислить длину окружности, площадь круга и объем шара с заданным радиусом - VB
Формулировка задачи:
С клавиатуры вводится радиус R. Вычислить длину окружности, площадь круга и объем шара с заданным радиусом .
Решение задачи: «Вычислить длину окружности, площадь круга и объем шара с заданным радиусом»
textual
Листинг программы
Private Sub Cmd_Click() Dim r, s, L As Single r = Val(Text1.Text) L = 2 * 3.14 * r s = 3.14 * r ^ 2 Text3.Text = Str(s) Text2.Text = Str(L) 'Shape1.Height = Int(3.14 * r ^ 2) Shape1.Height = Int(Text1.Text) * 2 * 50 Shape1.Width = Int(Text1.Text) * 2 * 50 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д