Арифметические действия над числами. Выбор номера действия. Перевод с Pascal - VB

Узнай цену своей работы

Формулировка задачи:

Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат. Решение в PascalABC

Решение задачи: «Арифметические действия над числами. Выбор номера действия. Перевод с Pascal»

textual
Листинг программы
Sub Action()
Dim n as integer
Dim a as double
Dim b as double
Dim c as double
     a=Val(Inputbox("Введите a"))
     b=Val(Inputbox("Введите b"))
     n=Val(Inputbox("Введите n"))
     Select case(n)
              case 1
                 c=a+b
              case 2
                 c=a-b
              case 3
                 c=a*b
              case 4
                 c=a/b
              case else
                 Msgbox "Код операции неверен!"
                 Exit Sub
     End Select
     Msgbox "C=" & cstr(c)
End Sub

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


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

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

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