Macro/投稿/169

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13

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