VB實驗指導(dǎo)書_燕山大學

1、Visual Basic實驗指導(dǎo)書軟件技術(shù)基礎(chǔ)（Visual Basic 程序設(shè)計）實驗指導(dǎo)書院系：_班級：_學號：_姓名：_燕山大學計算機教學實驗中心2005年3月說 明目前，面向?qū)ο蟪绦蛟O(shè)計語言VB已成為我校信息基礎(chǔ)教學的主要內(nèi)容。本實驗手冊包含三方面內(nèi)容：實驗指導(dǎo)、實驗報告和實驗作業(yè)，成為我校VB課程上機實驗指導(dǎo)的主要依據(jù)。實驗報告部分由課內(nèi)實驗完成，實驗作業(yè)部分由學生課下完成。本手冊由燕山大學計算機基礎(chǔ)教研室婁鳳偉老師執(zhí)筆，李陽明老師審核。由于編寫倉促，難免有錯誤和不足之處，請各位老師和同學指正。 目 錄實驗一 VB集成環(huán)境及簡單應(yīng)用程序的建立 .4實驗二 Visual Basic語言

2、基礎(chǔ).9實驗三 順序結(jié)構(gòu)程序設(shè)計.12實驗四 選擇結(jié)構(gòu)程序設(shè)計14實驗五 循環(huán)結(jié)構(gòu)程序設(shè)計17實驗六 數(shù)組的使用.19實驗七 過程.21實驗八 函數(shù) .23實驗九 文件的基本操作 .24實驗十 VB的窗體 . 27實驗十一 VB的常用控件（一）.29實驗十二 VB的常用控件（二）.31附錄 考試系統(tǒng)模擬試題及筆試題 33實驗一 VB集成環(huán)境及簡單應(yīng)用程序的建立一、實驗?zāi)康?1)掌握VB60的啟動與退出。(2)了解VB60的集成開發(fā)環(huán)境，熟悉各主要窗口的作用。(3)了解VB60應(yīng)用程序的開發(fā)過程。(4)理解VB中對象的概念。(5)掌握在VB60中使用幫助的方法。二、相關(guān)知識1VisualBasi

3、c60的啟動與退出 VisualBasic60的啟動與退出與一般的Windows應(yīng)用程序的啟動與退出一樣，可以通過“開始”菜單啟動VisualBasic60，也可以將VisualBasic60程序以快捷方式放在桌面上，然后雙擊該圖標將其啟動；退出可以在“文件”中選擇“退出”、或雙擊窗口控制菜單圖標、或單擊窗口關(guān)閉按鈕。2VisualBasic60的集成開發(fā)環(huán)境 VB60的集成開發(fā)環(huán)境在一個公共環(huán)境中集成了設(shè)計、編輯、編譯和調(diào)試等許多不同的功能，它由菜單、工具欄、工具箱、瀏覽器及完成各種特定功能的窗口組成。3VB應(yīng)用程序的開發(fā)過程 VB采用的是一種“可視化”的編程方法，可以先設(shè)計應(yīng)用程序的外觀，

4、然后再編寫不同部件的程序代碼。4VB中對象的概念 對象是基本的運行時的實體，它既包括了數(shù)據(jù)(對象屬性)，也包括作用于對象的操作(方法)和對象的響應(yīng)(事件)。對象的屬性用來表示對象的狀態(tài)，對象的方法決定了對象可以進行的操作。不同的對象具有不同的屬性和方法，VB中最主要的兩種對象是窗體和控件，程序設(shè)計中，基本的設(shè)計機制就是改變對象的屬性、使用對象的方法和為對象編寫事件過程。5VB60的幫助功能VB60是VisualStudi060的套件之一，VB60本身并不帶幫助，微軟公司為VisualStudio60提供了一套MSDN Library幫助系統(tǒng)。MSDN(Microsoft Developer N

5、etwork)是使用Microsoft開發(fā)工具或是以Windows或Internet為開發(fā)平臺的開發(fā)人員的基本參考，它是一本集程序設(shè)計指南、用戶使用手冊以及庫函數(shù)于一體的電子詞典，使用MSDN Library的幫助功能，不僅可以引導(dǎo)初學者入門，還可幫助各種層次的用戶完成應(yīng)用程序的設(shè)計。三、實驗舉例(實例1) VB的啟動與退出。(1)啟動VB60通過“開始”菜單啟動VisualBasic60，操作步驟為： 單擊Windows桌面任務(wù)欄的“開始”按鈕，彈出“開始”菜單，將鼠標指針指向“程序”選項，在“程序”項的級聯(lián)菜單中選中“MicrosoftVisualBasic60中文版”，然后在其打開的下級

