5.3動態數組及聲明

　　1. 動態數組的建立與聲明

　　建立動態數組的方法是：利用Dim、Private、Public語句聲明括號內為空的數組，然后在過程中用ReDim語句指明該數組的大小。語法是：

　　ReDim 數組名(下標1[，下標2…]) [As 類型]

　　其中下標可以是常量，也可以是有了確定值的變量，類型可以省略，若不省略，必須與Dim中的聲明語句保持一致。

　　例： Dim D() As Single

　　Sub Form_Load()

　　……

　　ReDim D(4，6)

　　……

　　End Sub

　　2.注意事項

　　(1)在動態數組ReDim語句中的下標可以是常量，也可以是有了確定值的變量。

　　(2)在過程中可以多次使用ReDim來改變數組的大小，也可改變數組的維數。

　　(3)每次使用ReDim語句都會使原來數組中的值丟失，可以在ReDim語句后加Preserve參數來保留數組中的數據，但使用Preserve只能改變最后一維的大小，前面幾維大小不能改變。

　　1. 給數組元素賦初值

　　(1) 利用循環結構

　　例：Dim iA(1 To 10) As Integer

　　For i=1 To 10

　　A(i)=0

　　Next i

　　(2) 利用Array函數

　　例：Dim a As Variant, b As Variant, i%

　　a = Array (1,2,3,4,5)

　　b = Array ("abc","def","67")

　　For i=0 To Ubound (a)

　　Picture1.print a(i);"";

　　Next i

　　For i=0 To Ubound (b)

　　Picture1.print b(i);"";

　　Next i

　　2.數組的輸入

　　(1) 通過InputBox函數輸入適合輸入少量數據。

　　例：Dim sB(3,4) As singer

　　For i=0 To 3

　　For j=0 To 4

　　SB(i,j) =InputBox("輸入" & i & j & "的值")

　　Next j

　　Next i

　　(2) 通過文本框控件輸入

　　對大批量的數據輸入，采用文本框和函數split()\join()進行處理，效率更高。

　　3.數組的賦值

　　在VB6.0中可以直接將一個數組的值賦值給另一個數組：

　　Dim a(3) as integer, b() as integer

　　A(0)=2: A(1)=5: A(2)=-2: A(3)=2

　　b=a

　　在早期的VB中，這需要用循環語句才可以實現：

　　ReDim b(UBound(a))

　　For I=0 to UBound(a)

　　b(I)=a(I)

　　Next i

　　注意：(1)賦值號兩邊的數據類型必須一致;

　　(2)如果賦值號左邊的是一個動態數組，則賦值時系統自動將動態數組ReDim成右邊相同大小的數組;

　　(3)如果賦值號左邊的是一個大小固定的數組，則數組賦值出錯。

　　4.數組的輸出

　　用For……Next循環語句輸出。

　　5.求數組中最大元素和所在下標及各元素之和

　　求數組中最大元素及下標，一般假設第一個元素及下標為最大，然后將該數與數組中的其他元素逐一比較，若有比其大的就替換，同時替換下標。

　　6.交換數組中各元素

　　交換的要求是將數組第一個元素與最后一個交換，第二個與倒數第二個交換，依次類推。