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

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

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

                    Листинг программы
                
 
                        
                          
                    
Program deystvie;
var n:integer; 
      c,a,b:real; 
BEGIN 
writeln('Введите 3 числа'); 
readln(n,a,b); 
if (n>0) and (n<5) and (b<>0) then begin 
if n=1 then c:=a+b; 
if n=2 then c:=a-b; 
if n=3 then c:=a*b; 
if n=4 then c:=a/b; 
end;
else writeln('Не правильное значение'); 
writeln(c); 
END.

Решение задачи: «Арифметические действия над числами. Выбор номера действия. Перевод с 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