MENENTIKAN HARI DENGAN NOMOR

Sub Main()

        Dim hari As Byte
        Console.Write("masukkan nomor 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

        Console.ReadKey()



    End Sub