Module Module1

Sub Main()
Dim hari As Byte
Console.Write(“Masukkan no bulan :”)
hari = Console.ReadLine()
Select Case hari
Case 1
Console.WriteLine(“Januari”)
Case 2
Console.WriteLine(“Februari”)
Case 3
Console.WriteLine(“Maret”)
Case 4
Console.WriteLine(“April”)
Case 5
Console.WriteLine(“Mei”)
Case 6
Console.WriteLine(“Juni”)
Case 7
Console.WriteLine(“Juli”)
Case 8
Console.WriteLine(“Agustus”)
Case 9
Console.WriteLine(“September”)
Case 10
Console.WriteLine(“Oktober”)
Case 11
Console.WriteLine(“November”)
Case 12
Console.WriteLine(“Desember”)
Case Else
Console.WriteLine(“no bulan tidak sah”)
End Select

End Sub