【文章內(nèi)容簡介】 （ 2）遇到空格時將改邏輯變量設(shè)為真，再次遇到非空字符時，再次將該邏輯變量設(shè)為假，同時計數(shù)。 （ 3）循環(huán)往復(fù)，最后得到單詞總數(shù)。 （ 4）對于字符的統(tǒng)計只需要在讀取每個字符時判斷是什么類型的字符，并進行統(tǒng)計即可。 操作步驟 ? ? (1) 啟動 Microsoft Visual Basic 。 ? (2) 打開新的 “ 標準 EXE‖工程，建立工程工程 1，窗體名為 Form1。 ? (3) 在窗體上放置一個文本框，兩個框架和兩個按鈕，界面如運行界面所示。 ? (4) 主要控件的屬性設(shè)置如下表所示。 ? （略，見 P138） 第 7章 數(shù)組 ? 數(shù)組的概念 ? 數(shù)組的基本操作 ? 動態(tài)數(shù)組 ? 控件數(shù)組 數(shù)組的概念 ? 在 Visual Basic中數(shù)組（ Array）用來保存多個相同類型的相關(guān)聯(lián)的數(shù)據(jù)。數(shù)組有數(shù)組名，一個數(shù)組由多個數(shù)組元素組成，每一個數(shù)組元素中保存了一個數(shù)據(jù)。要對某一元素中的數(shù)據(jù)進行存取，必須指定這個元素在數(shù)組中的序號（又稱為索引或下標）。每一個數(shù)組元素，都可以使用數(shù)組名與下標來唯一的確定。下標是連續(xù)的整數(shù)，下標的最小值稱為下標下界，最大值稱為下標上界。由下標的上下界可以確定數(shù)組中元素的個數(shù) 常規(guī)數(shù)組的聲明 ? 常規(guī)數(shù)組也稱為 “ 固定大小的數(shù)組 ” ，是指聲明之后元素個數(shù)不能改變的數(shù)組，這與動態(tài)數(shù)組是不同的。常規(guī)數(shù)組的名稱、維數(shù)、類型與元素個數(shù)都要在聲明時確定。 ? 和普通變量類似，數(shù)組應(yīng)該先聲明后使用，在 Visual Basic中可以使用 Dim、 Redim、 Static、 Public等關(guān)鍵字來聲明數(shù)組。 ? 語法： [Public | Private | Static | Dim | ReDim [Preserve] ] 數(shù)組名 (維數(shù)說明 ) [As 數(shù)據(jù)類型 ] ? 說明：在定義常規(guī)數(shù)組時，需要說明數(shù)組的維數(shù)與下標的上、下界，也可以使用 Public、 Private、 Dim等關(guān)鍵字定義只帶圓括號而無維數(shù)說明的動態(tài)數(shù)組。而 ReDim通常用來重新定義動態(tài)數(shù)組的大小，在改變原有數(shù)組最末維的大小時，使用 Preserve關(guān)鍵字可以保持數(shù)組中原來的數(shù)據(jù)。 常規(guī)數(shù)組的聲明 ? 下面用 Dim語句為例說明常規(guī)數(shù)組的聲明： ? 1．只給出下標的上界 ? 1）對于一維數(shù)組，使用如下語句 Dim 數(shù)組名 (下標上界 ) As 數(shù)據(jù)類型 ? 2）對于二維數(shù)組，使用如下語句 Dim 數(shù)組名 (第一維上界 , 第二維上界 ) As 數(shù)據(jù)類型 常規(guī)數(shù)組的聲明 ? 默認情況下，數(shù)組下標從 0開始。如果希望從 1開始，可使用 Option Base語句進行設(shè)置，語法： Option Base n ? 說明：其中 n為一個整數(shù)，其值只能是 0或 1，當 n為 1時，默認的下標下界從 1開始。 ? 注意： “ 下標上界 ” 與數(shù)組 “ 元素個數(shù) ” 是不同的概念，下標上界是可以使用的最大下標值，是在定義數(shù)組時給定的，元素個數(shù)在給定數(shù)組的下標后可以計算得出， ? 一維數(shù)組的元素個數(shù)為： 下標上界 – 下標下界 + 1 ； ? 二維數(shù)組元素個數(shù)為： (第一維下標上界 – 第一維下標下界 +1)*( 第二維下標上界 – 第二維下標下界 +1) 常規(guī)數(shù)組的聲明 ? 2．指定下標下界 ? 使用第 1種方法定義的數(shù)組，其下標的下界只能是 0或 1，如果要讓下標根據(jù)需要從其它值開始，就得指定數(shù)組下標的下界，格式如下： ? 1)對于一維數(shù)組，使用如下語句 Dim 數(shù)組名 (下界 To 上界 ) As 數(shù)據(jù)類型 ? 2)對于二維數(shù)組，使用如下語句 Dim 數(shù)組名 (下界 To 上界 , 下界 To 上界 ) As 數(shù)據(jù)類型 常規(guī)數(shù)組的聲明 ? 無論用什么形式定義數(shù)組，都應(yīng)注意聲明數(shù)組的規(guī)則： ? 數(shù)組名的命名規(guī)則與變量名相同。 ? 在同一個過程中，數(shù)組名不能與變量名同名，否則會出錯，例如： Dim strName As String Dim strName(30) As String ? 這樣的代碼在程序運行時，因為同一范圍內(nèi)有同名的聲明，將產(chǎn)生編譯錯誤。 ? 定義數(shù)組時，每一維下標上下界的值都必須是常量，不能是變量或含變量的表達 數(shù)組元素的使用 ? 在定義好數(shù)組之后，要使用數(shù)組的值是通過訪問數(shù)組元素實現(xiàn)的，即數(shù)組元素可以像變量一樣參與賦值與表達式的運算，而對數(shù)組元素的引用是通過指定數(shù)組的下標完成的，即在數(shù)組名后的括號中指定下標可使用相應(yīng)的數(shù)組元素。 數(shù)組元素的使用 ? 1）若建立的是多維數(shù)組，在引用數(shù)組元素時必須組出所有維的下標 ? 例如： Dim A(3,2,3) As String Dim B(2,2) As Integer A(2,1,0) =‖abc‖ ?三維的下標都需要給出 B(2) = 10 ?維數(shù)不符，運行時會引發(fā)錯誤 數(shù)組元素的使用 ? 2）引用數(shù)組元素時，其下標值應(yīng)在建立數(shù)組時所指定的范圍內(nèi)，否則會產(chǎn)生下標越界錯誤。 ? 例如： Dim Arr(10) As Single A(0) = ?正確 A(1) = ?出錯 A(11) = ?出錯 數(shù)組的基本操作 數(shù)組元素的輸入、輸出與復(fù)制 ? 1）通常通過循環(huán)利用賦值語句給數(shù)組元素賦值。 ? 例如 ： Dim A(3 To 5) As String Dim I As Integer For I = 3 To 5 A(I)= Int( InputBox( ―A(― + Format(I) +‖)=‖ ) ) Next I ? 在循環(huán)中利用輸入框給數(shù)組 A的每個元素賦值 數(shù)組元素的輸入、輸出與復(fù)制 ? 2）為了顯示數(shù)組中的值，也可以通過循環(huán)輸出數(shù)組元素的值 ? 例如對于數(shù)組 A，在輸出時利用循環(huán)向窗體打印數(shù)組元素： For I = 3 To 5 Print A(I) Next I 數(shù)組元素的輸入、輸出與復(fù)制 ? 例 ：將菲波數(shù)列的前 50項存入數(shù)組 ? 菲波數(shù)列的前幾項為： 1, 1, 2, 3, 5, 8, 13, 21, 34,…… ? 解析：菲波數(shù)列的通項為： A k =A k1+A k2，在給一維數(shù)組賦值時，應(yīng)注意菲波數(shù)列的值很大，使用 Double數(shù)據(jù)類型 ? 在窗體上放置文本框 Text1，并設(shè)置 MultiLine屬性為 True， ScrollBars屬性為 2 數(shù)組元素的輸入、輸出與復(fù)制 ? 例 代碼 Private Sub Form_Load() Dim A(1 To 50) As Double Dim I As Integer A(1) = 1: A(2) = 1 = 1 + vbCrLf + 1 For I = 3 To 50 A(I) = A(I 1) + A(I 2) = + CStr(A(I)) + vbCrLf Next I End Sub 數(shù)組初始化與清除 ? 用途：對于一維數(shù)組，可以使用 Array函數(shù)給數(shù)組賦值。 ? 語法： Array (元素列表 ) ? 說明： ? 返回一個包含數(shù)組的變體類型 ,即沒有作為數(shù)組聲明的變體類型變量也可以表示數(shù)組 ,可以使用 Array()函數(shù)給將變體類型的變量賦值為一個一維數(shù)組 數(shù)組初始化與清除 ? 用途 ：重新初始化大小固定的數(shù)組的元素，以及釋放動態(tài)數(shù)組的存儲空間。 ? 語法： Erase 數(shù)組名 ? 說明： ? 1）對于固定大小的數(shù)組， Erase語句將重新初始化數(shù)組元素 ? 數(shù)值數(shù)組 ,將每個元素設(shè)為 0。 ? 變長字符串數(shù)組，將每個元素設(shè)為空串 ()； ? 定長字符串數(shù)組（長度固定），將每個元素設(shè)為定長的空格串； ? 邏輯數(shù)組，將每個元素置為 False ? 變體型數(shù)組，將每個元素設(shè)為空值； ? 2）對于動態(tài)數(shù)組， Erase語句釋放動態(tài)數(shù)組所使用的內(nèi)存。在下次引用動態(tài)數(shù)組之前，必須使用 ReDim 語句來重新定義該數(shù)組變量的維數(shù)與下標。 For Each…… Next 語句 ? 數(shù)組是一個特殊的集合， Visual Basic提供了 For Each語句可以遍歷集合的元素， ? 用途： ? 針對一個數(shù)組或集合對象中的所有元素重復(fù)執(zhí)行一段程序 ? 語法： For Each 元素 In 集合 [循環(huán)體 ] Next 元素 ? 說明： ? 1）此處，元素是一個變體變量，用來對應(yīng)集合中的各個成員 ? 2）集合是由多個成員組成的數(shù)組或?qū)ο蟮募? For Each…… Next 語句 ? For Each的運行方式： ? 首先，將集合中的第 1個成員指定給元素變量，然后執(zhí)行循環(huán)體 ? 執(zhí)行到 Next語句時，返回 For Each處 ? 將集合中的下一個成員指定給元素變量，再次執(zhí)行循環(huán)體 ? 反復(fù)執(zhí)行步驟 2 ,3，直到集合中的成員依序執(zhí)行完畢為止 For Each…… Next 語句 ? 例 ：利用 For Each 循環(huán)對一維數(shù)組所有元素求和 Private Sub Command1_Click() Dim A(1 To 40) As Single Dim I As Integer Dim K, S As Single Randomize For I = 1 To 4 A(I) = Rnd Next I For Each K In A S = S + K Next K Print S End Sub 動態(tài)數(shù)組 ? 當事先不能預(yù)料應(yīng)該為數(shù)組聲明多少個元素時，可以使用 Visual Basic提供的動態(tài)數(shù)組。動態(tài)數(shù)組是指聲明之后維數(shù)與下標上下界可以改變的數(shù)組。 動態(tài)數(shù)組的定義 ? 聲明動態(tài)數(shù)組的方法與聲明常規(guī)數(shù)組相似，在聲明時要指定數(shù)組的名稱和數(shù)據(jù)類型，不過數(shù)據(jù)名后的括號是空的。語法： Public | Private | Dim | Static動態(tài)數(shù)組名（） [As類型名 ] ? 聲明之后，動態(tài)數(shù)組還沒有任何元素，要使用它，必須使用 ReDim語句來重新定義動態(tài)數(shù)組的維數(shù)、元素個數(shù)與下標上下界。語法為： Redim動態(tài)數(shù)組名（ [ml To] nl [,m2 To] n2,...） ? ReDim語句與使用 Dim語句聲明數(shù)組時的語法相似，只是不能再改變數(shù)據(jù)類型。在程序中可以根據(jù)需要隨時使用 ReDim來重新定義動態(tài)數(shù)組。默認情況下，使用ReDim會清除重新定義之前動態(tài)數(shù)組所有元素中的數(shù)據(jù)，使用默認值來填充。如果希望在重新定義后保留以前數(shù)組元素的值，則要在 ReDim語句中使用 Preserve關(guān)鍵字。 動態(tài)數(shù)組的使用 ? 例 ：下面的程序演示動態(tài)數(shù)組的使用 Option Base 1 Private Sub Form_Load() Dim MyArray() As Integer 39。聲明動態(tài)數(shù)組。 ReDim MyArray(5) 39。分配 5 個元素。 第一次使用動態(tài)數(shù)組 For I = 1 To 5 MyArray(I) = I 39。初始化數(shù)組。 MyArray(I) Next I 39。重定義該數(shù)組的大小，并清空其中所有元素。 ReDim MyArray(10) 39。大小重定為 10 個元素。 39。此時，數(shù)組元素的值都為 0 第二次使用動態(tài)數(shù)組 For I = 1 To 10 MyArray(I) = I 39。再次初始化數(shù)組。 MyArray(I) Next I 39。重定義該數(shù)組的大小，但沒有清除其中的元素。 ReDim Preserve MyArray(15) 39。大小重定為 15 個元素 39。此時數(shù)組的前 10個元素仍保留著它的值 第三次使用動態(tài)數(shù)組 For I = 1 To 10 MyArray(I) Next I End Sub 控件數(shù)組 控件數(shù)組概念 ? 控件數(shù)組是指具有相同名稱、類型以及事件過程的一組控件。每一個控件具有一個唯一的索引 (Index)。當數(shù)組中的一個控件識別某一事件時，它將調(diào)用此控件組的相應(yīng)事件過程，并把相應(yīng)索引作為參數(shù)傳遞，允許用代碼決定是哪一個控件識別此事件