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