07/04/29 15:57:50 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