6、級聯(lián)菜單中將光標條定位在“MicrosoftVisualBasic60中文版”命令上。 單擊鼠標左鍵，屏幕出現(xiàn)如圖1-1所示的VisualBasic60啟動畫面。 要建立一個新的工程，選擇“新建”選項卡，從中選擇“標準EXE”項(默認)，然后單擊“打開”按鈕，進入如圖1-2所示的VB6.0應(yīng)用程序集成開發(fā)環(huán)境。圖1-1 啟動VB6.0(2)退出VB 在圖1-2所示的VisualBasic 60應(yīng)用程序集成開發(fā)環(huán)境窗口中，從“文件”菜單中選擇“退出”命令、或雙擊窗口控制菜單圖標、或單擊窗口關(guān)閉按鈕均可退出VisualBasic 60。在退出時，系統(tǒng)可能會提示用戶保存工程文件和窗體文件，有關(guān)保存文

7、件的操作在實例3中進行詳細說明。VB主窗口 工程資源 管理器窗口工具箱窗體窗口 屬性窗口 窗體布局立即窗口 窗口 圖1-2 VB60應(yīng)用程序集成開發(fā)環(huán)境(實例2) 進入VB集成開發(fā)環(huán)境。1VB的三種工作模式(1) 設(shè)計模式：啟動VB，選擇新建一個新的工程，進入如圖1-2所示的VisualBasic60集成環(huán)境。此時，標題欄中的標題為“工程1MicrosoftVisualBasic設(shè)計”，表明集成開發(fā)環(huán)境處于設(shè)計模式。(2)運行模式：用鼠標單擊工具欄中的“!”按鈕(啟動)，或在“運行”菜單中選擇“啟動”命令，此時，標題欄中的標題為“工程1-Microsoft Visual Basic運行，表明集

8、成開發(fā)環(huán)境處于運行模式。(3)中斷模式：在“運行”菜單中選擇“中斷”命令，或按(Ctrl+Break)鍵，此時，標題欄中的標題為“工程1-Microsoft Visual Basicbreak”，表明集成開發(fā)環(huán)境處于中斷模式。2VB集成開發(fā)環(huán)境中的各種窗口（如1-2所示）(1)窗體窗口(2) 屬性窗口(3) 工程資源管理器窗口(4) 代碼窗口(5) 工具箱3打開VB集成開發(fā)環(huán)境中的工具欄(1)在“視圖”菜單中選擇“工具欄”，在它的級聯(lián)菜單中列出VB提供的工具欄及當前工具欄的狀態(tài)。(2)選擇“編輯”命令，打開編輯工具欄。(3)選擇“窗體編輯器”命令，打開窗體編輯器工具欄。(4)選擇“調(diào)試”命令，

9、打開調(diào)試工具欄。(實例3) 建立一個簡單的VB應(yīng)用程序 首先建立一個自己的文件夾，以便將練習中生成的各種文件保存在該文件夾中，這里在E盤建立一個VBSY文件夾。1建立一個新的工程 啟動VB 60，選擇新建一個新的工程，此時進入到VB60集成開發(fā)環(huán)境，屏幕上出現(xiàn)一個默認的“Forml”窗體。2設(shè)置窗體屬性 選中窗體窗口中的窗體，在屬性窗口中選中(名稱)屬性，將其屬性值改為“Frmexp”；再選中Caption屬性，然后在右邊列中輸入“窗體”，此時窗體的標題欄變?yōu)椤按绑w”，窗體窗口的標題欄為“工程1Frmexp (Form)”。3在窗體上繪制控件（1）用鼠標單擊工具箱中的標有“A”的按鈕（標簽），

10、在窗體的合適位置畫出一個矩形區(qū)域，在窗體上出現(xiàn)一個標簽控件，用鼠標選中該控件，然后在屬性窗口中將其(名稱)屬性設(shè)為“LblDisp”；Caption屬性設(shè)為“VB集成開發(fā)環(huán)境”。（2）用鼠標單擊工具箱中的命令按鈕，在窗體的合適位置畫出一個命令按鈕，用鼠標選中該命令按鈕，然后在屬性窗口中將其(名稱)屬性設(shè)為“cmdDisp”；Caption屬性設(shè)為“顯示”。(3) 在窗體中再添加一個命令按鈕，然后將其(名稱)屬性設(shè)為“cmdClear'；Caption屬性設(shè)為“清除”。窗體如圖1-3所示。 圖1-3窗體設(shè)計畫面 圖1-4 代碼窗口4編寫程序代碼 (1)雙擊“顯示”按鈕，打開代碼窗口，如圖

