【正文】 ntblockn]] End Select VB從入門(mén)到實(shí)踐 循環(huán)語(yǔ)句 流程控制的重要方法之一是循環(huán)語(yǔ)句。判斷語(yǔ)句包括 If語(yǔ)句和 Select Case語(yǔ)句。 VB從入門(mén)到實(shí)踐 第 4章 流程控制 流程控制是 Visual Basic應(yīng)用程序開(kāi)發(fā)中對(duì)特定條件進(jìn)行分析、比較、判斷，主要包括判斷語(yǔ)句和循環(huán)語(yǔ)句。 ? 命名不可以包含特殊符號(hào)。 nRed=38:ngreen=36:nblue=128:nmycolor= nRed + ngreen + nblue VB從入門(mén)到實(shí)踐 添加注釋 優(yōu)秀的程序員都具有在關(guān)鍵步驟下添加注釋的好習(xí)慣。 VB從入門(mén)到實(shí)踐 單行語(yǔ)句分成多行 復(fù)雜應(yīng)用程序代碼編寫(xiě)過(guò)程中會(huì)遇到非常長(zhǎng)的字符串。每個(gè)對(duì)象都包括一組事件集合。當(dāng)開(kāi)發(fā)的應(yīng)用程序相對(duì)龐大復(fù)雜時(shí)，在不同窗體中包含相同的可執(zhí)行的公共代碼。) VB從入門(mén)到實(shí)踐 代碼模塊 Visual Basic的程序代碼存儲(chǔ)在代碼模塊中。 Not X And 與 當(dāng)左右操作數(shù)都為 True時(shí)，結(jié)果為 True，否則為 False。在程序開(kāi)發(fā)過(guò)程中，創(chuàng)建一個(gè)變量后，必須通過(guò)設(shè)置一個(gè)等號(hào)賦予變量數(shù)值。本章重點(diǎn)和難點(diǎn)包括如何定義和使用各種數(shù)據(jù)類型的變量、常量。例如， vbBlack在 Visual Basic定義為黑色， vbWhite為白色、 vbBlue為藍(lán)色。如果該變量被賦予短于該長(zhǎng)度的表達(dá)式，變量的剩余長(zhǎng)度將以空格填充。如果不聲明該變量，將出現(xiàn)錯(cuò)誤提示。但是，應(yīng)用程序在運(yùn)行時(shí)也有可能需要保留變量數(shù)據(jù)。 ? 變量長(zhǎng)度不得超過(guò) 255個(gè)字符。變量都有變量名稱，在其作用范圍內(nèi)作為惟一標(biāo)識(shí)存在 。如果在運(yùn)行應(yīng)用程序之前， Visual Basic定義該特定類型對(duì)象的屬性和方法，應(yīng)用程序在運(yùn)行時(shí)速度會(huì)更快。 VB從入門(mén)到實(shí)踐 日期型 Date 日期型（ Date）為浮點(diǎn)數(shù)值形式保存，以 8個(gè)字節(jié)存儲(chǔ)。字符型為包含在雙引號(hào)內(nèi)的若干個(gè)字符。 VB從入門(mén)到實(shí)踐 數(shù)值型 Numeric 1．整數(shù) ? 整型：整型取值范圍為 32678～ 32677，以 2個(gè)字節(jié)（ 16位）存儲(chǔ)，用二進(jìn)制碼表示和參加運(yùn)算。讀者需要重點(diǎn)練習(xí)使用Visual Basic集成開(kāi)發(fā)環(huán)境。 （ 3）編寫(xiě)代碼。本節(jié)介紹如何使用 Visual Basic集成開(kāi)發(fā)環(huán)境開(kāi)發(fā)程序界面、設(shè)計(jì)窗體并通過(guò)實(shí)例演示如何使用 Visual Basic進(jìn)行應(yīng)用程序開(kāi)發(fā)。 Visual Basic提供了更為強(qiáng)大功能來(lái)支持大中型數(shù)據(jù)庫(kù)，如 Oracle、 SQL Server、 Sybase等。 ? 企業(yè)版為專業(yè)編程人員開(kāi)發(fā)程序提供了功能強(qiáng)大的組內(nèi)分布式應(yīng)用程序。本章內(nèi)容包括： ? Visual Basic特點(diǎn) ? Visual Basic安裝 ? Visual Basic集成開(kāi)發(fā)環(huán)境 VB從入門(mén)到實(shí)踐 Visual Basic簡(jiǎn)介 Visual Basic是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)機(jī)制的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言。它可用于開(kāi)發(fā) Windows環(huán)境下的各類應(yīng)用程序。 VB從入門(mén)到實(shí)踐 Visual Basic的特點(diǎn) 1．可視化編程 2．面向?qū)ο蟮某绦蛟O(shè)計(jì) 3．事件驅(qū)動(dòng)機(jī)制 4．強(qiáng)大開(kāi)放的特點(diǎn) VB從入門(mén)到實(shí)踐 集成開(kāi)發(fā)環(huán)境 VB從入門(mén)到實(shí)踐 集成開(kāi)發(fā)環(huán)境 VB從入門(mén)到實(shí)踐 面向?qū)ο蠊δ? 從 Visual Basic 4開(kāi)始，用戶可以通過(guò)類模型方式創(chuàng)建和使用對(duì)象。 VB從入門(mén)到實(shí)踐 Inter功能 互聯(lián)網(wǎng)（ Inter）在現(xiàn)在通訊日益發(fā)達(dá)的信息世界占據(jù)了重要的地位。 VB從入門(mén)到實(shí)踐 開(kāi)發(fā)界面 1．標(biāo)題欄 2．菜單欄 3．工具欄 4．工具箱 5．窗體設(shè)計(jì)窗口 6．工程資源管理器 7．“屬性”面板 8．“布局”面板 VB從入門(mén)到實(shí)踐 窗體使用 應(yīng)用程序界面是直接面對(duì)用戶的窗體及其他控件。 （ 4）測(cè)試和調(diào)試程序。下一章將介紹數(shù)據(jù)類型、變量和常量。 ? 長(zhǎng)整型：長(zhǎng)整型取值范圍為 2147483648～ 2147483647，以4個(gè)字節(jié)（ 32位）存儲(chǔ)。 【 示例 23】 顯示不同類型字符串。默認(rèn)日期范圍為 1/1/100～ 1/1/9999。 VB從入門(mén)到實(shí)踐 變體型 Variant 變體型（ Variant）能保存所有類型數(shù)據(jù)，可以隨時(shí)轉(zhuǎn)換該數(shù)據(jù)為其他類型。 VB從入門(mén)到實(shí)踐 變量作用域 聲明變量可以使用 Dim、 Private、 Public、 Static作為關(guān)鍵字。 ? 變量名不能是 Visual Basic的保留字，如 Name、 For等。 Visual Basic可以通過(guò)聲明靜態(tài)變量來(lái)保存記憶變量數(shù)值。顯式聲明使用 Option Explicit語(yǔ)句。如果長(zhǎng)于該長(zhǎng)度，自動(dòng)截取等于該長(zhǎng)度的字符，其余部分將被截取。用戶可以在程序開(kāi)發(fā)中直接使用該常量。變量包括多種數(shù)據(jù)類型， Visual Basic中自定義常量數(shù)量龐大不易于記憶和開(kāi)發(fā)使用。 [Let] varName = Expression VB從入門(mén)到實(shí)踐 數(shù)學(xué)運(yùn)算語(yǔ)句 數(shù)學(xué)運(yùn)算 運(yùn)算符號(hào) 加法 + 減法 乘法 * 除法 / 整除 \ 求模運(yùn)算 Mod 指數(shù)運(yùn)算 ^ (TxtTax+100)*VB從入門(mén)到實(shí)踐 加法和減法 1．加法運(yùn)算 Result = Expression1+ Expression2 2．減法運(yùn)算 Result = Number1 Number2 VB從入門(mén)到實(shí)踐 乘法和除法 1．乘法運(yùn)算 Result = Number1*Number2 2．除法運(yùn)算 Result = Number1/Number2 Result = Number1\Number2 Result = Number1 Mod Number2 VB從入門(mén)到實(shí)踐 指數(shù)運(yùn)算 Visual Basic中指數(shù)運(yùn)算符是符號(hào)“ ^”，用來(lái)求一個(gè)數(shù)字的次方。 X and Y Or 或 左右操作數(shù)只要一個(gè)為 True，結(jié)果為 True。代碼模塊包括三種類型：窗體模塊、標(biāo)準(zhǔn)模塊和類模塊?？稍跇?biāo)準(zhǔn)模塊中編寫(xiě)該公共代碼并允許被其他窗體或模塊調(diào)用。本節(jié)將介紹如何編寫(xiě)和調(diào)用事件過(guò)程。為了更好的編寫(xiě)代碼，可以使用續(xù)行符（一個(gè)空格和一個(gè)下劃線）將一段長(zhǎng)語(yǔ)句分成多行。添加注釋需要在 Visual Basic一條語(yǔ)句的最后添加注釋符（ 39。 ? 命名不可以和默認(rèn)關(guān)鍵字同名。判斷語(yǔ)句為根據(jù)不同的判斷結(jié)果進(jìn)行不同的操作。 VB從入門(mén)到實(shí)踐 If語(yǔ)句 應(yīng)用程序中可能只需要運(yùn)行某個(gè)符合條件的語(yǔ)句。循環(huán)語(yǔ)句主要在程序中重復(fù)運(yùn)行特定任務(wù)。 Do [{While|Until} condition] [statements] [Exit Do] [statements] Loop VB從入門(mén)到實(shí)踐 While循環(huán) 在 Visual Basic應(yīng)用程序開(kāi)發(fā)中，經(jīng)常可以看到類似 WhileWEnd這樣的循環(huán)語(yǔ)句。 VB從入門(mén)到實(shí)踐 常見(jiàn)問(wèn)題及解答 1．是否可以使用多重 If語(yǔ)句代替 Select Case語(yǔ)句？ 2．運(yùn)行包括循環(huán)語(yǔ)句的程序時(shí)系統(tǒng)沒(méi)有任何反映？ 3． For循環(huán)與 Do循環(huán)、 While循環(huán)有什么區(qū)別？ VB從入門(mén)到實(shí)踐 小結(jié) 本章主要介紹了判斷語(yǔ)句和循環(huán)語(yǔ)句的定義，主要包括 If語(yǔ)句和 Select Case語(yǔ)句、 For循環(huán)、 Do循環(huán)、 While循環(huán)、枚舉循環(huán)的語(yǔ)法知識(shí)，以及如何根據(jù)應(yīng)用程序需要使用判斷和循環(huán)語(yǔ)句。本節(jié)介紹的過(guò)程是用戶創(chuàng)建的自定義過(guò)程。函數(shù)與子過(guò)程區(qū)別為，函數(shù)帶有返回值，而子過(guò)程沒(méi)有返回值。在 Arglist中，可以使用 As子句來(lái)指定任何傳給該過(guò)程的參數(shù)的數(shù)據(jù)類型。使用數(shù)組可以縮短和簡(jiǎn)化程序，可以利用索引值設(shè)計(jì)循環(huán)，高效處理各種程序運(yùn)行需要。本節(jié)將介紹固定數(shù)組的定義和使用方法。該語(yǔ)句用來(lái)指定數(shù)組下標(biāo)默認(rèn)下界。本節(jié)介紹動(dòng)態(tài)數(shù)組定義和使用方法。 【 實(shí)例 61】 計(jì)算數(shù)組最大值。Visual Basic不僅提供了功能強(qiáng)大的程序設(shè)計(jì)環(huán)境，也提供了一個(gè)界面友好、簡(jiǎn)便實(shí)用的程序調(diào)試工具。通常是輸入不正確的代碼，包括錯(cuò)誤地輸入關(guān)鍵字、遺忘了標(biāo)點(diǎn)符號(hào)或引用不正確的數(shù)據(jù)結(jié)構(gòu)。有時(shí)語(yǔ)法沒(méi)有錯(cuò)誤，但 Visual Basic中卻無(wú)法運(yùn)行程序。標(biāo)準(zhǔn)代碼如下： ? On Error GoTo line發(fā)生錯(cuò)誤時(shí)，跳轉(zhuǎn)到指定處理錯(cuò)誤程序代碼。 （ 3）繼續(xù)嘗試糾正錯(cuò)誤并重新運(yùn)行該語(yǔ)句。快捷鍵為 Shift+F8。如果為多個(gè)變量還可以通過(guò)監(jiān)視窗體方法來(lái)觀察變量值。用戶通過(guò)窗體及其所見(jiàn)控件與應(yīng)用程序進(jìn)行交互操作。一般包括一個(gè)標(biāo)準(zhǔn)窗體，其界面組成如圖 所示。如果程序包括多個(gè)窗體，必須將其中一個(gè)設(shè)為“啟動(dòng)窗體”或在 Main過(guò)程中設(shè)定。其操作如最大化、最小化、關(guān)閉將同步操作子窗體。 VB從入門(mén)到實(shí)踐 MDI窗體實(shí)例 本節(jié)創(chuàng)建包含一個(gè) TextBox控件和 CommandButton控件的MDI窗體。本章包括： ? 菜單欄 ? 彈出式菜單 ? 工具欄 VB從入門(mén)到實(shí)踐 菜單欄 菜單是用戶界面中的重要組成部分。通常用于對(duì)窗體中特定區(qū)域操作或選項(xiàng)進(jìn)行操作，又被稱為上下文菜單，具有使用方便、靈活性較強(qiáng)的特點(diǎn)。 VB從入門(mén)到實(shí)踐 工具欄 工具欄（ Toolbox）通常包含對(duì)應(yīng)應(yīng)用程序菜單命令的按鈕，進(jìn)一步便捷應(yīng)用程序命令的使用。 VB從入門(mén)到實(shí)踐 編寫(xiě)代碼 通過(guò)以上小節(jié)所述步驟，已經(jīng)創(chuàng)建一個(gè)完整“工具欄”框架。至此編寫(xiě)代碼結(jié)束。 Visual Basic程序中菜單和工具欄是實(shí)現(xiàn)程序功能的重要組成部分，為菜單和工具欄編寫(xiě)代碼需要結(jié)合實(shí)例多分析實(shí)踐。本節(jié)介紹 Msgbox函數(shù)的用法。 VB從入門(mén)到實(shí)踐 使用 Inputbox函數(shù) 使用 Msgbox函數(shù)可以讓用戶選定指定結(jié)果。 VB從入門(mén)到實(shí)踐 Inputbox函數(shù)實(shí)例 【 示例 107】 程序窗體包含兩個(gè)文本框和兩個(gè)CommandButton控件。 VB從入門(mén)到實(shí)踐 使用 CommonDialog控件 內(nèi)置信息對(duì)話框 CommonDialog控件可以訪問(wèn)以下 Windows標(biāo)準(zhǔn)對(duì)話框： ? 打開(kāi) Open對(duì)話框：允許用戶選取指定文件的名稱和位置。如要使用這個(gè)屬性，必須先將Flags屬性設(shè)置為 cdlCFEffects。 FontSize 字體大小 返回選定字體的大小?！邦伾睂?duì)話框用以從調(diào)色板選擇顏色，或是生成和選擇自定義顏色。 FontItalic 斜體 返回是否選定了斜體。 ? 字體 Font對(duì)話框：允許用戶選取系統(tǒng)字體并設(shè)置其屬性。一個(gè) CommandButton控件顯示 Inputbox函數(shù)，輸入“姓名”字符串顯示在“姓名”文本框。用戶可能還需要輸入信息以響應(yīng)程序運(yùn)行，在 Visual Basic中可以使用 Inputbox函數(shù)。 Msgbox(Prompt[, Buttons] [, Title] [, Helpfile, ConText]) VB從入門(mén)到實(shí)踐 從 Msgbox函數(shù)返回值 Msgbox函數(shù)最重要作用是接受用戶選擇結(jié)果，將返回值賦予程序繼續(xù)運(yùn)行。常見(jiàn)的信息對(duì)話框包括顯示信息和接受信息窗體。用戶定制工具欄必須設(shè)置 Allowcustomize屬性為 True，用戶可以雙擊工具欄訪問(wèn)自定義工具欄對(duì)話框。通過(guò)“工具欄”自身ButtonClick事件可以為其編寫(xiě)代碼。本小節(jié)將介紹如何創(chuàng)建工具欄以及編寫(xiě)程序響應(yīng)工具欄事件。注意彈出式菜單應(yīng)隱藏起來(lái)，避免顯示在菜單欄上。用戶對(duì)應(yīng)用文檔的許多操作命令都可以從菜單開(kāi)始。 圖 運(yùn)行窗體 VB從入門(mén)到實(shí)踐 常見(jiàn)問(wèn)題及解答 1．如何在運(yùn)行時(shí)在窗體標(biāo)題欄上顯示程序名稱？ 2．如何更改窗體背景顏色？ 3． BorderStyle屬性中的 vbSizable和 vbFixedSingle有什么區(qū)別？ VB從入門(mén)到實(shí)踐 小結(jié) 本章主要介紹了 SDI窗體的創(chuàng)建和使用方法、 MDI窗體的創(chuàng)建和使用方法。Autoshowchildren屬性決定了子窗體在加載時(shí)是否自動(dòng)顯示?！瓣P(guān)于窗體”是 Windows應(yīng)用程序中主要窗體，用以聲明程序名稱、版本、公司名稱。 VB從入門(mén)到實(shí)踐 公共屬性 Visual Basic中所有對(duì)象屬性都不盡相同。本章內(nèi)容包括： ? 單文檔窗體。 【實(shí)例 71】 程序處理不存在圖片文件錯(cuò)誤?？旖萱I為Ctrl+Shift+F8。設(shè)計(jì)模式下可以進(jìn)行程序的界面設(shè)計(jì)和代碼編寫(xiě)。 ? On Error GoTo 0發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序代碼。當(dāng)出現(xiàn)運(yùn)行錯(cuò)誤時(shí)， Visual Basic會(huì)自動(dòng)終止應(yīng)用程序，并彈出錯(cuò)誤信息提示。通