VBS(6)　　配列変数

メニューに戻りたいときはここをクリック。

Lesson 1 （配列変数の例）

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0601.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0601.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  dim a(20)
  a(1)=1 
  for i=1 to 19
  	a(i+1)=a(i)+i
  next
  msgbox a(20)
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs0601.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs0601.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs0601.vbs をダブルクリックして実行してみること。

解説

• dim 変数名(最大のindex)
  という形式で配列を指定する。
  
• 配列とは同じ名前で index を変えながら使う変数。
  例えば dim a(20) とすると、 a(1), a(2), a(3),...,a(20) の２０個のデータ保管場所が出来る。
  
• 上のプログラムは、以下のプログラムと同じ処理をしている。a(1)からa(2),a(3),a(4)を順番に計算していっている。

  a(1)=1
  a(2)=a(1)+1
  a(3)=a(2)+2
  a(4)=a(3)+3
  a(5)=a(4)+4
  a(6)=a(5)+5
  a(7)=a(6)+6
  a(8)=a(7)+7
  a(9)=a(8)+8
  a(10)=a(9)+9
  a(11)=a(10)+10
  a(12)=a(11)+11
  a(13)=a(12)+12
  a(14)=a(13)+13
  a(15)=a(14)+14
  a(16)=a(15)+15
  a(17)=a(16)+16
  a(18)=a(17)+17
  a(19)=a(18)+18
  a(20)=a(19)+19
  msgbox a(20)
  

Lesson 2 （最大値、最小値を求める例）

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs0602.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs0602.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  dim a(10)
  a(1)=10:a(2)=15:a(3)=2:a(4)=10:a(5)=8:a(6)=7:a(7)=25:a(8)=11:a(9)=3:a(10)=4
  
  max=a(1)
  for i=2 to 10
      if a(i) > max then max=a(i)
  next
  msgbox "最大値は" & max,,"結果" 
  
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs0602.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs0602.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs0602.vbs をダブルクリックして実行してみること。

解説

• これは a(1),a(2),...,a(10) の中の最大値を求めるプログラムである。
• １行目によって配列変数 a(1),...,a(10)が定義され、２行目によって a(1),a(2),...,a(10)の値が指定されている。２行目には複数の文が書かれているが、１行に複数の文を書きたいときはこのようにコロン(:)で区切る。
• ３行目により、とりあえず 最大値=a(1) としておく。
• ２番目から10番目までをそれまでの最大と比べて、 それまでの最大より大きければ、それを最大値にする。

問題

dim x(30)
x(1)=-9: x(2)=29: x(3)=7: x(4)=28: x(5)=2: x(6)=1: x(7)=2: x(8)=-12: x(9)=13: x(10)=0
x(11)=0: x(12)=-19: x(13)=-3: x(14)=-10: x(15)=5: x(16)=8: x(17)=27: x(18)=15: x(19)=8: x(20)=1
x(21)=-7: x(22)=-12: x(23)=-8: x(24)=17: x(25)=25: x(26)=14: x(27)=16: x(28)=19: x(29)=19: x(30)=-1

憶えていますか？ 憶えましたか？

• if 文の使い方がわかりますか？
• 配列変数とは何か説明できますか？