Выполнить заданную арифметическую операцию, ответ вывести на экран - 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

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


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

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

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