По номеру элемента запросить соответствующее значение (радиус или диаметр) и вычислить площадь круга - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д