- 311 名前：デフォルトの名無しさん [2008/12/26(金) 23:50:48 ]
-
Sub e1d()
Dim tuki(12) As String
Dim a As Integer
tuki(1) = "睦月": tuki(2) = "如月": tuki(3) = "弥生": tuki(4) = "卯月"
tuki(5) = "皐月": tuki(6) = "水無月": tuki(7) = "文月": tuki(8) = "葉月"
tuki(9) = "長月": tuki(10) = "神無月": tuki(11) = "霜月": tuki(12) = "師走"
a = InputBox("1から12までの数を入れよ")
MsgBox a & "月は" & tuki(a)
End Sub
上のプログラムを変化させて月の逆引きを作りたいのですが
どう変化させたらいいのかまったくわかりません
教えてください
