Imports System

Public Module Module1

    Public Sub Main()

        Dim Number1, Number2 AS Integer

        Dim Result AS Decimal

        Dim Mathsop AS Char

        Console.WriteLine("Enter Number1")

        Number1 = Console.ReadLine()

        Console.WriteLine("Enter Number2")

        Number2 = Console.ReadLine()

        Console.WriteLine("Enter Mathsop")

        Mathsop = Console.ReadLine()

        Select Case Mathsop 

          Case Is = "A"

            Result = Number1 + Number2

          Case Is = "S"

            Result = Number1 - Number2

          Case Is = "M"

            Result = Number1 * Number2

          Case Is = "D"

            Result = Number1/Number2

          Case Is = "P"

            result = Number1 ^ Number2

        End Select  

        Console.WriteLine("Result = " & Result) 

    End Sub

End Module

​

'INTEGER: Number1, Number2

'REAL: Result

'CHAR: Mathsop

​

'OUTPUT "Enter Number1"

'INPUT Number1

'OUTPUT "Enter Number2"

'INPUT Number2

'OUTPUT "Enter Mathsop"

'INPUT Mathsop

​

'CASE OF Mathsop

'"A": Result<-- Number1 + Number2

'"S": Result<-- Number1 - Number2

'"M": Result<-- Number1 * Number2

'"D": Result<-- Number1/Number2

'"P": Result<-- Number1 ^ Number2

'ENDCASE

​

'OUTPUT "Result = ", Result

​

​

​

​

​

​