- 664 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/04/29(日) 15:57:50 ID:Bcai5wiB0]
- >>662
下記を、拡張子 .vbs で保存
main
sub main()
dim iStart, iEnd, iStep, sWork
iStart = CLng(InputBox("開始の数を入力して下さい。","連番出力","1"))
iEnd = CLng(InputBox("終了の数を入力して下さい。","連番出力","1"))
iStep = CLng(InputBox("ステップ数を入力して下さい。","連番出力","1"))
if iStep=0 then exit sub
if Abs((iEnd-iStart)/iStep)>10000 then exit sub
sWork = ""
for i = iStart to iEnd step iStep
sWork = sWork & CStr(i) & VbCrLf
next
InsText(sWork)
end sub
