Module Module1

Sub Main()
Dim Angka As Integer
Console.WriteLine(“Masukkan angka 1 s/d 9 :”)
Angka = Console.ReadLine()
Select Case Angka
Case Is < 1
Console.WriteLine(“Terlalu Kecil”)
Case 1 To 5
Console.WriteLine(“Berada antara 1 dan 5”)
Case 6, 7, 8, 9
Console.WriteLine(“Berada antara 6 dan 9”)
Case Else
Console.WriteLine(“Terlalu Besar”)
End Select
End Sub

End Module