11、1-4 所示，然后輸入如下代碼：Private Sub cmdDisp_CliCk() LblDiSpViSible = TrueEnd Sub (2)在代碼窗口的對象列表框中選擇對象“cmdClear”；在過程列表框中選擇事件Click(如圖1-4)，然后輸入如下代碼： Private Sub cmdClear_Click() LblDispVisible = False End Sub5運行程序關(guān)閉代碼窗口，用鼠標單擊工具欄中啟動按鈕。此時，程序開始運行，并出現(xiàn)圖1-5畫面，單擊“清除”按鈕，窗口上的文字消失；單擊“顯示”按鈕，又使文字顯示出來。 圖1-5 運行程序窗口6保存文件 在選擇“

12、文件”“保存工程”菜單命令，或單擊工具欄中的“保存工程”按鈕。由于是第一次保存文件，因此在彈出的文件另存為對話框中提示保存窗體文件，將窗體文件保存在E盤的VBSY文件夾下并起名為Vbsy1_1frm，此時，系統(tǒng)會繼續(xù)提示保存工程文件，將工程文件也保存在E盤的VBSY文件夾下并起名為Vbsyl_1vbp。7生成可執(zhí)行文件選擇“文件”“生成Vbsyl_1exe”菜單命令，彈出“生成工程”對話框，此時可執(zhí)行文件名已默認為Vblsy_1exe，如圖1-6所示。在該對話框中單擊“選項”按鈕，打開“工程屬性”對話框，如圖1-7所示，在該對話框中可以設(shè)置版本號、版本信息、編譯選項等。最后單擊“確定”按鈕進行

13、編譯。圖1-6 “生成工程”對話框 圖1-7 “工程屬性”對話框8運行可執(zhí)行文件 在E盤的VBSY文件夾下雙擊Vbsyl1exe文件，運行該可執(zhí)行文件。啟動該程序后的窗口如圖1-5所示。 (實例4)使用VB的幫助。 選擇“幫助”“內(nèi)容”菜單命令，彈出“MSDN library Visual Studi060”窗口。1利用目錄瀏覽主題 選擇“目錄”標簽，在左側(cè)主題窗口中依次單擊“sual Bask文檔”“使用sualBaSic”“程序員指南”“SualBaSiC基礎(chǔ)”“窗體、控件和菜單”，最后選擇“設(shè)計窗體”主題，此時右側(cè)窗口中顯示出相應(yīng)內(nèi)容。2利用索引查找信息 選擇“索引”標簽，在“鍵入要查找

14、的關(guān)鍵字”輸入框中輸入“SelectCase”，此時光標定位在索引項的列表的“SelectCase塊”項目上，單擊“顯示”按鈕，右側(cè)窗口中即顯示出相應(yīng)內(nèi)容。實驗二 Visual Basic語言基礎(chǔ)一、實驗?zāi)康?1)掌握Visual Basic的數(shù)據(jù)類型和變量定義方法。(2)正確使用Visual Basic的運算符和表達式。(3)掌握Visual Basic中數(shù)據(jù)輸入、輸出的方法。(4)掌握Visual Basic常用函數(shù)的使用方法。(5)學會用賦值語句構(gòu)造簡單的順序結(jié)構(gòu)程序。二、相關(guān)知識1VB的數(shù)據(jù)類型 VB提供了豐富的數(shù)據(jù)類型，所有的數(shù)據(jù)都具有數(shù)據(jù)類型，如果數(shù)據(jù)的數(shù)值和數(shù)據(jù)類型不匹配，就會出

15、現(xiàn)錯誤或者造成內(nèi)存空間的浪費。VB將數(shù)據(jù)類型分為標準數(shù)據(jù)類型和自定義類型。 標準數(shù)據(jù)類型包括數(shù)值型數(shù)據(jù)類型、非數(shù)值型數(shù)據(jù)類型和變體數(shù)據(jù)類型。其中數(shù)值型數(shù)據(jù)類型包括整型、長整型、單精度型、雙精度型、貨幣型和字節(jié)型；非數(shù)值類型包括日期型、邏輯型、字符型和對象數(shù)據(jù)類型。 除了以上標準數(shù)據(jù)類型外，用戶還可以根據(jù)自己的需要自定義數(shù)據(jù)類型，稱為自定義類型，形式如下： Public|PrivateType 自定義類型名 元素名(下標)As類型名元素名(下標)As類型名End Type2VB變量的聲明 變量是用來在程序運行期間臨時存儲數(shù)值的。聲明變量包括名稱和數(shù)據(jù)類型。3VB的表達式 表達式是指用運算符或圓括

16、號將運算元素連接起來的一個有意義的式子。VB的表達式有下列形式： 算術(shù)表達式：由算術(shù)運算符連接。其運算符的含義、優(yōu)先級和數(shù)學中的相同，只是 整除運算符()和取模運算符(mod)是新概念，讀者應(yīng)倍加注意。 關(guān)系表達式：由關(guān)系運算符連接，其運算結(jié)果是一個邏輯量。運算符兩邊的操作數(shù)如果是數(shù)值型，則按其大小比較；如果是字符型，則按其字符編碼的碼值從左到右一一比較。邏輯表達式：由邏輯運算符連接，運算結(jié)果為邏輯值。字符串表達式：由字符串運算符“+”和“&”連接。它們的功能都是將兩個字符串拼接起來。 “+”運算符兩邊的操作數(shù)應(yīng)均為字符型；“&”運算符兩邊的操作數(shù)可以是字符型或者是數(shù)值型。4V

