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

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

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

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

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