Imports System

Public Module Module1

    Public Sub Main()

        Dim intNum as integer

        console.writeline("input number between 1-5")

        intNum = console.readline()

        Select case intNum

        case = 1 

            intNum = intNum * 3

        case = 2

            intNum = intNum ^2 

        case = 3 

            intNum = intNUm ^3

        Case else intNum = intNum * 2 

        End select 

        Console.writeline(intNum)   

    End Sub

End Module