二級VB基礎教程:5.4數(shù)組的基本操作

1. 給數(shù)組元素賦初值
    （1） 利用循環(huán)結構
    例：Dim iA（1 To 10） As Integer
    　For i=1 To 10
    　A(i)=0
    　Next i
    （2） 利用Array函數(shù)
    例：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．數(shù)組的輸入
    (1) 通過InputBox函數(shù)輸入適合輸入少量數(shù)據(jù)。
    例：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) 通過文本框控件輸入
    對大批量的數(shù)據(jù)輸入，采用文本框和函數(shù)split()\join()進行處理，效率更高。
    3．數(shù)組的賦值
    在VB6.0中可以直接將一個數(shù)組的值賦值給另一個數(shù)組：
     Dim a(3) as integer, b() as integer
     A(0)=2: A(1)=5: A(2)=-2: A(3)=2
    b=a
    在早期的VB中，這需要用循環(huán)語句才可以實現(xiàn)：
     ReDim b(UBound(a))
     For I=0 to UBound(a)
    　 b(I)=a(I)
     Next i
    注意：（1）賦值號兩邊的數(shù)據(jù)類型必須一致；
    　 （2）如果賦值號左邊的是一個動態(tài)數(shù)組，則賦值時系統(tǒng)自動將動態(tài)數(shù)組ReDim成右邊相同大小的數(shù)組；
    　 （3）如果賦值號左邊的是一個大小固定的數(shù)組，則數(shù)組賦值出錯。
    4．數(shù)組的輸出
    用For……Next循環(huán)語句輸出。
    5．求數(shù)組中元素和所在下標及各元素之和
    求數(shù)組中元素及下標，一般假設第一個元素及下標為，然后將該數(shù)與數(shù)組中的其他元素逐一比較，若有比其大的就替換，同時替換下標。
    6．交換數(shù)組中各元素
    交換的要求是將數(shù)組第一個元素與最后一個交換，第二個與倒數(shù)第二個交換，依次類推。