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