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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы