Выполнить заданную арифметическую операцию, ответ вывести на экран - VB
Формулировка задачи:
Запросить у пользователя значение переменной X (вещественная переменная) знак операции (символьная переменная),значение переменной Y (вещественная переменная). Выполнить заданную операцию ответ вывести на экран.
Решение задачи: «Выполнить заданную арифметическую операцию, ответ вывести на экран»
textual
Листинг программы
Private Sub Command1_Click()
Dim X As Single, char As String, Y As Single
X = Val(InputBox("x"))
Y = Val(InputBox("y"))
char = InputBox("Operation")
Select Case char
Case "+"
MsgBox ("X+Y= " & (X + Y))
Case "-"
MsgBox ("X-Y= " & (X - Y))
Case "*"
MsgBox ("X*Y= " & (X * Y))
Case "/"
MsgBox ("X/Y= " & (X / Y))
Case "^"
MsgBox ("X^Y= " & (X ^ Y))
Case Else
MsgBox "Операция не определена!", vbCritical
End Select
End Sub