Вывести значения элементов данной окружности - VB
Формулировка задачи:
Помогите написать программу!
(с помощью оператора Case)
Элементы окружности пронумерованы следующим образом:1-радиус R, 2-диаметр D=2*R, 3-длина , 4-площадь круга (R-в квадрате). Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения использовать 3,14.
заранее большое спасибо!!
Решение задачи: «Вывести значения элементов данной окружности»
textual
Листинг программы
Private Sub Command1_Click() ' Элементы окружности пронумерованы следующим образом: ' 1-радиус R, 2-диаметр D=2*R, 3-длина , 4-площадь круга ' Дан номер одного из этих элементов и его значение. ' Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения использовать 3,14. Dim Number As Integer, Value As Double Dim S As Double, D As Double, R As Double, L As Double Const Pi = 3.14 Number = InputBox("Введите номер элемента", , 4) Value = InputBox("Введите значение элемента", , 10) Select Case Number Case 1: R = Value: D = R * 2: L = 2 * Pi * R: S = Pi * (R ^ 2) Case 2: D = Value: R = D / 2: L = Pi * D: S = Pi * ((D / 2) ^ 2) Case 3: L = Value: R = L / 2 * Pi: D = L / Pi: S = Pi * (((L / Pi) / 2) ^ 2) Case 4: S = Value: R = Sqr(S / Pi): D = (Sqr(S / Pi)) * 2: L = ((Sqr(S / Pi)) * 2) * Pi End Select MsgBox "R = " & R & vbCrLf & _ "D = " & D & vbCrLf & _ "L = " & L & vbCrLf & _ "S = " & S End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д