По номеру элемента запросить соответствующее значение (радиус или диаметр) и вычислить площадь круга - VB
Формулировка задачи:
Пусть Элементом круга являются радиус (первый элемент).Диаметр (второй элемент) и данна окружности (третий элемент ). Составить программу .которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга! Visual BAsic
Решение задачи: «По номеру элемента запросить соответствующее значение (радиус или диаметр) и вычислить площадь круга»
textual
Листинг программы
Private Sub Form_Load()
R = InputBox("введите радиус окружности")
i = InputBox("введите элемент")
Label1 = "Площадь окружности равна " & 3.14 * R ^ 2
If i = 1 Then
Label2 = "Радиус окружности равен " & R
ElseIf i = 2 Then
Label2 = "диаметр окружности равен " & R * 2
ElseIf i = 3 Then
Label2 = "длина окружности равна " & 6.28 * R
End If
End Sub