Dim a,b,c As Integer
Dim op As String
Console.Writeline("Calculater")
Console.Write ("Enter first number")
a=Console.Readline
Console.write ("Enter second numbers")
b=Console.Readline
Console.Write ("Enter Operator")
op=Console.Readline
If op = "t" Then
c = a+b
ElseIf op = "-" Then
c = a-b
ElseIf op = "*" Then
c = a*b
ElseIf op = "/" Then
c = a/b
ElseIf
Console.WriteLine ("Invalid op")
End If
Console.Write ("Answer="&c)
End Sub