實驗六? 數組的使用

一、實驗目的
??? (1)掌握數組的聲明和數組元素的引用。
??? (2)掌握固定數組和動態數組的使用方法。
??? (3)學會利用數組解決一些較為復雜的問題。
二、相關知識
]．數組概念
??? 數組是一組相同類型的變量的集合，在程序中可以用一個數組名代表邏輯上相關的一組數據。在Visual Basic中有兩種類型的數組：固定大小的數組以及在運行時大小可變的動態數組，有時也稱這兩種數組為定長數組和可變長數組。數組必須先聲明后使用。
2. 固定數組
固定大小數組的聲明形式為：
??? Dim數組名(下標 [，下標2]……)[As類型]
其中下標必須是常數，格式為：[下界to]上界，省略下界時，默認值為0；省略[As]系統認為是變體數組。
3．動態數組
??? 動態數組的聲明形式為：
??? Dim數組名()[As類型]
??? 此時定義的數組的大小是不確定的。在使用時，隨時用 ReDim數組名(下標[，下標2]．．．)??? 語句指定數組的大小。
??? 在定義動態數組時首先在過程外使用Dim、Private、Public語句聲明下標為空的數組，然后在過程中用ReDim語句指明該數組的大小。
4．數組元素
數組聲明時用數組名表示該數組的整體，但在具體操作時是針對每個數組元素進行的，因此，數組的引用單位是數組元素。
三、實驗舉例
(實例1) 打印并輸出5*5方陣中的下三角和上三角元素。
??? Private Sub Form_click()
??? Dim i，? j，? sc(4，? 4)
??? For? i? =? 0? TO? 4
For j=0 TO i
????????? sc(i，? j)? =? i? *? 1? +? j
??????????????? Print sc(i，j)；? “? ”;
Next j
???????????? Print
Next? i
Print
Print
For i =? 0 TO 4
Print? Tab(5? *I+1);
For j=i TO 4
?????????? sc(i，? j)? =I*1+j
?????????? Print? sc(i，j); “? “;
Next j
Print
???? Next i
End? sub
觀察輸出結果。
(實例2) 編一個程序，打印符合楊輝三角形的數據列。
分析：解決此題所用方法的要點是：定義一個二維數組A，在該數組中，每—行的第一個元素和最后一個元素都為1，其余各元素等于它上面一行的同一列和前—列數據之和。
Private? Sub? Form_CliCk()
Dim? a(9，? 9)? AS? integer
For? i? =? 0? To? 9
??? a(i，? i)? =? 1
??? a(i，? 0)? =? 1
Next? i
For? I =2 to 9
??? M=I-1
For? j? =? 1? To?? m
A(I,j) =? a(m，j-1) +a(m,j)
Next? j
Next? i
For? i? =? 0? TO? 9
For? j? =? 0? to? i
??? Print a(I,j);
Next? j
Print
?Next? i
end? Sub