【文章內(nèi)容簡介】 。 。 首先在模塊通用段聲明數(shù)組： Dim a(1 to 10) as integer 隨機整數(shù)的生成由窗體的 Load事件代碼完成： Private Sub Form_Load() Dim p As String : p = : Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 p = p amp。 Str(a(i)) amp。 , Next i = LTrim(Left(p, Len(p) 1)) End Sub 167。 數(shù)組 求最大、最小以及平均值由“確定”按鈕 Command2的 Click事件代碼完成： Private Sub Command2_Click() Dim max As Integer, min As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) s = s + a(i) Next i = max = min = s / 10 End Sub 167。 數(shù)組 “重置”按鈕 Command1的 Click事件代碼： Private Sub Command1_Click() Form_Load = = = End Sub 最后是“關閉”按鈕 Command3的 Click事件代碼： Private Sub Command3_Click() Unload Me End Sub 167。 數(shù)組 三、動態(tài)數(shù)組 (1)聲明數(shù)組：用 Public語句（全局數(shù)組）、用 Private或 Dim語句（模 塊級數(shù)組）、用 Static或 Dim語句（局部數(shù)組）聲明數(shù)組。給數(shù)組附以一個空 維數(shù)表，這樣就將數(shù)組聲明為動態(tài)數(shù) 組。 Dim DA（） (2)用 ReDim 語句分配實際的元素個數(shù)。 ReDim DA（ X + 1） ReDim 語句只能出現(xiàn)在過程中。與 Dim 語句、 Static 語句不同， ReDim 語句是一個可執(zhí)行語句，遇到這一語句，應用程序在運行時將執(zhí)行一 個操作。 167。 數(shù)組 2． ReDim 語句 在過程級別中使用，為動態(tài)數(shù)組變量重新分配存儲空間。 其語法如下： ReDim [Preserve] 數(shù)組名 (維數(shù)定義 ) [As 數(shù)據(jù)類型 ] [,數(shù)組名 (維數(shù)定義 ) [As 數(shù)據(jù)類型 ]] ? 說明一： (1)Preserve：可選的關鍵字，當改變原有數(shù)組最末維的大小時，使用此 關鍵字可以保持數(shù)組中原來的數(shù)據(jù)。 (2)數(shù)組名：必需的。遵循標準的變量命名約定。 (3)數(shù)組變量的維數(shù)：必需的。最多可以定義 60維的多維數(shù)組。“數(shù)組變 量的維數(shù)”參數(shù)使用的語法與固定大小數(shù)組的語法相同。 (4)數(shù)據(jù)類型：可選的。聲明數(shù)組類型。 167。 數(shù)組 說明二： (1)ReDim 語句用來定義或重定義原來已經(jīng)用帶空圓括號（沒有 維數(shù)下標）的 Private、 Public或 Dim語句聲明過的動態(tài)數(shù)組的 大小。 (2)可以使用 ReDim 語句反復地改變數(shù)組的元素以及維數(shù)的數(shù) 目，但是不能在將一個數(shù)組定義為某種數(shù)據(jù)類型之后，再使用 ReDim 將該數(shù)組改為其它數(shù)據(jù)類型，除非是 Variant 所包含的 數(shù)組。 167。 數(shù)組 例：定義一個動態(tài)數(shù)組，并修改數(shù)組的元素數(shù)目和維數(shù)： Dim x() As String Dim i As Integer, j As Integer ReDim x(3) For i = 0 To 3 x(i) = i amp。 i amp。 i Next ReDim x(1 To 9, 3) For i = 1 To 9 For j = 0 To 3 x(i, j) = i amp。 j Next j Next i 167。 數(shù)組 3．保留動態(tài)數(shù)組的內(nèi)容 每次執(zhí)行 ReDim 語句時，當前存儲在數(shù)組中的值都會全部 丟失。使用具有 Preserve 關鍵字的 ReDim 語句就可改變數(shù)組 大小又不丟失數(shù)組中的數(shù)據(jù)。 對于多維數(shù)組，在用 Preserve關鍵字時，只能改變數(shù)組中最 后一維的上界。例如： Dim x() As String ReDim x(3) For i = 0 To 3 x(i) = i amp。 i amp。 i Next i ReDim Preserve x(4) x(4) = 4 amp。 4 amp。 4 167。 數(shù)組 四、控件數(shù)組 如果在應用程序中用到一些類型相同且功能類似的控件，則 可將這些相同的控件視為一個“控件數(shù)組”。具有如下的特點： (1)相同的名稱（ Name） (2)以下標索引值（ Index）來識別各個控件 設計時有三種方法創(chuàng)建控件數(shù)組： (1)將相同名字賦予多個控件 (2)復制現(xiàn)有的控件并將其粘貼到窗體上。 (3將控件的 Index 屬性設置為非 Null 數(shù)值。 167。 數(shù)組 。 步驟 1：繪制控件數(shù)組中要添加的控件 步驟 2：選定其它控件并將其 Name屬性設置成數(shù)組第一個元 素的 Name值。 步驟 3：在為數(shù)組中的其它控件輸入相同名稱時， VB將顯示 一個對話框，要求確認是否要創(chuàng)建控件數(shù)組。此時選擇“是” , 確認操作 ,如圖 。 圖 確認創(chuàng)建控件數(shù)組 167。 數(shù)組 通過復制現(xiàn)存控件添加控件數(shù)組元素 利用復制、粘貼的功能建立控件數(shù)組，具體步驟如下： 步驟 1：繪制控件數(shù)組中的第一個控件。 步驟 2：當控件獲得焦點時，選擇“編輯”菜單中的“復 制”命令，或按“ Ctrl+C” 組合鍵。 步驟 3：在“編輯”菜單中，選擇“粘貼”命令，或按“ Ctr l+V” 組合鍵。 VB將顯示一個對話框詢問是否確認創(chuàng)建控件數(shù) 組。選擇“是”，確認操作，如圖 ，將得到控件數(shù)組中 的第二個控件元素。 步驟 4：重復步驟 3，可得到控件數(shù)組中的其他控件元素。 167。 數(shù)組 直接指定控件數(shù)組中第一個控件的索引值為 0，然后利用前 兩種方法中的任何一種添加控件數(shù)組的成員，將不會出現(xiàn)對話框 詢問是否創(chuàng)建控件數(shù)組。個體步驟如下： 步驟 1：繪制控件數(shù)組中的第一個控件。 步驟 2：將其索引值改為 0。 步驟 3：用現(xiàn)有的控件元素，復制控件數(shù)組中的其他控件， 將不會出現(xiàn)對話框詢問是否確認創(chuàng)建控件數(shù)組。 167。 VisualBasic采用事件驅(qū)動的調(diào)用過程的程序設計方法 ,包含三種基本結構：順序結構、選擇結構和循環(huán)結構。 一、順序結構 順序結構就是按照語句的順序一條一條地執(zhí)行。 [Let] 變量 =表達式 賦值語句具有計算和賦值的雙重功能，它首先計算“ =” 號右邊的表達式，然后把結果賦給“ =” 號左側(cè)的變量。 例如，下面兩個語句的作用是不同的： a = b 39。 將 b的值賦給 a : b = a 39。 將 a的值賦給 b 167。 2. Print方法 Print方法用于在窗體、立即窗口、圖片框、打印機等對象 中顯示文本字符串和表達式的值。 Print方法的格式和功能與早 期 Basic語言中的 Print語句類似。 其使用語法如下： [對象表達式 .]Print[表達式表 ][,|； ] 其中，“對象表達式”可以是窗體、立即窗口 (Debug)、圖片 框、打印機 (Printer)等對象。如果省略“對象表達式”，則在 當前窗體上輸出。 例如： Basic! 39。在 Form1窗體中顯示 Basic! 167。 Print方法的顯示格式有分區(qū)格式和緊湊格式兩種。當各表 達式用逗號作為分隔符時，按打印區(qū)顯示數(shù)據(jù)項，每隔 14列開始 一個打印區(qū)，每列的寬度是所選字體磅值大小的所有字符的平均 寬度。當各表達式用分號作為分隔符時，輸出格式為緊湊格式， 此時將在每個數(shù)值后面增加一個空格，如果數(shù)值為正數(shù)，將把正 號顯示為空格。 為了使數(shù)據(jù)按指定的位置輸出， VB提供了幾個與 Print配合使用 的函數(shù)。 （ 1） Tab函數(shù) 使用格式如下： Tab（ n） 167。 其中， n為數(shù)值表達式，其值為整數(shù)，它是下一個輸出位置的 列號，表示在輸出前把光標或打印頭移到該列。通常最左邊的列 號為 1。如果當前的顯示位置已經(jīng)超過 n，則自動下移一行。當 n 大于行的寬度時，顯示位置為 n Mod 行寬，如果 n＜ 1，則把輸出 位置移到第一列。 Tab函數(shù)把顯示或打印位置移到由參數(shù) n指定的列數(shù)，從此列 開始輸出數(shù)據(jù)。要輸出的內(nèi)容放在 Tab函數(shù)后面，并用分號隔 開。例如： Print Tab(10)。 姓名 。Tab(30)。年齡 167。 （ 2） Spc函數(shù) 在 Print方法或 Print語句中，用 Spc函數(shù)跳過 n個空格。 使用格式如下： Spc(n) 其中， n是在顯示或打印下一個表達式之前插入的空格數(shù)。 Spc函數(shù)與輸出項間用分號隔開。例如： Print ABC。Spc(5)。 DEP 39。輸出： ABC DFE 當 Print方法與不同大小的字體一起使用時，使用 Spc函數(shù)打 印的空格字符的寬度總是等于選用字體內(nèi)以磅數(shù)為單位的所有字 符的平均寬度。 167。 例：設計一個窗體說明 Print方法的使用。 在 form1窗體上設計如下事件過程： Private Sub Form_Click() Print Let39。s study VisualBasic amp。 together!, 7 * 10 Print Let39。s study amp。 VisualBasic together!。 7 * 10 Print FontSize = 20 39。設置字體大小 Print Now 39。顯示當前日期和時間 Print FontSize = 20 39。設置字體大小 Print 10*7=。 10 * 7 FontSize = 12 Print 10*7=, 10 * 7 167。 Print FontSize = 10 FontBold = True 39。設置字體為黑體 Print 歡迎使用 。 FontSize = 15 Print VisualBasic! End Sub 167。 二、選擇結構 所謂選擇結構，可以根據(jù)不同的情況做出不同的選擇，執(zhí)行 不同的操作。 VisualBasic支持的 3種選擇結構分別是 :If?The n? 結構、 If?Then?Else? 結構、 Select Case結構。 1. If?Then? 結構 使用 If?Then? 結構可以有條件地執(zhí)行某些語句，它有兩種 語法形式： (1)只選擇執(zhí)行一條語句。 語法為： If條件 Then語句 例如： If x=0 Then y=x+1 167。 (2)需要執(zhí)行多條語句。 語法為： If 條件 Then 若干語句 end If 例如： If intage23 Then Print “ 您已經(jīng)超齡，無法入選國奧隊！” Print “ 感謝您對中國足球的關懷！” end If 167。 ?Then?Else? 結構 使用 If?Then?El