Imports System
Public Module Module1
Public Sub Main()
ASCIICase()
End Sub
Private Sub ASCIICase()
Dim nIn as integer
' a select case statement is a clearer way of writing many if....elseif.....if statements
nIn = Console.ReadLine()
Select Case nIn
Case 65, 97
Print("A")
Case 66,98
Print("B")
Case 67,99
Print("C")
Case 68,100
Print("D")
Case 69,101
Print("E")
Case 70,102
Print("F")
Case 71,103
Print("G")
Case 72,104
Print("H")
Case 73,105
Print("I")
Case 74,106
Print("J")
Case 75,107
Print("K")
Case 76,108
Print("L")
Case 77,109
Print("M")
Case 78,110
Print("N")
Case 67
Print("O")
Case 68
Print("P")
Case 65
Print("Q")
Case 66
Print("R")
Print("S")
Print("T")
Print("U")
Print("V")
Print("W")
Print("X")
Print("Y")
Print("Z")
End Select
Private Sub Print(sText as string)
Console.WriteLine(sText)
End sub
End Module