17、B的內(nèi)部函數(shù)VB提供了大量的內(nèi)部函數(shù)供用戶編程時使用。內(nèi)部函數(shù)按功能分為數(shù)學函數(shù)、轉(zhuǎn)換函數(shù)、字符串函數(shù)、日期函數(shù)和格式輸出函數(shù)。用戶可以通過VB的“幫助”菜單獲得所有內(nèi)部函數(shù)的使用方法。三、實驗舉例(實例1) 邏輯型數(shù)據(jù)的使用。 Private Sub Form_cliCk() Dim a AS Boolean， b AS Boolean Dim X AS Integer， y AS IntegerX = 0y = -2a = Xb = yPrint a,b,x,ya = Trueb = FalSeX = aY=bPrint x,y,a,bEnd Sub(實例2) 日期型數(shù)據(jù)。 Private

18、 Sub Form_cliCk() Dim a AS Date， S AS Date， d AS Date Dim f AS Date， S1 AS Date， S2 AS Date a = #592002# s = #5121999 12：30：15 PM# d = 200112 f = -200112 S1 = 05 S2 = 0 Print a， S Print d， f Print Sl， S2 End Sub (實例3)關(guān)系運算符。 Private Sub Form_cliCk() Print ”abcde” = ”abd” Print ”abcde， > ”aba” Prin

19、t ”BC” >= ”ABCFF” Print 31 < 3 Print ”34” < ”3” Print ”abc” <> ”ABC” End Sub 在比較時注意以下原則：(1)如果兩個操作數(shù)是數(shù)值型，則按其大小進行比較。(2)如果兩個操作數(shù)是字符型，則按字符的ASC碼值從左到右一一比較，也就是說，先比較兩個字符串中的第一個字符，其ASC碼值大的字符串大，如果第一個字符相同，則比較第二個字符，依此類推，直到比出結(jié)果為止。 (實例4) 算術(shù)運算函數(shù)的使用。 Private Sub Form_cliCk() Print Abs(-1.7)， Log(12)， Sq

20、r(9) Print Exp(3)， Sin(30 * 3.1415926/180) Print Int(-3.5)， Fix(-3.5), Round(1.5)， Round(1.512,2) End Sub(實例5) 求余數(shù)(模)運算符的使用。Private Sub Form_cliCk()Print 20 Mod 3Print 20 Mod -3Print -20 Mod 3Print -20 Mod 3End Sub觀察運行結(jié)果。實驗三 順序結(jié)構(gòu)程序設(shè)計一、實驗?zāi)康?1)掌握Visual Basic語言中數(shù)據(jù)輸入方法。(2)掌握Visual Basic語言中數(shù)據(jù)輸出方法。(3)正確使用

21、Visual Basic賦值語句。(4)學會設(shè)計簡單的順序結(jié)構(gòu)程序。二、相關(guān)知識1賦值語句賦值語句是VB中使用頻率最高的語句，這個語句的含義就是將等號右邊表達式的值傳送給等號左邊的對象屬性或變量，使其可以在程序運行中改變。使用賦值語句應(yīng)注意以下幾點：(1)只有當表達式是一種與變量兼容的數(shù)據(jù)類型時，該表達式的值才可以賦給變量或?qū)傩?。不能將字符串表達式的值賦給數(shù)值變量，也不能將數(shù)值表達式的值賦給字符串變量。如果這樣做，就會在解釋時出現(xiàn)錯誤。(2)可以把字符串或數(shù)值表達式賦給Variant變量，但反過來就必須分析：任何除Null之外的Variant都可以賦給字符串變量，但只有當Variant的值可以

22、解釋為一個數(shù)時才能賦給數(shù)值變量。(3)將一種數(shù)據(jù)類型的表達式賦給另一種數(shù)值類型的變量時，系統(tǒng)會強制將該表達式的值轉(zhuǎn)換為變量的數(shù)據(jù)類型。2InputBoxO函數(shù) 該函數(shù)產(chǎn)生一個對話框，在對話框中顯示提示信息，等待用戶輸入正文或按下按鈕，此時返回包含文本框內(nèi)容的字符串。作為對話框消息出現(xiàn)的字符串表達式，最大長度是1024個字符，由所用字符的寬度決定。如果該消息包含多個行，則可在各行之間用回車符vbCr、換行符vbLf或回車換行符的組合vbCrLf來分隔。3MsgBox0函數(shù) MsgBox()函數(shù)也產(chǎn)生一個對話框，在對話框中顯示消息，等待用戶單擊按鈕，并返回一個Integer數(shù)， 告訴用戶單擊了哪一

