VB DemoSelect1

 Module DemoSelect1

    'Buka DemoSelect1.vbproj

    Sub Main()

        Dim noHari As Integer

        noHari = InputBox("Ketik nomor hari:")

        Select Case (noHari)

            Case 1

                Debug.Print("Hari ke-" & noHari & " = Senin")

            Case 2

                Debug.Print("Hari ke-" & noHari & " = Selasa")

            Case 3

                Debug.Print("Hari ke-" & noHari & " = Rabu")

            Case 4

                Debug.Print("Hari ke-" & noHari & " = Kamis")

            Case 5

                Debug.Print("Hari ke-" & noHari & " = Jumat")

            Case 6

                Debug.Print("Hari ke-" & noHari & " = Sabtu")

            Case 7

                Debug.Print("Hari ke-" & noHari & " = Minggu")

            Case Else

                Debug.Print("Tidak ada hari ke-" & noHari)

        End Select

    End Sub

End Module