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
0 komentar:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger