По номеру элемента запросить соответствующее значение (радиус или диаметр) и вычислить площадь круга - 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

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


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

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

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