【正文】 出 數(shù)組輸出時(shí)的注意事項(xiàng)： (2)可以根據(jù)需要單個(gè)輸出數(shù)組元素的值，但下標(biāo)不能超限。 a(1, 2) 。 如上述程序改為： Private Sub Form_Click() Dim a(5, 5) As Integer For i = 0 To 5 For j = 0 To 5 a(i, j) = Int(Rnd * 100) Next j Next i Print Tab(j * 8 + 1)。 End Sub 想通過(guò)數(shù)組名 a輸出二維數(shù)組中的每一個(gè)元素，則是錯(cuò)誤碼的。 數(shù)組 5 數(shù)組的應(yīng)用舉例 例 74 輸入多名學(xué)生的一門(mén)課程的考試成績(jī)（假設(shè)為整數(shù)），統(tǒng)計(jì)各分?jǐn)?shù)段學(xué)生人數(shù)。用于保存統(tǒng)計(jì)結(jié)果 a = Split(Text1, ,) For i = 0 To UBound(a) If (a(i) = 100 And a(i) 0) Then k = a(i) \ 10 x(k) = x(k) + 1 End If Next i Print 統(tǒng)計(jì)結(jié)果如下： Print 100分的有： amp。 人 For i = 9 To 0 Step 1 Print i * 10 amp。 i * 10 + 9 amp。 x(i) amp。輸出字母及其出現(xiàn)的次數(shù) If a(j) 0 Then 。 =。 。 Option Base 1 Private Sub Command1_Click() Dim a%(10), max%, i%, k% Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 Print max = a(1): k = 1 For i = 2 To 10 If max a(i) Then max = a(i) k = i End If Next i Print 這組數(shù)中的最大值為： amp。 k amp。 數(shù)組控件 1 控件數(shù)組的基本概念 控件數(shù)組由一組同類(lèi)控件組成，它們共用一個(gè)控件，控件各數(shù)組元素有不同的索引號(hào)（類(lèi)似于數(shù)組元素的下標(biāo)），該索引由控件 Index屬性決定，最大索引值為 32767。例如：若 CmdName是具有 4個(gè)元素的命令按鈕控件數(shù)組，不管單擊哪個(gè)命令按鈕，都會(huì)調(diào)用同一個(gè)單擊事件過(guò)程，格式如下： Private Sub CmdName_Click(Index As Integer) …… End Sub 數(shù)組控件 2 建立控件數(shù)組的方法 1）設(shè)計(jì)時(shí)建立 步驟如下： (1) 在窗體上添加第一個(gè)控件，設(shè)置好名稱(chēng)和其它屬性； (2) 選中該控件，進(jìn)行復(fù)制和粘貼操作，系統(tǒng)會(huì)出現(xiàn)以下提示信息： 單擊 “ 是 ” 按鈕，建立一個(gè)控件數(shù)組。 數(shù)組控件 2 建立控件數(shù)組的方法 2）在程序運(yùn)行時(shí)建立 步驟如下： (1) 先建立第 1個(gè)控件數(shù)組元素：在窗體中添加第 1個(gè)控件，設(shè) 置其 Index屬性為 0； (2) 在程序中用 Load方法添加其余的若干個(gè)元素，用 Unload方 法刪除某個(gè)元素； (3) 新添的控件數(shù)組元素通過(guò) Left和 Top屬性值，確定它在窗 體上的具體位置。 自定義數(shù)據(jù)類(lèi)型 在應(yīng)用程序開(kāi)發(fā)中，往往要使用一些類(lèi)型相同、功能相似的控件，這些控件需要執(zhí)行基本相同的操作，如果把事件代碼分別寫(xiě)在不同對(duì)象的事件過(guò)程中，會(huì)造成代碼重復(fù)，給程序維護(hù)帶來(lái)了困難，而應(yīng)用控件數(shù)組則能避免上述問(wèn)題。 Type 類(lèi)型名 字段 1 As 類(lèi)型 字段 1 As 類(lèi)型 …… 字段 1 As 類(lèi)型 End Type 舉例： Type Students Num As Integer Name As String * 20 Sex As String * 1 Birth As Data Age As Integer Jiguan As String * 50 End Type 注意：自定義類(lèi)型一般應(yīng)放在標(biāo)準(zhǔn)模塊中， 其默認(rèn)型為 Public 自定義數(shù)據(jù)類(lèi)型 2 定義： 3 自定義類(lèi)型的引用： 自定義類(lèi)型必須先說(shuō)明變量，再引用 Type Students Num As Integer Name As String * 20 Sex As String * 1 Birth As Data Age As Integer Jiguan As String * 50 End Type Dim Stud（ 50） As Students 在標(biāo)準(zhǔn)模塊定義 自定義數(shù)據(jù)類(lèi)型 例 制作學(xué)生住處輸入系統(tǒng) 自定義數(shù)據(jù)類(lèi)型 例 制作學(xué)生住處輸入系統(tǒng) Private Sub Command1_Click() Dim MyStr As String I = I + 1 Stud(I).Num = : Stud(I).Name = Stud(I).Sex = : Stud(I).Birth = Stud(I).Age = : Stud(I).Jiguan = MyStr = MyStr amp。 “ amp。 MyStr = MyStr amp。 amp。 MyStr = MyStr amp。 amp。用戶(hù)自定義數(shù)據(jù)類(lèi)型數(shù)組的步驟如下： (1) 使用 Type語(yǔ)句定義自定義數(shù)據(jù)類(lèi)型； (2) 使用數(shù)組定義語(yǔ)句定義自定義數(shù)據(jù)類(lèi)型數(shù)組； 自定義數(shù)據(jù)類(lèi)型 第 8章 過(guò) 程 VB應(yīng)用程序是由一系列過(guò)程組成的 ， 前面各章所涉及到的例題和習(xí)題 ， 除了定義一些公共的常量 、 變量或數(shù)組以外 ， 編寫(xiě)的代碼都是在事件過(guò)程中 。 模塊和子模塊均是可重復(fù)調(diào)用的程序段 ， 由編程人員按照一定的格式建立 ， 稱(chēng)為用戶(hù)自定義過(guò)程 ， 簡(jiǎn)稱(chēng)過(guò)程 。這里介紹后一種。參數(shù)之間 用逗號(hào)分隔。 (2) 在調(diào)用 Sub過(guò)程時(shí)，實(shí)參和形參按它們的位置建立一一對(duì) 應(yīng)關(guān)系，實(shí)參的值或地址傳給對(duì)應(yīng)位置上的形參后，執(zhí)行 過(guò)程體，當(dāng)遇到 End Sub或 Exit Sub語(yǔ)句時(shí)，結(jié)束 Sub過(guò) 程，并返回主程序（調(diào)用過(guò)程語(yǔ)句所在的程序稱(chēng)為主程 序）。 (2) ([參數(shù)列表 ]) 代表傳遞給 Sub過(guò)程的參數(shù)。 (3) 在 VB中，形參只能為變量和數(shù)組，不得為常數(shù)或表達(dá)式； 形參可以有多個(gè)，兩兩之間用逗號(hào)隔開(kāi)。 (5) [Private|Public] 用于確定過(guò)程的作用域， [Static]用 于確定過(guò)程變量為靜態(tài)變量。 過(guò)程調(diào)用中的參數(shù)傳遞 形參與實(shí)參之間的數(shù)據(jù)傳遞是調(diào)用過(guò)程和返回過(guò)程運(yùn)算結(jié)果的橋梁 。 當(dāng)程序流程轉(zhuǎn)向執(zhí)行過(guò)程時(shí) ， 實(shí)參和形參按一定方式結(jié)合 ， 形參獲取了相應(yīng)的值后執(zhí)行過(guò)程體 ， 過(guò)程的運(yùn)算結(jié)果還可通過(guò)形參帶回到主程序 。在這種方式下，將實(shí)參的存儲(chǔ)地址傳給形參，使形參與實(shí)參共用同一存儲(chǔ)單元，因此在過(guò)程中對(duì)形參的任何操作實(shí)質(zhì)都是對(duì)相應(yīng)實(shí)參的操作。在過(guò)程定義時(shí)，形參前省略關(guān)鍵字 ByRef（或加 ByRef顯式說(shuō)明）；在過(guò)程調(diào)用時(shí)，對(duì)應(yīng)位置的實(shí)參是相同類(lèi)型的變量或數(shù)組名。 過(guò)程調(diào)用中的參數(shù)傳遞 1 參數(shù)傳遞 1）傳地址方式 采用傳地址方式進(jìn)行參數(shù)傳遞時(shí)需要注意以下問(wèn)題： 當(dāng)實(shí)參為變量時(shí)，參數(shù)傳遞時(shí)是把變量的地址傳遞給形參，使實(shí)參與形參共享同一存儲(chǔ)單元。編寫(xiě)過(guò)程定義時(shí)，形參中數(shù)組名只須帶括號(hào)，不指定元素個(gè)數(shù)；編寫(xiě)過(guò)程調(diào)用語(yǔ)句時(shí)，實(shí)參數(shù)組名既無(wú)括號(hào)，也不能指定元素個(gè)數(shù)。被調(diào)過(guò)程的操作是在形參自己的存儲(chǔ)單元中進(jìn)行，如果形參的值被改變了，對(duì)應(yīng)位置的實(shí)參值不會(huì)受任何影響。 過(guò)程調(diào)用中的參數(shù)傳遞 1 參數(shù)傳遞 2）傳值方式 當(dāng)以傳值方式調(diào)用一個(gè)過(guò)程時(shí)，形參擁有獨(dú)立的存儲(chǔ)單元，實(shí)參只是將值復(fù)制給形參。當(dāng)過(guò)程調(diào)用結(jié)束時(shí)，形參所占用的存儲(chǔ)單元也同時(shí)被釋放。 （ 1）在過(guò)程調(diào)用時(shí)，如果實(shí)參為常量、表達(dá)式或?yàn)閹Юㄌ?hào)的 變量，參數(shù)傳遞是按傳值方式進(jìn)行的。調(diào)用過(guò)程時(shí)， 不管實(shí)參以何種形式，參數(shù)傳遞均采用傳值方式。 Function過(guò)程不僅可以和 Sub過(guò)程一樣通過(guò)參數(shù)傳遞返回過(guò)程處理結(jié)果，還可以通過(guò)過(guò)程名返回一個(gè)處理結(jié)果。 （ 2）語(yǔ)句組中一般應(yīng)有一條語(yǔ)句將過(guò)程的運(yùn)算結(jié)果賦給過(guò)程 名。 （ 4） Function過(guò)程一經(jīng)定義，調(diào)用方式就如同系統(tǒng)提供的內(nèi) 部函數(shù)完全相同。 變量是過(guò)程代碼中必不可少的 ， 一個(gè)變量 、 過(guò)程所處的位置不同 ， 可被訪(fǎng)問(wèn)的范圍也不同 。 變量、過(guò)程的作用域 1 過(guò)程的作用域 1） VB應(yīng)用程序的組成 變量、過(guò)程的作用域 1 過(guò)程的作用域 1） 窗體（模塊）級(jí)過(guò)程 窗體級(jí)過(guò)程是指在窗體或標(biāo)準(zhǔn)模塊通用聲明段定義的、用Private關(guān)鍵字限制的過(guò)程，這類(lèi)過(guò)程只能在所屬的窗體或標(biāo)準(zhǔn)模塊中被其它過(guò)程調(diào)用。全局級(jí)過(guò)程可供該應(yīng)用程序的所有窗體和所有標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用，但根據(jù)過(guò)程所處的位置不同，其調(diào)用方式有所區(qū)別： (1) 在窗體中定義的全局級(jí)過(guò)程，該窗體之外的其它過(guò)程要調(diào) 用，必須在過(guò)程名前加該過(guò)程所在的窗體名。 變量、過(guò)程的作用域 2 變量的作用域 變量的作用域是指變量能被訪(fǎng)問(wèn)的范圍。過(guò)程級(jí)和窗體（模塊）級(jí)常被稱(chēng)為私有級(jí)變量，而全局級(jí)也常被稱(chēng)為公有級(jí)變量。該類(lèi)變量通常用來(lái)存儲(chǔ)過(guò)程中的臨時(shí)數(shù)據(jù)。 變量、過(guò)程的作用域 2 變量的作用域 1）過(guò)程級(jí)變量 2）窗體（模塊）級(jí)變量 窗體（模塊）級(jí)變量的作用域限制在聲明它的窗體（模塊）中，該窗體（模塊）中的所有過(guò)程均可訪(fǎng)問(wèn)該變量，其它窗體（模塊）則不能。 變量、過(guò)程的作用域 2 變量的作用域 1）過(guò)程級(jí)變量 2）窗體（模塊）級(jí)變量 3）全局級(jí)變量 全局級(jí)變量在所有模塊的所有過(guò)程都能使用，它的作用范圍是整個(gè)應(yīng)用程序，在模塊的通用段中使用 Public關(guān)鍵字聲明。如本書(shū)中的 大部分例題，采用的都是這種級(jí)別的變量。 (3) 如果變量將在多個(gè)窗體中被用到，且彼此之間還有相互關(guān) 系，則可以聲明為全局變量。 計(jì)算機(jī)處理的大量數(shù)據(jù)都是以文件的形式存放在外部介質(zhì)（如磁盤(pán)）上的。它既可以直接讀寫(xiě)文件，同時(shí)又提供了大量與文件管理有關(guān)的語(yǔ)句和函數(shù)以及管理文件系統(tǒng)的控件，編程者可以使用這些手段開(kāi)發(fā)出功能強(qiáng)大的應(yīng)用程序。要求自學(xué)文件系統(tǒng)控件、 FSO模型等。 2）將系統(tǒng)設(shè)置等保存在磁盤(pán)上，以備下次啟動(dòng)機(jī)器時(shí)使 用（如 等軟件的設(shè)置，游戲中的進(jìn)度等）。 第 9章 文 件 文件的基本概念 1 文件的分類(lèi) (1) 按文件的內(nèi)容分 可分為程序文件和數(shù)據(jù)文件兩類(lèi)。 文件的基本概念 1 文件的分類(lèi) (1) 按文件的內(nèi)容分 (2) 按存儲(chǔ)信息的形式分 可分為 ASCII文件和二進(jìn)制文件。例如十進(jìn)制整數(shù) 1025，若以二進(jìn)制形式存儲(chǔ)，共需占 2個(gè)字節(jié)；若以 ASCII碼形式， 1025中的每位占 1個(gè)字節(jié)，共需占 4個(gè)字節(jié)。記錄是若干個(gè)相互關(guān)聯(lián)的數(shù)據(jù)集合，這些數(shù)據(jù)可以是相同類(lèi)型的，也可以是不同數(shù)據(jù)類(lèi)型的。 文件的基本概念 3 文件的讀寫(xiě)和文件的緩沖區(qū) 1）文件讀寫(xiě)的概念： 從計(jì)算機(jī)內(nèi)存向外存（如磁盤(pán)）輸出數(shù)據(jù)，并將數(shù)據(jù)以文件的形式存儲(chǔ)在外存的操作，稱(chēng)為 “ 文件寫(xiě) ” 操作，即向外存寫(xiě)入數(shù)據(jù)；將文件內(nèi)容向計(jì)算機(jī)內(nèi)存輸入的操作稱(chēng)為 “ 文件讀 ”操作，即將文件讀入內(nèi)存。當(dāng)同時(shí)操作多個(gè)文件時(shí)， VB系統(tǒng)自動(dòng)為每個(gè)文件開(kāi)辟一個(gè)緩沖區(qū)。緩沖區(qū)號(hào)通常在程序中由編程者指定。 文件的基本概念 3 文件的讀寫(xiě)和文件的緩沖區(qū) 3）文件的讀寫(xiě)過(guò)程： 文件的基本概念 4 不同訪(fǎng)問(wèn)模式下數(shù)據(jù)文件的存取特點(diǎn) 1）順序文件 順序文件存儲(chǔ)格式記錄 I…… 記錄 N記錄 1記錄 2…… 記錄分界符順序文件是以 ASCII碼形式存儲(chǔ)數(shù)據(jù)，記錄中各數(shù)據(jù)項(xiàng)之間用特定的分界符（如逗號(hào)、空格等）分隔，記錄與記錄之間