Class CMain
Shared Sub Main()
Dim a As Integer
Dim str As String
Console.WriteLine( _
"月を入力して下さい。(1〜12月)")
str = Console.ReadLine()
a = CInt(str)
Select Case a 1
Case 12
Console.WriteLine("January")3
Case 2
Console.WriteLine("February")
Case 3
Console.WriteLine("March")
Case 4
Console.WriteLine("April")
Case 5
Console.WriteLine("May")
Case 6
Console.WriteLine("June")
Case 7
Console.WriteLine("July")
Case 8
Console.WriteLine("August")
Case 9
Console.WriteLine("September")
Case 10
Console.WriteLine("October")
Case 11
Console.WriteLine("November")
Case 12
Console.WriteLine("December")
Case Else4
Console.WriteLine("エラー")
End Select
End Sub
End Class
|