第６回　繰り返し（For…Next命令）：プログラミングとは”繰り返し”に持ち込む作業

（学習目標）繰り返し命令For…Next命令を使えるようにする。

６−１　For…To…Next命令

マーリンは今、九九の８の段の後半を練習中です。８＊７が覚えにくいのでこれだけ１０回繰り返すことにしています。

Merlin.Speak "8" &" " &"5" &" " &"40"

Merlin.Speak "8" &" " &"6" &" " &"48"

Merlin.Speak "8" &" "&"7" &" " &"56"

：（上の命令を９回繰り返す）

Merlin.Speak "8" &" "&"8" &" " &"64"

Merlin.Speak "8" &" "&"8" &" " &"72"

８×７を10回繰り返すのを全部書いていたのではプログラムが長くなるので、簡単に書くためのFor…Nextという繰り返し方法を用意しています。

Marlin.Speak “8 &　&7　&56”　を１０行繰り返すのを、図６．１のように書き代えることができます。図６．２はFor命令の概念図です。

繰り返し命令（For…Next）では、Forで始まる最初の行に繰り返す回数を書きます。図６．１の、ctr=1 To 10　は“１０回繰り返す”ことを示しています。ctrは繰り返し数をかぞえるための変数（黒板）です（変数名はctrでなくて何でもかまいません）。ctr=1は、最初変数ctrに最初1を書き込みます。そして、“繰り返しの中身”（例では、Marlin.Speak “8 &　&7　&56”）　を１回実行するごとにctrに１が加えられます。これを、ctrが10になるまで１０回（即ち、ctrが1,2,3,4,5,6,7,8,9,10で１０回）繰り返すことになる。

上の例では、Marlin.Speak “8 &　&7　&56”　１行を繰り返す話ですが、何行でもかまいません。例えば８×７と８×８の２つを１０回繰り返すには、

For ctr=1 To 10

Merlin.Speak "8" &" "&"7" &" " &"56"

Merlin.Speak "8" &" "&"8" &" " &"64"

Next

となります。8_7-56,8_8-64,8_7-56,8_8-64という風に１０回繰り返します。

６−２　計算は、繰り返し足し込んでいく

コンピュータの計算の基本は、“足し込み”の“繰り返し”です。小遣帳で月の支出の合計をだすには、上から順に１つづつ加えては途中結果を保存し、途中結果に次の数値を加える、という処理を繰り返しますね。コンピュータも同じです、ただ途中結果は変数に書き込まれていきます。

１から100まで順に加算するプログラムは次のようになります。

‘===プログラム６．１

gokei=0

For kazu=1 To 100

gokei= gokei+ kazu

Next

MsgBox gokei

===

goukeiが途中結果を書いておく変数です。Goukeiを見てみると、最初０でしたが

という風に加算されていきます。

６−３　習うより慣れよ

繰り返しのパターンは、あまりありません。簡単な例題を並べますので、自分でやってみて下さい。

（例題１）For…Nextを使ってMerlinを５回、100ずつ右に移動させよう。

‘===プログラム６．２

x=100

For kaisu=1 To 5

Merlin.MoveTo x,100

x= x + 100

Next

（解２）繰り返し数を数える変数kaisuを使う方法もあります。

‘===プログラム６．３

For kaisu=1 To 5

x= 100 * kaisu

Merlin.MoveTo x,100

Next

（例題２）Merlinに0から１０まで読み上げさせよう。

‘===プログラム６．４

For kazu=1 To 10

Merlin.Speak kazu

Next

（例題３）Merlinに0から変数owariで指定する数まで読み上げさせよう。

（繰り返し回数を変数で指定することもできます）

‘===プログラム６．５

owari= 7

For kazu=1 To owari

Merlin.Speak kazu

Next

（例題４）２を１０回乗算し、結果メッセージボックスに書こう。

プログラム６．６

gokei=1

For kazu=1 To 10

gokei= gokei* 2

Next

MsgBox gokei

（例題５）InputBoxから10回数値を入力し読み上げよう

‘===プログラム６．７

For kazu=1 To 10

data= InputBox ("数を入れてください")+0

Merlin.Speak data

Next

（問題６．１）50から100まで順に加算しよう。a61.vbs

（問題６．２）1から、奇数だけを10個加算しよう。a62.vbs

（問題６．３）1からInputBoxで入れた数まで加算しよう。a63.vbs

（問題６．４）九九の６の段をFor命令で読み上げさせよう。a64.vbs

（問題６．５）乱数（２〜４）で求めた数だけ、お辞儀をさせよう。a65.vbs

（問題６．６）InputBoxで入力した数を５回掛け（５乗を求め）よう。（あまり大きな数を入力しないように注意）a66.vbs