プログラム板雑談スレッド Part 3

プログラム板雑談スレッド Part 3 at TECH

313:デフォルトの名無しさん
08/12/27 03:24:11
>>311
Dim n As String
Dim m As Integer
n = InputBox("月名を入れよ")
m = (InStr("睦月　如月　弥生　卯月　皐月　水無月文月　葉月　長月　神無月霜月　師走", n) + 2) / 3
MsgBox n & "は" & m & "月"

次ページ

続きを表示

1を表示