23、個按鈕。函數(shù)中顯示在對話框中的消息是一個字符串表達式，其規(guī)則與InputBox函數(shù)相同。MsgBox()函數(shù)根據(jù)所選定參數(shù)的不同，可以彈出不同形式的消息框供用戶使用。4Print語句Print實質(zhì)是一種方法，在這里我們稱它為語句是因為在窗體上Print方法的對象名可以省略，省略后的形式和原Basic中的Print語句相同。該語句最常用的兩個參數(shù)是Spc(n)和Tab(n)，其中Spc(n)用來在輸出中插入空白字符，n為要插入的空白字符數(shù)。Tab(n)用來將插入點定位在絕對列號上，n為列號。三、實驗舉例(實例1) MsgBox函數(shù)的使用。 Private Sub Commandl_C1iCk()

24、 Dim r AS Integer MsgBox”最簡單的MsgBox”R = MsgBox(“復(fù)雜的MsgBox”， vbYesNo+vbCritical + vbDefaultButton2，-”你看到了么?“） Print”你按的值為”；r End Sub 觀察運行結(jié)果。(實例2) 已知圓的半徑R，求圓的周長和面積。(1)選擇“文件”菜單上的“新建工程”命令，新建個工程。(2)在窗體上創(chuàng)建兩個標簽(Label)，調(diào)整位置和大小，設(shè)置標簽Labell的Caption屬性為“圓的周長是：”、標簽Label2的Caption屬性為“圓的面積是：”。(3)打開代碼窗口，輸入下面程序代碼。Priv

25、ate Sub Form_Click()Dim r as Integer， S as Single，area as Single r = 3S = 2 * 3.14159 * rArea = 3.14159 * r 2Label1Caption=“圓的周長是：”+Format(s)Label2Caption=“圓的面積是：”，+Format(area)End Sub運行程序,求圓的周長和面積。(實例3) InputBOx函數(shù)的不同用法。Private Sub Form_CliCk() Dim StrName AS String ， Title AS String Dim Default AS

26、String， MyValue AS String ，設(shè)置提示信息 StrName = ”請輸入數(shù)據(jù)”，設(shè)置標題Title = ”InputBox函數(shù)使用舉例”設(shè)置缺省值Default = ”2”第一種：顯示提示信息、標題及缺省值MyValue = InputBox(StrName， Title， Default)，第二種：指定坐標：在1000，1000的位置顯示對話框MyValue = InputBox(StrName， Title， Default，1000,1000)，第三種：顯示“幫助”按鈕，使用幫助文件MyValue = InputBox(StrName，Title， ， ， ，”D

27、EMO.HLP”， 10)End Sub觀察結(jié)果。實驗四 選擇結(jié)構(gòu)程序設(shè)計一、實驗?zāi)康?1)掌握邏輯表達式的正確書寫形式。(2)學會單分支和雙分支結(jié)構(gòu)程序的使用。(3)學會多分支條件語句的使用。(4)掌握情況語句的使用，弄清楚情況語句和多分支條件語句的區(qū)別。二、相關(guān)知識 選擇結(jié)構(gòu)也叫做條件分支結(jié)構(gòu)，即根據(jù)條件選擇要執(zhí)行的分支。Visual Basic中常用的條件執(zhí)行語句有：IfThenElseEndlf語句；Select Case語句。1IfThenElseEndlf語句 語句中的判斷條件是數(shù)值表達式或字符串表達式，其運算結(jié)果為True或False。 可以使用單行形式來做短小簡單的程序。在單行

28、形式中，按照IfThen判斷的結(jié)果也可以執(zhí)行多條語句。所有語句必須在同一行上并且以冒號分開，如： If A>10 Then A=A+1：B二B+A：C=C+B 但使用塊形式的情況更多，塊形式具有更強的結(jié)構(gòu)化與適應(yīng)性，并且通常比較容易閱讀、維護及調(diào)試。Else和Elself子句都是可選項。在If塊中，可以放置任意多個Elself子句，但是都必須在Else子句之前。If塊也可以嵌套。當程序運行到一個If塊時，條件表達式將被測試，如果結(jié)果為True，則在Then之后的語句會被執(zhí)行。反之，則每個ElseIf部分的條件表達式會依次計算并加以測試。如果找到某個為Tme的條件時，則其緊接在相關(guān)的The

