Составить програмный код - VB

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

Даны два действительных положительных числа. Арифметические операции над числами пронумерованы: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление. Составить программу, которая по введенному номеру выполняет то или иное действие над числами.

Решение задачи: «Составить програмный код»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Change()
'b<>0 !!!
a = 4: b = 8
o = Val(Text1.Text)
If o > 0 And o < 5 Then MsgBox Choose(o, _
a & "+" & b & "=" & a + b, _
a & "-" & b & "=" & a - b, _
a & "x" & b & "=" & a * b, _
a & ":" & b & "=" & a / b)
End Sub
                        