Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
Print("Hello object")
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 79,111
Print("O")
Case 80,112
Print("P")
Case 81,113
Print("Q")
Case 82,114
Print("R")
Case 83,115
Print("S")
Case 84,116
Print("T")
Case 85,117
Print("U")
Case 86,118
Print("V")
Case 87,119
Print("W")
Case 88,120
Print("X")
Case 89,121
Print("Y")
Case 90,122
Print("Z")
Case Else
Print("Some other character")
End Select
Private Sub Print(sText as string)
Console.WriteLine(sText)
End sub
End Module