29、n之后的語句會被執(zhí)行。如果沒有一個ElseIf條件表達式為True(或是根本就沒有Elself子句)，則程序會執(zhí)行Else部分的語句。而在執(zhí)行完Then或Else之后的語句后，會從End If之后的語句繼續(xù)執(zhí)行。2Select CaseEnd Select語句 Select CaseEnd Select語句是多分支語句，其中的判斷條件是任何數(shù)值表達式或字符串表達式。根據(jù)表達式的值，來決定執(zhí)行幾組語句中的其中之一。判斷條件有以下幾種形式： 一個或多個表達式，表達式之間用“，”隔開。 為某個數(shù)值范圍，格式是：表達式1 To 表達式2 為某個關(guān)系表達式，格式是：IS<關(guān)系符><表達

30、式>三，實驗舉例(實例1) 輸入一個數(shù)，判斷這個數(shù)的奇偶性。Private Sub command1_click()Dim a As IntegerA = InputBox(”輸入一個數(shù)“)If a mod 2 = 1 Then MsgBox a & ”是奇數(shù)” Else MsgBox a & ”是偶數(shù)” End lf 圖4-1例1運行結(jié)果 End Sub 程序運行時，單擊Commandl按鈕，在彈出的對話框中輸入66，單擊“確定”按鈕，消息框提示66是偶數(shù)，如圖4-1所示。 (實例2) 判斷你輸入的字符的種類。 若是數(shù)字，則提示為數(shù)字；若是小寫字母，則提示此字母為小寫字

31、母，并將該字母轉(zhuǎn)換為大寫字母；若為大寫字母，則提示此字母為大寫字母，并將該字母轉(zhuǎn)換為小寫字母；否則輸出其他字符。 Private Sub Form_click() Dim a As String*1 Dim b As String*1 A = InputBox(”請輸入一個字符”)If a <= ”9” And a >= ”0“ Then Print a； ”是一個數(shù)字”Elseif a >= ”A” And a <= ”Z” Then B = Chr(Asc(a) +32) 也可以寫為b=LCase(a) Print a； “是一個大寫字母，將”； a； ”變?yōu)樾懙?/p>

32、字母為”；bElself a >= ”a” And a <= ”Z” Then B = UCase(a) 也可以寫為b二Chr(Asc(a) - 32) Print a； ”是一個小寫字母，將“；a； ”變?yōu)榇髮懙淖帜笧椤?；b ElSe Print a； ”是其他字符” End ifEnd Sub分析：通過上面的示例我們知道函數(shù)LCase()和UCase()，它們的作用是將字符串中的大寫字符變?yōu)樾懽址驅(qū)⑿懽址優(yōu)榇髮懽址?；函?shù)Chr()和Asc()函數(shù)，它們是將ASC碼值轉(zhuǎn)換為對應(yīng)的字符和求字符串中首字符的ASC碼值函數(shù)。另外我們也知道了a的ASC碼值比A的ASC碼值大32。

33、觀察運行結(jié)果。(實例3)有A，B，C三個數(shù)，要求按由大到小的順序把它們打印出來。分析：把一組任意數(shù)按大小進行排列是日常工作中經(jīng)常遇到的問題。當碰到的是少量的數(shù)據(jù)要排序時，可以按最基本的方法考慮，將它們一一進行比較。此時，要用到If結(jié)構(gòu)的嵌套形式，嵌套必須完全嵌套，也就是內(nèi)層條件語句必須完全包含在外層條件語句之中。格式為： If<表達式> Then If<表達式>Then <語句塊>Else<語句塊>End If ElseIf<表達式> Then<語句塊>Else<語句塊> End IfEnd If程序如下：Pr

34、ivate Sub Form_click() Dim a As single, b As Single, c As Single a = InputBox(”輸入A的值：”,”輸入A”)b = InputBox(”輸入B的值：”,”輸入B”)c = InputBox(”輸入C的值：”,”輸入C”)If a > b Then If b > C Then Print a， b，CElse if a > C Then Print a,c,b ElsePrint c,a,b End if End ifElseif a > C Then Print b,a,cElse if b&

35、gt;C ThenPrint b,c,aElsePrint c,b,a End if End if End ifEnd Sub實驗五 循環(huán)結(jié)構(gòu)程序設(shè)計一、實驗?zāi)康?(1)掌握For語句的使用。 (2)掌握Do WhileUntilLoop與Doloop WhileUntil兩種循環(huán)語句的使用。 (3)加深理解循環(huán)的概念，掌握循環(huán)的規(guī)則及其執(zhí)行過程。 (4)掌握多重循環(huán)的規(guī)則和程序設(shè)計方法。(6) 學會如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、相關(guān)知識 如果在指定的條件下多次重復(fù)執(zhí)行一組相同的語句可以通過循環(huán)來實現(xiàn)，VB提供了下面幾種形式的循環(huán)語句：1DoLoop循環(huán)語句 Do WhileUnt

