配列a(9)を用意して、
a(0)からa(9)まで順に１から１０まで代入して、
それを表示するプログラム
解答例 Private Sub CommandButton1_Click()
Dim a(9) As Integer, i As Integer
For i = 0 To 9
a(i) = i + 1
Next
For i = 0 To 9
Cells(6, 1 + i) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
では、次の演習問題です。
配列a(100)を用意して、
次のように表示させるプログラムを考えてください。
改行は、
繰り返しを数える数（制御変数）iを１０で割った商syと
iを１０で割ったときの余りamを用意して、
If文によって実行します。
商はi/10だと、
VBAの場合は自動的に少数型に変換されてしまうので、
強制的な型変身（キャスト）が必要です。
iを10で割ったときの余りは、
VBAでは
i mod 10
で計算します。
かなりの難問ですから、ある程度考えてわからなければ、
３０行下の解答例を参照してください。
でも、悔しいと思う方はできるまで試行錯誤をして実現してください。
解答例 Private Sub CommandButton1_Click()
Dim a(99) As Integer, i As Integer, am As Integer, sy As Integer
For i = 0 To 99
a(i) = i + 1
Next
For i = 0 To 99
sy = Int(i / 10)
am = i Mod 10
Cells(6 + sy, 1 + am) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
解説
改行難しかったでしょう。
コンピュータの動きを追ってみましょう（トレースです）。
i=0のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(0 / 10) = 0 と am = 0 Mod 10 = 0
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(6 , 1) = a(0)です。
i=1のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(1 / 10) = 0 と am = 1 Mod 10 = 1
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(6 , 2) = a(1)です。
i=2のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(2 / 10) = 0 と am = 2 Mod 10 = 2
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(6 , 3) = a(2)です。
・
・ ・
i=9のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(9 / 10) = 0 と am = 9 Mod 10 = 9
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(6 , 10) = a(9)です。
i=10のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(10 / 10) = 1 と am = 10 Mod 10 = 0
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(7 , 1) = a(10)です。
i=11のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(11 / 10) = 1 と am = 11 Mod 10 = 1
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(7 , 2) = a(11)です。
・
・ ・
i=19のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(19 / 10) = 1 と am = 19 Mod 10 = 9
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(7 , 10) = a(19)です。
i=20のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(20 / 10) = 2 と am = 20 Mod 10 = 0
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(8 , 1) = a(20)です。
i=21のとき、sy = Int(i / 10)とam = i Mod 10
はsy = Int(21 / 10) = 2 と am = 11 Mod 10 = 1
ですから、Cells(6 + sy, 1 + am) = a(i)はCells(8 , 2) = a(21)です。 ・
・
・
以下同様です。省略されているところをぜひご自分で確認しましょう。
Dim a(99) As Integer;
のように添え字が１つしかない配列を１次元配列といいます。
ということは添え字が複数の多次元配列があることを意味します。
例えば、２次元配列は
Dim a(9,9) As Integer;
と宣言します。
これで用意される箱は、
