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