36、il<條件> Do 語句塊 語句塊 Exit Do 或 Exit Do 語句塊 語句塊 Loop Loop WhileUntil<條件>2FOR循環(huán)語句 For循環(huán)變量=初值To終值Step步長 語句塊 Exit For 語句塊Next循環(huán)變量3循環(huán)嵌套應(yīng)注意的事項內(nèi)循環(huán)和外循環(huán)的變量不能同名；外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；循環(huán)的轉(zhuǎn)移遵循“允許循環(huán)內(nèi)轉(zhuǎn)移，允許轉(zhuǎn)出，禁止轉(zhuǎn)入”的原則。三、實驗舉例(實例1) 求自然數(shù)N的階乘。 Private Sub Form_Click() Dim s As Single，n As Integer，i As Integer N =

37、 InputBox(“輸入自然數(shù)N”， “求N的階乘”) S = l i = 1 Do While i<=n S = S * i i = i + 1 Loop Print ”n = ”；n,n;”!=”;sEnd Sub分別輸入5,15,觀察結(jié)果.(實例2) 求e = 1+11!+12!+13!+14!+使精度達到10-5。 PriVate Sub Command1_CliCk() Dim Sum AS Double Dim t AS Double Dim i AS integer Sum = 1 t = 1For i = 1 TO 100t = t isum = sum + tif t

38、 < 0.00001 then Exit ForEnd ifNext iMsgBox sumEnd Sub 程序運行結(jié)果為：_。（實驗3）求sin(x)=x-x3/3!+x5/5!-x7/7!+Private Sub Command1_click Dim x AS Double Dim sum AS Double Dim t AS double Dim i AS integerSum= 0X = inputBox(“請輸入X的值“)t = Xi = 1DOsum = sum + tt = -t * X * X/(2*I)/(2*I+1)I=I+1Loop While Abs(t)>

39、0.000001Print sumEnd Sub 結(jié)果為：_。實驗六 數(shù)組的使用一、實驗?zāi)康?(1)掌握數(shù)組的聲明和數(shù)組元素的引用。 (2)掌握固定數(shù)組和動態(tài)數(shù)組的使用方法。 (3)學會利用數(shù)組解決一些較為復(fù)雜的問題。二、相關(guān)知識數(shù)組概念 數(shù)組是一組相同類型的變量的集合，在程序中可以用一個數(shù)組名代表邏輯上相關(guān)的一組數(shù)據(jù)。在Visual Basic中有兩種類型的數(shù)組：固定大小的數(shù)組以及在運行時大小可變的動態(tài)數(shù)組，有時也稱這兩種數(shù)組為定長數(shù)組和可變長數(shù)組。數(shù)組必須先聲明后使用。2. 固定數(shù)組固定大小數(shù)組的聲明形式為： Dim數(shù)組名(下標 ，下標2)As類型其中下標必須是常數(shù)，格式為：下界to上界，

40、省略下界時，默認值為0；省略As系統(tǒng)認為是變體數(shù)組。3動態(tài)數(shù)組 動態(tài)數(shù)組的聲明形式為： Dim數(shù)組名()As類型 此時定義的數(shù)組的大小是不確定的。在使用時，隨時用 ReDim數(shù)組名(下標，下標2) 語句指定數(shù)組的大小。 在定義動態(tài)數(shù)組時首先在過程外使用Dim、Private、Public語句聲明下標為空的數(shù)組，然后在過程中用ReDim語句指明該數(shù)組的大小。4數(shù)組元素數(shù)組聲明時用數(shù)組名表示該數(shù)組的整體，但在具體操作時是針對每個數(shù)組元素進行的，因此，數(shù)組的引用單位是數(shù)組元素。三、實驗舉例(實例1) 打印并輸出5*5方陣中的下三角和上三角元素。 Private Sub Form_click() Di

41、m i， j， sc(4， 4) For i = 0 TO 4For j=0 TO i sc(i， j) = i * 1 + j Print sc(i，j)； “ ”;Next j PrintNext iPrintPrintFor i = 0 TO 4Print Tab(5 *I+1);For j=i TO 4 sc(i， j) =I*1+j Print sc(i，j); “ “;Next jPrint Next iEnd sub觀察輸出結(jié)果。(實例2) 編一個程序，打印符合楊輝三角形的數(shù)據(jù)列。分析：解決此題所用方法的要點是：定義一個二維數(shù)組A，在該數(shù)組中，每行的第一個元素和最后一個元素都為1

