Определить длины окружности и площадь круга - VB

Узнай цену своей работы

Формулировка задачи:

помогите !!!!! определить длины окружности и площадь круга !!!!

Решение задачи: «Определить длины окружности и площадь круга»

textual
Листинг программы
Option Explicit
Const PI = 3.14159
Dim R As Double
 
Private Sub Form_Click()
R = Val(Text1)
Print "Площадь окружности =   " & Round(R * R * PI, 2)
Print "Длина окружности =       " & Round(2 * PI * R, 2)
End Sub

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

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