【文章內(nèi)容簡介】 Single Dim i As Integer a = 12 r = For i=0 to 1000 a = a * (1 + r) If a = 20 Then Exit For 39。當人口數(shù)大于等于 20億時跳出循環(huán) Next i Print i。 年后中國人口達到 20億 End Sub 數(shù)組 在 Visual Basic ，把一組具有同一名字、不同下標的下標變量稱為數(shù)組，其一般形式如下： S(i) 其中 S稱為數(shù)組名， i是下標。一個數(shù)組可以含有若干個下標變量，下標用來指出某個數(shù)組元素在數(shù)組中的位置， S(8)代表 S數(shù)組中的第八個元素。 數(shù)組的聲明 聲明固定大小的數(shù)組有 3種方法，用哪一種方法取決于數(shù)組應(yīng)有的有效范圍。 ? 建立全局數(shù)組，在模塊的聲明段用 Public語句聲明數(shù)組。 ? 建立模塊或窗體數(shù)組，在模塊的聲明段用Private語句聲明數(shù)組。 ? 建立局部數(shù)組，在過程中用 Private語句聲明數(shù)組。 聲明數(shù)組時，在數(shù)組名之后跟一個用括弧括起來的，其上界、下界不得超過 Long數(shù)據(jù)類型的范圍（ 2 147 483 648~2 147 483 647）。 例如，下列數(shù)組聲明可出現(xiàn)在模塊的聲明段： Dim A(4) As Integer 39。同時定義了 A(0)， A(1)， A(2)， A(3)， A(4)5個元素。 Dim S (20) As Double 39。定義了 S(0)到 S(20)21個元素。 為建立公用數(shù)組，直接用 Public取代 Dim： Public A(4) As Integer Public S (20) As Double 第一個聲明建立了一個有 5個元素的數(shù)組，其索引號為0～ 4；第二個聲明建立了一個有 21個元素的數(shù)組，其索引號范圍是 0～ 20。 為了規(guī)定下界，可以使用關(guān)鍵字“ To”顯式提供下界（為 Long數(shù)據(jù)類型）： Dim A (1 To 5) As Integer Dim S (100 To 120) As String 在前述聲明中，“ A”的索引值范圍為 1~5，而“ S”的索引值范圍為 100~120。 有時候，可能需要知道數(shù)組的上界值和下界值，這可以通過 Lbound和 Ubound函數(shù)來測試，其格式如下： Lbound(數(shù)組名 ) 39。返回數(shù)組索引值的上界值 Ubound(數(shù)組名 ) 39。返回數(shù)組索引值的下界值 動態(tài)數(shù)組 數(shù)組長度到底應(yīng)該為多大才算合適，有些情況下很難確定，這就需要數(shù)組能夠在運行時具有改變大小的能力。通過使用動態(tài)數(shù)組，可以在程序中任意改變數(shù)組的長度。在 Visual Basic ，動態(tài)數(shù)組是最靈活、最方便的，有助于有效管理內(nèi)存。 （ 1）如果希望數(shù)組為公用數(shù)組，則用Public語句聲明數(shù)組；如果希望數(shù)組為模塊級，則在模塊級用 Dim語句聲明數(shù)組；如果希望數(shù)組為局部數(shù)組，則在過程中用Static或 Dim語句聲明數(shù)組。給數(shù)組賦一個空數(shù)組，這樣就將數(shù)組聲明為動態(tài)數(shù)組。例如： Dim A () （ 2）用 ReDim語句分配實際的元素個數(shù)。 ReDim A (X + 1) ReDim語句只能出現(xiàn)在過程中。與 Dim語句、Static語句不同， ReDim語句是一個可執(zhí)行語句，由于這一語句，應(yīng)用程序在運行時執(zhí)行一個操作。ReDim語句支持這樣的語法，它與固定數(shù)組中使用的語法相同。每個 ReDim語句都能改變元素數(shù)目以及上下界。 數(shù)組的基本操作 建立一個數(shù)組之后，可以對數(shù)組或數(shù)組元素進行操作。數(shù)組的基本操作包括輸入、輸出及復(fù)制，這些操作都是對數(shù)組進行的。此外，在 Visual Basic 了 For Each…Next 語句，可用于對數(shù)組的操作。 1．數(shù)組元素的引用 引用數(shù)組元素的格式是：數(shù)組名（下標）。 例如： Number(1)， A(2)， Num(0)， B(4)等。 2．給數(shù)組元素賦值 （ 1）利用循環(huán)結(jié)構(gòu)給數(shù)組元素賦值，例如為數(shù)組元素賦初值 3： For i=1 to 5 A(i)=3 Next i （ 2）利用 Array()函數(shù)為數(shù)組元素賦值，即把一個數(shù)據(jù)集讀入某個數(shù)組。其格式為： 數(shù)組變量名＝ Array（數(shù)組元素值） 例如： Static Number Number=Array(1,2,3,4,5) 說明： ? Array()函數(shù)對各元素賦值，聲明的數(shù)組是動態(tài)數(shù)組或連小括號都省略的數(shù)組，并且類型只能是 Varient。 ? 數(shù)組下界默認為 0，可通過 Option Base語句決定，上界由Array()函數(shù)括號內(nèi)的參數(shù)個數(shù)決定，也可通過 UBound()函數(shù)獲得。 ? “數(shù)組元素值”是需要賦給數(shù)組各元素的值，各值之間以逗號分開。 ? Array()函數(shù)只適用于一維數(shù)組。 4．數(shù)組元素的復(fù)制 （ 1）單個數(shù)組元素可以像簡單變量一樣從一個數(shù)組復(fù)制到另一個數(shù)組。例如： Dim b(4),a(6) … b(2)=a(3) （ 2）要復(fù)制整個數(shù)組，要使用 For循環(huán)語句。 （ 3）要復(fù)制整個數(shù)組，也可以使用一條簡單的賦值語句即可。例如： Dim a(4) as integer,b() as integer A(0)=0:a(1)=5:a(2)=10:a(3)=13:a(4)=14 B=a 使用這種方法賦值時，必須要注意： ? 賦值號兩邊的數(shù)據(jù)類型必須一致； ? 如果賦值號左邊的是一個大小固定的數(shù)組，則數(shù)組賦值出錯； ? 賦值號左邊的必須是一個動態(tài)數(shù)組，賦值時系統(tǒng)將自動給動態(tài)數(shù)組分配內(nèi)存空間，使之與右邊數(shù)組大小相同。 5． For Each…Next 語句 For Each…Next 循環(huán)與 For…Next 循環(huán)類似，與 For…Next 語句類似，兩者都是用來執(zhí)行指定重復(fù)次數(shù)的語句。但 For Each…Next 語句是專門用于操作數(shù)組的，它的格式如下： For Each 成員 In 數(shù)組名 [循環(huán)體 ] Next [成員 ] 說明： ? 格式中的“成員”必須是一個變體變量，是為循環(huán)提供的，代表的是數(shù)組中的每個元素。 ? 〈 數(shù)組名 〉 沒有括號和上下界。 ? 用 For Each…Next 語句可以對數(shù)組中的每個元素進行處理，它包括查詢、顯示和讀取。它所重復(fù)的次數(shù)由數(shù)組中元素的個數(shù)決定，數(shù)組中有多少個元素，就自動重復(fù)執(zhí)行多少次。 【 案例 213】 數(shù)組復(fù)制 給數(shù)組賦初值，然后復(fù)制到另一數(shù)組中，并打印輸出到窗體上。 Private Sub Form_Click() Dim a(), b() 39。定義動態(tài)數(shù) a = Array(1, 2, 3, 4, 5) 39。給數(shù)組賦初值 ReDim b(UBound(a)) 39。給動態(tài)數(shù)組分配內(nèi)存空間 For i = 0 To UBou