Module Module1

Sub Main()
Dim hari As Byte
Console.Write(“Masukkan no hari :”)
hari = Console.ReadLine()
Select Case hari
Case 1
Console.WriteLine(“senin”)
Case 2
Console.WriteLine(“selasa”)
Case 3
Console.WriteLine(“rabu”)
Case 4
Console.WriteLine(“kamis”)
Case 5
Console.WriteLine(“jumat”)
Case 6
Console.WriteLine(“sabtu”)
Case 7
Console.WriteLine(“minggu”)
Case Else
Console.WriteLine(“no hari tidak sah”)
End Select
End Sub

End Module