第９講　配列
第1話　1次元配列
久しぶりに「初心者のためのＶｉｓｕａｌ Ｂａｓｉｃ講義」を再開します。
長らくお待たせしましたことをお詫び申し上げます。
しばしば更新予定ですので、乞うご期待下さい。

さて、皆さん変数がたくさんある場合どうしますか。
一つ一つ型を宣言していちいち名前を割り振らなければならないのでしょうか。
当サイトの魔方陣プログラムの中には、
変数が１０００個ぐらい出てくるプログラムもあります。
プログラムによっては10万個ぐらいの変数を必要とするものも考えられます。
例えば、作った魔方陣を保存しておくとなると、
１０次魔方陣なら魔方陣１個につき１０×１０＝１００個の変数を必要としてしまいます。
ですから１０００個の１０次魔方陣を保存しようとすると、
１０万個の変数が必要となってしまうわけです。

１０万個も変数を用意するのは、
名前を考えるだけでも大変です。

でもそれを解決するための方法があります。
それが、これから学んでいく配列という方法です。
配列は、ａ０、ａ１、ａ２、ａ３、・・・
というような添え字つき変数であると思えばいいわけです。

配列の宣言例は、
Dim ａ（1000） As Integer
です。これでａ（0）からａ（1000）までの1001個の変数が宣言され、
使えるようになるのです。
０から始まるので、
1000個ではなく１００１個なのです。

それでは配列を使ったプログラム例を考えてみましょう。
配列プログラム例１
をダブルクリックしてください。
このプログラムはエクセルのシートにあるセル
B６からB１６にある数値を順に
ａ（0）、ａ（1）ａ（2）、・・・、ａ（10）
と代入していって、
それらの和を求め、
結果をB１７に表示させるプログラムです。
消去はすべてのデータと計算結果を削除するプログラムです。
ﾃﾞｰﾀ作成は、データを再作成させるプログラムです。
ﾃﾞｰﾀ作成のプログラムについて解説しておきましょう。

Private Sub CommandButton3_Click()

　　　Dim i As Integer

　　　For i = 0 To 10
　　　　　　　Cells(6 + i, 2) = Round(100 * Rnd, 0)
　　　Next

End Sub

100 * RndのRndは０以上1未満の乱数を発生させるもので、
1回ごとに異なる値が返されます。
例えば、0.25876・・・のような小数が発生します。
ですから100 * Rndは100倍の25.876・・・のような整数となります。
Round(100 * Rnd, 0)
では100 * Rndの小数部分を四捨五入して2桁の整数２６にします。
100 * Rndの数値を小数０位になるように四捨五入しているからです。

では、皆さん配列プログラム例１を改良して
B６からB２７までを加えて、
その結果をB２８に出すようにしましょう。

解答例