質問: 繰り返し処理について do while 文で20を入力すると1+2+3+・・・19+20で210という答えが出るプログラムを書くにはどう書けばよいのでしょうか? また、基本的なことを教えてくれるサイトなどあれば教えていただけますか?
回答: sub test01() dim i, n, s as integer n = inputbox("1からいくらまで加える?") i = 1 s = 0 do while i < n + 1 s = s + i i = i + 1 loop msgbox s end sub この場合はfor nextの方が1,2行少なくて済むが、while使用の指定があればやむをえない。