配列に要素を入れる

では、今度は配列に値を入れてみましょう。たとえば、配列の1番に10、2番に20、3番に30・・10番に100を入れてみます。

Dim hairetu(10)

hairetu(1)=10
hairetu(2)=20
hairetu(3)=30
hairetu(4)=40
hairetu(5)=50
hairetu(6)=60
hairetu(7)=70
hairetu(8)=80
hairetu(9)=90
hairetu(10)=100

このように一個ずつ入れていかなくても、このケースではfor文を使えば簡単に値を入れることが出来ます。

Dim hairetu(10)

for i=1 to 10
	hairetu(i)=i*10
next

このfor文は1から10までiが変化します。重要なのはその中の文です。

hairetu(i)=i*10

hairetuのi番目に i*10 を代入する、という式です。これで一個目には10、二個目には20を・・というように順番に入れていくことが出来ます。

問題8-3
配列の1番に100、2番に90、3番に80・・10番に10を入れてみよう。