Вычислить длину окружности, площадь круга и объем шара с заданным радиусом - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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