第８回 表計算：プログラムでは配列って言ってFor…Nextとタッグを組むと最強
（学習目標：配列を理解し、For…Nextと組み合われて使う方法をマスターする。ここはプログラミングの中核になる部分です。最後の山ですので、がんばりましょう。ここを乗り越えると大体のプログラムは書けるようになります）
８−１ 表（配列）
下の表（図８．１）は、Ａ中学校の学生数です。表計算とは、横の行の総和を求めたり、縦の列の総和を求めたりする計算で、コンピュータが使われる代表的な仕事です。
プログラムでは表を配列と呼び、繰り返し命令（For…Next）と組み合わせることで強力な計算手段になります。
配列は変数の一種と考えられますが、データを沢山書くことが出来る点が変数との違いです。配列にも好きな名前を付けてプログラムの中で使います。配列は変数と、２つ違うところがあります。
（変数との違い１）プログラムの最初に、配列の名前と大きさを（これを使いますよ、と）宣言します。
（変数との違い２）プログラム中では配列名に加え、配列中のどのデータを使うのかを指定します。例えば、Ａ校の１年２組のデータを使うには、（上の配列をAという名にすると）A(1,2)とします。
＊ 配列の各マスを配列の“要素”といいます。
上の表で１年生の人数を計算するプログラムは次のようになります。
Dim A(3,4) ßＡという配列は横に３行、縦に４列、あることを宣言する
A(1,4)= A(1,1)+A(1,2)+A(1,3) ß1年生を１組から３組まで足して計の所に書き込む
（配列宣言のDimはプログラムの最初に書きましょう）
８−２ １次元配列
図８．１の表は横に３行ありましたが、１年制の専門学校Bなどは１行で済んでしまいます。
この場合、Dim B(1,5)としてもよいのですが、簡単にDim B(5)で済ませられます。
この様に横１行しかない配列を一次元配列と呼びます。
この場合、４組の人数はB(4)と指定します。
（例題）マーリンにＢ校の各クラス人数を読み上げさせましょう
（配列の要素にデータを書き込むには、次のプログラムの様に：で区切って並べて書くことができます）
‘===プログラム８．１
Dim B(5)
B(1)=20:B(2)=30:B(3)=50:B(4)=40
Merlin.Speak B(1)
Merlin.Speak B(2)
Merlin.Speak B(3)
Merlin.Speak B(4)
でもよいのですが、クラス数が多くなると書くのが容易でありません。そこで繰り返しを使います。
Dim B(5)
B(1)=20:B(2)=30:B(3)=50:B(4)=40
For i=1 To 4
Merlin.Speak B(i)
Next
だいぶすっきりしましたよね。
（例題）Ｂ校の人数の合計をB(5)に求めましょう。
Dim B(5)
B(5)= B(1)+B(2)+B(3)+B(4)
でもよいのですが、練習ですので繰り返しを使いましょう。
‘===プログラム８．２
Dim B(5)
B(1)=20:B(2)=30:B(3)=50:B(4)=40
B(5)=0
For i=1 To 4
B(5)= B(5)+ B(i)
Next
MsgBox B(5)
となります。For文でB(5)=B(5)+B(1), B(5)=B(5)+B(2),…とB(5)にデータが足し込んでいきます。これは、プログラムでいつも使う手ですよね。
（問題８．１）マーリンの横方向に移動させようと思います。配列Dim Ｃ(4)には移動先が順に書かれています。For文でマーリンを移動させましょう。縦方向の位置は200で変わらないものとします。C(1)=100,C(2)=400,C(3)=200,C(4)=100。a81.vbs
（問題８．２）Ｂ校で人数の一番多いクラスは何人でしょう。a82.vbs
（問題８．３：中３レベル）Ｂ校で人数の一番多いクラスは何組でしょう。a83.vbs
８−３ ２次元配列
Ａ校の人数表のように、縦横のある表を２次元配列といいます。
（例題）マーリンにＡ中学の各クラスの人数を読み上げさせましょう
‘===プログラム８．３
Dim A(3,4)
A(1,1)=38:A(1,2)=41:A(1,3)=28
A(2,1)=40:A(2,2)=35:A(2,3)=33
A(3,1)=25:A(3,2)=30:A(3,3)=43
For i=1 To 3
For j=1 To 3
Merlin.Speak i&"年"&j&"組"& A(i,j)
Next
Next
MsgBox "終わり"
（例題）Ｄには横、縦の場所が入っています。この通り移動させよう
‘===プログラム８．４
Dim D(3,4)
D(1,1)=200:D(1,2)=300:D(1,3)=400
D(2,1)=200:D(2,2)=200:D(2,3)=300
For i=1 To 3
Merlin.MoveTo D(1,i),D(2,i)
Next
MsgBox "終わり"
（例題）Ａ中学の各学年の合計を求めましょう
Dim A(3,4)
A(1,4)=0:A(2,4)=0:A(3,4)=0
A(1,1)=38:A(1,2)=41:A(1,3)=28
A(2,1)=40:A(2,2)=35:A(2,3)=33
A(3,1)=25:A(3,2)=30:A(3,3)=43
For j=1 To 3
A(1,4)= A(1,4)+ A(1,j)
A(2,4)= A(2,4)+ A(2,j)
A(3,4)= A(3,4)+ A(3,j)
Next
でもよいのですが、勘のよい人は次のように２重ループにできることに気づくと思います。
‘===プログラム８．５
Dim A(3,4)
A(1,4)=0:A(2,4)=0:A(3,4)=0
A(1,1)=38:A(1,2)=41:A(1,3)=28
A(2,1)=40:A(2,2)=35:A(2,3)=33
A(3,1)=25:A(3,2)=30:A(3,3)=43
For i=1 To 3
For j=1 To 3
A(i,4)= A(i,4)+ A(i,j)
Next
Next
MsgBox A(1,4)&”,”&A(2,4)&”,”&A(3,4)
Dim hiroba( 5, 5)
For i=1 To 5
For j=1 To 5
hiroba(i,j)= 0
Next
Next
８−４ 配列操作の（体育会系）筋トレ
配列はアニメーションであまり活躍できませんが、普通のプログラムでは配列と繰り返しの組み合わせは最も重要な技術です。配列と繰り返しの組み合わせは、沢山の形があるように思いますが整理してみると以下のパターンに分類されます。ここで、本格的プログラム入門の特訓をします、頭の体操にもなります。
計算結果はメッセージボックスに表示しましょう。配列は小さなものを用いていますが、必ずFor…Nextを使って処理しましょう。
タイプ１：全要素に同じ数を書く
（問題８．４）配列Ｓの配列の要素に全部０を書く。
（問題８．５）配列Ｓの上の行に全て０を書く。
（問題８．６）配列Ｔのように数を書こう。
（問題８．７）配列Ｕのように数を書こう。
タイプ２：総和を求める（要素の足し込み）
（問題８．８）配列Ｓの総和を求める。
（問題８．９）配列Ｓの下の行の総和を求める。
（問題８．１０）配列Ｓの偶数の総和を求める。
（問題８．１１）配列Ｓの偶数の数（偶数がいくつあるか）を求める。
タイプ２：最大最小（最大値や最小値を求める）
（問題８．１２）配列Ｓの最大値を求める。
（問題８．１３）配列Ｓの最大値の入っている要素番号を求める。
タイプ３：検索（ある数の入っている要素番号を求める）
（問題８．１４）配列Ｓで９の入っている要素番号を求める。
（問題８．１５）配列Ｓで上下の数を比較し、上の方が下より大きい列の数を求める。
タイプ４：入れ替え（要素や配列の入れ替え）
（ヒント：要素の入れ替えには、一時的にデータを保管する変数を使う）
図８．７ 配列Ｖ
（問題８．１６）配列Ｖで、要素１と要素３を入れ替える。
（問題８．１７）配列Ｓで、上の行と下の行を入れ替える。
（問題８．１８）配列Ｓで、上、下の数を比較し、大きい方が下になるようにする。
（問題８．１９：中３レベル）配列Ｖに左から１，２，３，４と書いておき、乱数で２箇所を選んで入れ替える処理を５回繰り返す（最後にＶの中に１〜４がデタラメに入る）。
タイプ５：シフト
（問題８．２０）配列Ｖの中身を１マス分左にシフト（右端は、そのまま）
（問題８．２１：中３レベル）配列Ｖの中身を１マス分右にシフト（左端は、何でもよい）
右シフトは少し工夫が必要です。色々な方法がありますので、トライしてみて下さい。
（問題８．２２）配列Ｓの中身を１マス分左にシフト（右端は、そのまま）
タイプ６：配列同士の計算
（問題８．２３）配列Ｓと配列Ｔの対応する各要素を加えて、結果を配列Ｔに書く。
この位ができれば大体どんなプログラムも書けます。これらの問題全体を２０分位でできるようにしておきましょう。