| Visual Basic 6.0 初級講座 |
|
|
第１９回 配列１ 静的配列
今回は、「配列」（はいれつ）というものをやります。以前にも少し顔を出しましたが、今度は正式に登場で、基本事項を中心に解説します。配列はＶＢに限らずプログラミングの重要な要素の一つです。また、配列をうまくつかいこなせば、そうでない場合に比べて格段に優れたプログラムを作ることができるでしょう。
１．配列の基礎知識
配列とは変数の一種です。たとえば、３つの国の名前を変数に格納するプログラムは次のようになりますね？
| Dim Country1 As String Dim Country2 As String Dim Country3 As String Country1 = "日本" Country2 = "韓国" Country3 = "台湾" |
（知らなかった人のために言っておきますと、変数の名前の一部分として数字も使ってよいのです。ただし変数の名前の先頭を数字にすることはできません。）
このようにして、いくつでも国の名前を変数に入れていくことができます。さて、それでは２番目の国の名前は何でしたっけ？これを知るには次のようにプログラムすればよいわけです。
MsgBox Country2 |
このくらいでしたら変数も便利なものですから役に立ってくれます。しかしＫ番目の国の名前を知りたいときはどうしますか？次のようにしたいところですがだめです。
| 'このプログラムはまちがいです。 MsgBox CountryK |
これがなぜだめかというと、CountryKという変数が宣言されていないからです。人間の感覚とコンピュータの感覚は違うものだということを再認識してください。
では、配列に登場してもらいましょう。配列とは一口に言えば変数を順番に並べたものです。配列を使えば今の問題のようにＫ番目の国の名前を知ることができます。その方法を次に解説しましょう。
２．基本的な配列
配列も変数と同様に宣言する必要があります。変数の場合は宣言をしなくてもＶＢがうまく処理してくれたりもしますが配列の場合はだめです。必ず宣言してください。
以下の例はCountryという名前の配列を宣言しています。
Dim Country(3) As String |
この配列は変数を４つ並べたものです（０番目、１番目、２番目、３番目の４つ）。この配列はAs Stringからわかるように文字列型です。このように配列と変数の明確な区別は後ろにかっこがあるかないかでなされます。今は最初なので少なめに変数を４つ並べた配列をつくりました。これら変数を配列の「要素」といいます。つまりこの配列は４つの要素をもっているといいます。要素の数は相当大きくても大丈夫です。
かっこの中の数字のことを添字（そえじ、てんじ）、インデックスと言ったりします。インデックスは通常０から始まりますが、１からはじめたいときは Dim Country(1 To 3)のようにすればＯＫです。この方法を使えば２からはじめるなど、好きな数からインデックスを開始することができます。
しかし、インデックスはできるだけ 0 からはじめるようにしてください。通常は0空始まるのに、0以外のものから始まるように配列を宣言すると後々混乱を招きます。
この配列に国の名前を格納するプログラムは次のようになります。
| Country(1) = "日本" Country(2) = "韓国" Country(3) = "台湾" |
２番目の国の名前を知りたいときは次のようにします。
MsgBox Country(2) |
Ｋ番目の国の名前を知りたいときは次のようにします。
MsgBox Country(K) |
このかっこの中に変数を入れられるというのが配列の最大の魅力だと思います。この機能のおかげで次のような処理も可能になります。
| For K = 1 To 3 Print Country(K) Next K |
配列の要素が何十個、何百個もあるときにこのような手法は重宝します。とても変数にはまねができませんね。
以上が配列の基本です。ここまで知っているだけで知らないのに比べたら大違いです。いろいろと試してみてください。自分のプログラムの中に積極的に配列を取り入れることをお勧めします。
３．２次元配列
学校を配列で表現して見ましょう。ここはVisual Basic中学校です。１年生は１００人、２年生は１５０人、３年生は１２０人いるとしましょう。これを配列 Grade() を使ってあらわすと次のようになります。
| Dim Grade(3) As Integer Grade(1) = 100 Grade(2) = 150 Grade(3) = 120 |
こうしておけば、あとでＫ年生の人数を知りたくなったときにGrade(K)で取得することができますね。
しかし、現実は込み入っています。１年生は３クラスに分かれていて１組は３５人、２組は４０人、３組は２５人います。同様に２年生は４クラスに分かれて・・・面倒くさいのでVisual Basic中学校の生徒の人数を表にまとめてみます。
| 学年 | １組 | ２組 | ３組 | ４組 |
| １年 | ３５ | ４０ | ２５ | |
| ２年 | ４０ | ３５ | ３０ | ４５ |
| ３年 | ３５ | ４０ | ４５ |
このような分布を配列でどう表現しましょうか。まず、要素が１０個ある配列を考えるという手が浮かびます。たとえば配列Kumi()を宣言して、Kumi(1)= 35, Kumi(2) = 40, Kumi(3) = 25 などとしていきます。そうするとKumi(4)は２年１組を表していて =40 ということになるでしょう。
しかし、これはわかりにくい。たとえば、Kumi(8)は何年何組だと考えるときにいちいちこの表を思い浮かべることになります。
なぜ、この表が配列で表現しにくいかを考えてみると、それはそのまま 表 だからですね。１直線に並んだものであれば Kumi(1), Kumi(2), ・・・ と並べていくのは大変有効ですが、表のように２次元上にならんでいるものは必ずしもそうではありません。
そこで ２次元配列の登場です。表のように２次元で並んでいるものを表現するために２次元配列を使うことができます。それでは、新しい２次元配列 Kumi() を見てみましょう。
| Dim Kumi(3, 4) AS Integer Kumi(1,1) = 35 Kumi(1,2) = 40 Kumi(1,3) = 25 Kumi(2,1) = 40 |
２次元配列はたてと横を表現する必要から、かっこの中にカンマで区切って２つの数字を入れます。最初の数字が横を表すようにしましたが、それはプログラマーの自由です。このようにしてＫ年Ｎ組の人数を取得するには次のようにすればよいでしょう。
MsgBox Kumi(K,M) |
２年生全体の人数を求めるには次のようにします。
For K = 1 To 4
Next K |
学校全体の人数を求めるには次のようにします。
| For X = 1 To
3 'Xは学年を表す。 For Y = 1 To 4 'Ｙは組を表す。 Goukei = Goukei + Kumi(X,Y) Next Y Next X |
この２次元配列は座標を表したりするのに特に便利です。そのためゲームには非常によく使われます。そのほかにも本来表でないものを表形式に捉えてうまく処理したりすることもできます。
なお、３次元配列、４次元配列も可能で、これらをひっくるめて「多次元配列」と呼びます。多次元配列はメモリの消費が思ったより多くなる場合があるので使用する前に要素の数を数えてみてください。たとえば３次元配列 Sample(6,6,6)の要素の数は２１６個もあります。（６×６×６で計算できますね）。
また、Variant型（バリアント型）はもっともメモリの消費が大きいので、この型で配列を使用することは極力避けてください。あまり巨大な配列を宣言するとアプリケーションの動作速度に極度の影響を及ぼします。（要素の数が１０００くらいなら心配はないでしょう。私のパソコンは要素の数が６００００個（６万）の配列を宣言したらちょっとだけ重くなりました。ようするに１００や２００は問題ないということなのでどしどし使いましょう。）
４．配列を利用したプログラム
最後に配列を利用して電車の時間を求めるごく単純なサンプルを作りましょう。（もっと一般的で実用的なサンプルは初級講座第１５回、１６回の英単語練習プログラムです。そちらをもういちど見直すのもよいでしょう。）
出来上がるプログラムは出発駅と目的地の名前を入力してボタンを押すとそこまで行くのにかかる時間を計算してくれるというものです。
具体的な話に入る前に今回はすこし趣向をこらします。いままでのようにプログラムを少しずつ作り上げていく方式を今回はとりません。私はプログラムの部分部分を示していくだけにします。みなさんはそれを自分で組み立ててうまく動作するようにしてみてください。もちろん完成版を見たい人のために一応完成版ものせておくことにはします。
さて、次のような路線があると仮定します。（駅名は総武線からとっていますが、時間は適当なので信用しないでください。）
津田沼 → 東船橋 → 船橋 → 西船橋 → 下総中山 → 本八幡 → 市川
３分 ２分 ３分 ２分 ４分 ４分
さて、駅の名前を配列に格納します。配列の名前は Station() にしましょう。このプログラムは次のようになります。
| Dim Station(7) As String
Station(1) = "津田沼" Station(2) = "東船橋" Station(3) = "船橋" Station(4) = "西船橋" Station(5) = "下総中山" Station(6) = "本八幡" Station(7) = "市川" |
いちいち配列にするのは面倒くさいと思うでしょうね。実際私もこんなことはあまりやりません。配列の要素が少ないときだけです。では、多きときはどのようにして配列に代入したらよいでしょうか？これは少し発展的な内容なのでこの下にサンプルだけ載せておきます。よくわからない人は無視してください。（それでもいままで解説してきた内容の範囲内ではあります。）
| 'この例は不完全です。
Dim Station(7) As String |
次にもうひとつ時間の配列を作りましょう。１つ目の駅「津田沼」から次の駅まで３分ですから、配列 TrainTime(1) = 3 のようにしましょう。このコードは次のようになります。
| Dim TrainTime(7) As Integer
TrainTime(1) = 3 TrainTime(2) = 2 TrainTime(3) = 3 TrainTime(4) = 2 TrainTime(5) = 4 TrainTime(6) = 4 |
これで準備完了です。このあと、３つ目の駅から６つ目の駅までかかる時間を求めるには次のようにすればよいですね。
| For K = 3 To 5
Jikan = Jikan + TrainTime(K) Next K |
では、ユーザーが自由に駅の名前を入力できるようにしましょう。ユーザーには駅の名前を漢字で入力してもらいます。入力された要素が配列にあれば何番目の要素か覚えておくようにしましょう。たとえば、出発する駅を取得するコードは次のようにします。（フォームにText1をはりつけた状態を想定しています。）
| Target = Text1.Text For K = 1 To 7
Next K |
ユーザーがこれ以外の駅の名前を入力したときはなにかメッセージを表示するようにするのもいいでしょう。どうように目的地が何番目の駅かを取得することもできますね。
最後に、計算の部分は次のようになります。
For K = StartStation To EndStation - 1
Next K |
あと書き忘れましたが、配列 Station() と TrainTime() の宣言はフォームの宣言セクションにしてください。これはこの配列をフォームのどこからでも参照できるようにするためです。（プロシージャの中で宣言された配列や変数はそのプロシージャのなかでだけ有効です）。フォームの宣言セクションって何？という人はこちらを見てください。
以上で最低限必要な部品はでそろったはず。皆さんはプログラムを完成させることができましたか？完成版を見たい人はここをクリックしてください。
５．最後に
最後に作ったサンプルを配列なしで作ろうと思ったら大変です。配列は他にもいろいろなシーンで活躍していますからみなさん腕を磨いてください。配列の便利な使い方をあみだした人はぜひ掲示板にてお知らせください。それでは。