42、，其余各元素等于它上面一行的同一列和前列數(shù)據(jù)之和。Private Sub Form_CliCk()Dim a(9， 9) AS integerFor i = 0 To 9 a(i， i) = 1 a(i， 0) = 1Next iFor I =2 to 9 M=I-1For j = 1 To mA(I,j) = a(m，j-1) +a(m,j)Next jNext iFor i = 0 TO 9For j = 0 to i Print a(I,j);Next jPrint Next iend Sub實驗七 過程一、實驗?zāi)康?1)掌握子過程的定義和調(diào)用方法。(2)分清子過程和函數(shù)過程的異同。(3

43、)掌握遞歸概念和使用方法。(4)掌握變量、函數(shù)和過程的作用域。二、相關(guān)知識(1) 子過程是在響應(yīng)事件時執(zhí)行的代碼塊。將模塊中的代碼分成子過程后，在應(yīng)用程序中查找和修改代碼會變得更容易。子過程的語法是：Private|PublicStaticSub 子過程名（形式參數(shù)）語句End Sub 每次調(diào)用過程都會執(zhí)行Sub和End Sub之間的語句?？梢詫⒆舆^程放入標準模塊、類模塊和窗體模塊中。按照缺省規(guī)定，所有模塊中的子過程為Public(公用的)，這意味著在應(yīng)用程序中可隨處調(diào)用它們。在Visual Basic中子過程分為通用過程和事件過程兩類。 通用過程 如果幾個不同的事件過程要執(zhí)行同樣的動作。應(yīng)將

44、這組公共語句放入一分離開的過程(通用過程)中，該通用過程告訴應(yīng)用程序如何完成一項指定的任務(wù)。一旦確定了通用過程，就必須由事件過程來調(diào)用它。 事件過程 當Visual Basic中的對象對一個事件的發(fā)生作出認定時，便自動用相應(yīng)的事件名字調(diào)用該事件的過程。因為名字在對象和代碼之間建立了聯(lián)系，所以說事件過程是附加在窗體和控件上的。(2)子過程的定義可以在“代碼”窗口輸入過程頭并按下回車鍵，系統(tǒng)自動添加End Sub語句；也可以通過“添加過程”對話框完成。(3)過程的調(diào)用與過程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。調(diào)用Sub過程有兩種方法：用Call語句調(diào)用或直接調(diào)用。當使用Call語句時，參數(shù)

45、必須在括號內(nèi)。若直接調(diào)用，則也必須省略參數(shù)兩邊的括號。函數(shù)過程的調(diào)用與VB內(nèi)部函數(shù)的調(diào)用方法相同，可以在表達式中直接使用；也可以像調(diào)用Sub過程一樣，但此時VB將放棄函數(shù)返回值。(4)向過程傳遞參數(shù)有按數(shù)值傳遞和按地址傳遞兩種方法。按地址傳遞參數(shù)使過程用變量的內(nèi)存地址去訪問實際變量的內(nèi)容，這是VB默認的參數(shù)傳遞方式。按值(ByVal)傳遞參數(shù)比按地址(ByRef)快，如果過程中不需改變參數(shù)的值，盡量采用按值(ByVal)來傳遞。一般來說，過程調(diào)用中的參數(shù)個數(shù)應(yīng)等于過程說明的參數(shù)個數(shù)，但也可以是不確定的。VB允許過程接受可選參數(shù)和不定量參數(shù)。三、實驗舉例(實例1)靜態(tài)變量與一般變量對比。Priv

46、ate Sub Command1_click() Dim i As integerPrint ”a”，”b”For I=1 to 10 Call f()Next iEnd SubSub f() Static a as integerDim b As integera = a + 1b = b + 1Print a，bEnd Sub觀察輸出結(jié)果。（實例2）通過點擊窗體事件，來循環(huán)改變窗體標題名字練習。Private Sub Form1_CliCk()Static index As integerindex = index + lSelect case indexCase l Form1.capt

47、ion= ”單項測試題“Case 2 Formlcaption = ”Windows操作題”Case 3 Forml.caption = “Word操作題”Case 4 FormlCaption = “Excel操作題”Case 5 Form1Caption= ”網(wǎng)絡(luò)操作題”Case ElseIndex = 0 End SelectEnd Sub觀察結(jié)果。實驗八 函數(shù)一、實驗?zāi)康?(1)掌握自定義函數(shù)的定義和調(diào)用方法。 (2)掌握形參和實參的對應(yīng)關(guān)系，分清值傳遞和地址傳遞的區(qū)別。 (3)掌握VB窗體模塊、標準模塊的創(chuàng)建和使用。二、相關(guān)知識 Visual Basic包含內(nèi)置的或內(nèi)部的函數(shù)，還可用Function語句編寫自己的Function過程。 函數(shù)過程的語法格式是： Private|Public)StaticFunction函數(shù)名(形式參數(shù)) As函數(shù)類型 語句 End Function Function過程的特點是： 一般來說，語句或表達式的右邊包含函數(shù)過程名和參數(shù)(returnvalue = function)，這就調(diào)用了函數(shù)。 與變量完全一樣，函數(shù)過程有數(shù)據(jù)類型，其決定了返回值的類型。如果沒有As子句，缺省的數(shù)據(jù)類型為Variant。 給函數(shù)名自身賦一個值，就可返回這個值。例如，下面