VB6.0程序設(shè)計上機實驗指導(dǎo)(精)

1、VB6.0 程序設(shè)計上機實驗指導(dǎo)1VB6.0程序設(shè)計上機實驗指導(dǎo)實驗一認識 VB6.0實驗?zāi)康?.掌握VB集成開發(fā)環(huán)境的啟動和退出2.了解VB集成開發(fā)環(huán)境的基本組成3.學(xué)會在VB集成開發(fā)環(huán)境中建立應(yīng)用程序?qū)嶒瀮?nèi)容VB集成開發(fā)環(huán)境的啟動和退出1.啟動VB集成開發(fā)環(huán)境想一想：可以通過哪些方法啟動VB集成開發(fā)環(huán)境。2.在“新建工程”對話框中選擇“標(biāo)準(zhǔn)EXE注意：在“新建工程”對話框中有幾個選項卡？它們各有什么作用？在“新 建”選項卡中有哪些選項？3.熟悉VB集成開發(fā)環(huán)境4.退出VB集成開發(fā)環(huán)境想一想：可以通過哪些方法退出VB集成開發(fā)環(huán)境。VB集成開發(fā)環(huán)境的基本組成1.指出VB集成環(huán)境中各組成部分的名

2、稱。2.找到并熟悉VB集成環(huán)境中的工具箱、工程管理器窗口、屬性窗口、窗體 設(shè)計器窗口、代碼窗口；掌握打開和關(guān)閉這些窗口的方法。想一想：可以通過哪些方法打開代碼窗口。3.掌握在窗體設(shè)計器窗口中添加控件。4.學(xué)會設(shè)置窗體、命令按鈕、文本框的最常用屬性。5.在代碼窗口中找到窗體、命令按鈕、文本框的主要事件，學(xué)會在對象事件 過程中輸入代碼。想一想：窗體、命令按鈕、文本框的缺省事件是什么。三、 建立第一個VB應(yīng)用程序程序功能：程序界面見下圖，要求當(dāng)按“顯示內(nèi)容”按鈕時，文本框中 出現(xiàn)紅色的“Hello,Visual Basic!”的文字，按“清屏”按鈕時，文本框 中文字消失，按“結(jié)束”實驗一認識 VB6

3、.02按鈕后，程序結(jié)束。VB6.0 程序設(shè)計上機實驗指導(dǎo)3程序中有一個窗體，一個文本框和三個按鈕，其屬性如下:對象名稱屬性屬性值窗體（名稱）Capti onForm1VB你好！文本框（名稱）TextAlig nment FontForeColorText12粗體、14號紅色命令按鈕（名稱）Capti onComma nd1顯示內(nèi)容命令按鈕（名稱）Capti onComma nd2清屏命令按鈕（名稱）Capti onComma nd3結(jié)束事件代碼：Private Sub Comma nd1_Click（）Textl.Text = Hello，Visual Basic！End SubPrivate

4、 Sub Comma nd2_Click（）Text1.Text =End SubPrivate Sub Comma nd3_Click()EndEnd Sub想：怎樣在窗體中添加控件，怎樣改變窗體和控件的大小，怎樣改變控 件的位置。如果要使窗體的高度為4000,寬度為5000,可以用什么 方法設(shè)置？如果要使文本框的位置為：左邊405,上邊405，可以使實驗一認識 VB6.04用什么方法設(shè)置？VB6.0 程序設(shè)計上機實驗指導(dǎo)5怎樣在屬性窗口中為窗體和控件設(shè)置屬性，試試在屬性窗口中設(shè)置 窗體的大小屬性和文本框的位置屬性?？匆幌缕渌丶拇笮?、位 置屬性怎樣設(shè)置？如何在窗體或控件的事件過程中加入程

5、序段，本實驗在哪些對象（指出對象名稱）的哪些事件（指出事件名稱）中加入了程序段（指出Sub過程名稱），這些程序段分別有什么功能。怎樣在程序中使用命令設(shè)置對象的屬性，本實驗對哪些對象的哪些 屬性進行了設(shè)置。試試在窗體的Load事件中設(shè)置窗體的大小和文本 框的位置。怎樣保存程序，需要保存哪些文件；怎樣運行程序。如果將文本框的名稱改為“Texthy”，將第一個命令按鈕的名稱改為“Cmdhy，將第二個命令按鈕的名稱改為“Cmdqk，將第三個命令按鈕的名稱改為“CmdtC，則上述程序要作哪些改動？選做實驗建立程序，功能如下：程序中有一個窗體，一個文本框和四個按鈕，三個按鈕分別顯示“紅色”、“綠色”、“藍

6、色”字樣，一個按鈕顯示“退出”字樣。當(dāng)按“紅色”按鈕時，文 本框中出現(xiàn)紅色的文字“紅色”；當(dāng)按“綠色”按鈕時，文本框中出現(xiàn)綠色的文 字“綠色”；當(dāng)按“藍色”按鈕時，文本框中出現(xiàn)藍色的文字“藍色”。當(dāng)按“退 出”按鈕時，結(jié)束程序。程序界面如下圖所示。氨額色設(shè)置回因|紅色退岀提示：可使用RGB（）函數(shù)設(shè)置顏色附：RGB（）函數(shù)的使用功能：返回一個Long整數(shù)，用來表示一個RGB顏色值 語法:RGB(red, green, blue)參數(shù)：red必要參數(shù)；Variant (Integer)的紅色 數(shù)值范圍從0綠色藍色實驗一認識 VB6.06成份。green必要參數(shù)；Variant (Integer)

7、。數(shù)值范圍從0到255，表示顏色的綠色成份。blue必要參數(shù)；Variant (Integer)。數(shù)值范圍從0到255，表示顏色 的藍色成份。說明：一個RGB顏色值指定紅、綠、藍三原色的相對亮度，生成一個用于顯 示的特定顏色。RGB函數(shù)可以產(chǎn)生256*256*256種不同的顏色。任何 需要得到顏色的屬性都可以通過RGBS數(shù)設(shè)置。傳給RGB的任何參數(shù)的值，如果超過255，會被當(dāng)作255。 下面的表格顯示一些常見的標(biāo)準(zhǔn)顏色，以及這些顏色的紅、綠、藍三原 色的成份：顏色紅色值綠色值蘭色值黑色000藍色00255綠色02550青色0255255紅色25500洋紅色2550255黃色2552550白色2

8、55255255VB6.0 程序設(shè)計上機實驗指導(dǎo)7實驗二窗體和標(biāo)準(zhǔn)控件（一）實驗?zāi)康?.掌握命令按鈕、標(biāo)簽及文本框控件的使用方法2.掌握復(fù)選框、單選按鈕及框架控件的使用方法實驗內(nèi)容一、命令按鈕、標(biāo)簽及文本框控件的使用方法程序1:在窗體上建立兩個標(biāo)簽、兩個文本框和兩個命令按鈕，運行界面如 左圖所示。要求在運行時，兩個文本框中的內(nèi)容均不允許用戶編輯； 如果用戶在 “原文”的文本框中選定所需的內(nèi)容，單擊“復(fù)制”命令按鈕，則在“輸出”文 本框中輸出選定的內(nèi)容，如右圖所示；如果單擊“結(jié)束”命令按鈕，則結(jié)束程序提示:文本框中選定內(nèi)容可以使用文本框的屬性SelText（選定文本內(nèi)容）、SelStart（選定

9、文本起始點）、SelLength（選定文本長度）讀取或設(shè)置 屬性設(shè)置和程序代碼見附錄。如果不用鼠標(biāo)選定文本，而是通過InputBox函數(shù)輸入所選文本的起始 點和長度，怎樣修改程序。如果第一個文本框中文本沒有被選中，則復(fù)制全部內(nèi)容，如何修改程序 如果將“復(fù)制”功能改為“移動”功能，如何修改程序。附:InputBox函數(shù)的使用功能：在一對話框來中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含 文本框內(nèi)容的字符串。語法:InputBox(prompt, title , default)或者接收用戶輸入H-Dlx|結(jié)束原文：輸出:文本框的使用的運行。實驗二窗體和標(biāo)準(zhǔn)控件(一)8參數(shù)：prompt必要

10、，字符串表達式，讓對話框顯示給用戶的一個提示。prompt的最大長度大約是1024個字符，由所用字符的寬度決定。如果prompt包含多個行，則可在各行之間用回車符(Chr(13)、換行符(Chr(10)或回車換行符的組合(Chr(13) &Chr(10)來分隔。title可選，字符串表達式，給對話框指定一個標(biāo)題。如果省略title， 則把應(yīng)用程序名放入標(biāo)題欄中。default可選，字符串表達式，顯示在文本框中的缺省值。如果省略default，則文本框為空。說明：如果用戶單擊0K或按下ENTER則InputBox函數(shù)以字符串類型返回 文本框中的內(nèi)容。如果用戶單擊Cancel，則此函數(shù)返回

11、一個長度為零 的字符串()。如果還要指定第一個命名參數(shù)以外的參數(shù)，則必須在表達式中使用InputBox。如果要省略某些位置參數(shù)，則必須加入相應(yīng)的逗號分界符。程序2:建立如下圖所示的窗體，要求程序能對輸入的“性別”和“郵政編 碼”、“電話號碼”進行校驗(性別只允許輸入“男”或“女”，郵政編碼必須是6位數(shù)字，電話號碼必須是8位數(shù)字)。如果輸入的數(shù)據(jù)不符號要求，則清空相 應(yīng)的文本框，并將插入點置于該框中。所有的校驗工作可以在單擊“退出”按鈕 后進行，此時，程序檢查所有文本框，如有空白或內(nèi)容錯誤，要求繼續(xù)輸入，否 則結(jié)束程序。提示：在過程中間要退出過程可使用命令“Exit Sub”，通過函數(shù)Len(字

12、符串)可得到字符串的長度，通過函數(shù)lsNumeric(字符串)可檢驗字符串是否 是數(shù)值。登記窗口屬性設(shè)置和程序代碼見附錄。想一想：如果要求在文本框失去焦點時就對文本框的內(nèi)容進行校驗，則如何編 程？如果輸入的數(shù)據(jù)不符合要求，或者在按“退出”按鈕時還有空白的文本 框，在作出處理之前要求給出提示信息，如何修改程序。提示：可利用消息框(MsgBox附：Len()函數(shù)的使用功能：返回一個長整型數(shù)據(jù)，其中包含字符串內(nèi)字符的數(shù)目。語法：Len( stri ng)參數(shù)：VB6.0 程序設(shè)計上機實驗指導(dǎo)9string任何有效的字符串表達式。附：lsNumeric()函數(shù)的使用功能：返回布爾類型數(shù)據(jù)，指出表達式的

13、運算結(jié)果是否為數(shù)值。語法：lsNumeric(expressi on)參數(shù)：expression參數(shù)，必要的，是一個包含數(shù)值的表達式或字符串表達式。 說明：如果整個expression的運算結(jié)果為數(shù)字， 則IsNumeric返回True;否 則返回False。附：消息框(Msgbox的使用功能：在對話框中顯示消息，等待用戶單擊按鈕，并返回一個整型數(shù)據(jù)告訴用 戶單擊了哪一個按鈕。語法：MsgBox(prompt, buttons , title)參數(shù)：prompt必要，字符串表達式，作為顯示在對話框中的消息。prompt的 最大長度大約為1024個字符，由所用字符的寬度決定。如果prompt的

14、內(nèi)容超過一行，則可以在每一行之間用回車符(Chr(13)、換行符(Chr(10)或是回車與換行符的組合(Chr(13) & Chr(10)將各行分隔開來。buttons可選，數(shù)值表達式，是值的總和，指定顯示按鈕的數(shù)目及形式， 使用的圖標(biāo)樣式，缺省按鈕是什么以及消息框的強制回應(yīng)等。如果省略，則buttons的缺省值為0。title可選，字符串表達式，在對話框標(biāo)題欄中顯示的內(nèi)容。如果省略title，則將應(yīng)用程序名放在標(biāo)題欄中。二、復(fù)選框、單選按鈕及框架控件的使用程序3:在窗體中有一個標(biāo)簽，內(nèi)有若干文字，要求通過窗體中的復(fù)選框或 單選按鈕確定標(biāo)簽中文字的字體(宋體或黑體)、字號(10號或12

15、號)和字形 (是否粗體、是否斜體)，請建立應(yīng)用程序。想一想：為了要設(shè)置字體、字號和字形，可分別使用復(fù)選框或單選按鈕，什么時實驗二窗體和標(biāo)準(zhǔn)控件（一）10候應(yīng)使用復(fù)選框，什么時候應(yīng)使用單選按鈕。 在什么時候要根據(jù)不同情況執(zhí)行不同的語句。提示：在程序運行時設(shè)置字體屬性，可使用FontName FontSize、FontBold、Fon tItalic屬性等?？梢允褂梅种ЫY(jié)構(gòu)語句：IfThenElseEnd If建立分支結(jié)構(gòu)的程序， 以使程序可以按不同情況執(zhí)行不同的語句。屬性設(shè)置和程序代碼見附錄。附：FontName FontSize、FontBold、FontItalic屬性的使用功能：FontN

16、ame屬性：返回或設(shè)置在控件中或在運行時畫圖或打印操作中，顯示文本所用的字體。FontSize屬性：返回或設(shè)置在控件中或在運行時畫圖或打印操作中，顯示文本所用的字體的大小。FontBold、FontItalic屬性：按下述格式返回或設(shè)置字體樣式：Bold、Italic。語法：object. Fon tName = fontobject. Fon tSize = poin tsobject. Fon tBold = boolea nobject. Fon tItalic = boolea n參數(shù)：object對象表達式。font字符串表達式，指定所用的字體名。points數(shù)值表達式，用磅為單位指

17、定所用字體的大小。boolean布爾表達式，指定字體樣式，屬性值為True或False兩個值之。說明：Fon tName屬性的缺省值取決于系統(tǒng)，Visual Basic中可用的字體取決于系統(tǒng)的配置、顯示設(shè)備和打印設(shè)備。與字體相關(guān)的屬性只能設(shè)置為真 正存在的字體的值。一般來說，用FontSize、FontBold、FontItalic、FontStrikethru和FontUn derline屬性來設(shè)置大小和樣式屬性前，要先改變Fon tName屬 性。用FontSize屬性以所要的字體格式化文本。缺省值由系統(tǒng)決定。要改 變?nèi)笔≈?，以磅為單位指定字體尺寸。FontSize的最大值為2160磅。可

18、以通過這些字體屬性，在設(shè)計時用屬性窗口或在運行時使用代碼來格 式化文本。對于Picturebox控件及Form和Printer對象，設(shè)置這 些屬性不會影響在控件或?qū)ο笊弦呀?jīng)繪出的圖片和文本。對于其它控 件，改變字體將會在屏幕上立刻生效。附:IfThenElse -End IfVB6.0 程序設(shè)計上機實驗指導(dǎo)11功能：根據(jù)表達式的值有條件地執(zhí)行一組語句。語法：If condition Then statementElse elsestatement或者If con diti on Thenstateme ntsElseelseifstateme ntsEnd Iflf.The n.Else語句的

19、語法具有以下幾個部分：con dition必要參數(shù)。一個或多個具有下面類型的表達式：數(shù)值表達式 或字符串表達式，其運算結(jié)果為True或False。statements必要參數(shù)。一條或多條語句，它們在condition為True時 執(zhí)行。elsestatements可選參數(shù)。一條或多條語句，它們在前面的condition不為True時執(zhí)行。說明：可以使用單行形式（第一種語法）來做短小簡單的測試。但是，塊形式 （第二種語法）則提供了更強的結(jié)構(gòu)化與適應(yīng)性，并且通常也是比較容 易閱讀、維護及調(diào)試的。在單行形式中，按照If.The n判斷的結(jié)果也可以執(zhí)行多條語句。所有語句必須在同一行上并且以冒號分開，如

20、下面語句所示：If A 10 The n A = A + 1 : B = B + A : C = C + B在塊形式中，If塊必須以一個End If語句結(jié)束。 提示：根據(jù)單一表達式來執(zhí)行多種可能的動作時，Select Case更為有用。選做實驗綜合題：依照“附件”中的計算器，自己編一個計算器。本實驗要求：可以 使用數(shù)字按鈕輸入數(shù)值（整數(shù)）。提示：將十個數(shù)字按鈕組成一個按鈕數(shù)組，統(tǒng)一編程；使用函數(shù)CStr（表達式）可以使數(shù)值轉(zhuǎn)化成字符串。附：CStr（）函數(shù)的使用功能：強制將一個表達式轉(zhuǎn)換成某種字符型數(shù)據(jù)類型。語法：CStr（expressio n）實驗三窗體和標(biāo)準(zhǔn)控件（二）12實驗三窗體和標(biāo)準(zhǔn)

21、控件（二）實驗?zāi)康?.掌握列表框和組合框控件的使用方法2.掌握滾動條和定時器控件的使用方法實驗內(nèi)容一、列表框和組合框控件的使用程序1:編寫程序。要求：程序運行初期，在窗體左邊的列表框中生成10個由小到大排列的10到100之間的隨機整數(shù)，單擊窗體中“右移”按鈕，則左 邊列表框的10個數(shù)移動到右邊的列表框中， 并由大到小排列， 此時“左移”按 鈕變?yōu)橛行А?單擊“左移”按鈕，右邊列表框中的數(shù)又被移到左邊的列表框中。 單擊“退出”按鈕或按ESC鍵，可退出程序。窗體示意圖如下。提示：將列表框的Sorted屬性設(shè)置為True，可使列表框中的項目從小到大排 序。使用“For循環(huán)變量=初值To終值Next循

22、環(huán)變量”可實現(xiàn)循環(huán)功能 可使用語句Randomize和函數(shù)Rnd（）產(chǎn)生隨機數(shù)。移動列表框中的數(shù)，相當(dāng)于將第一個列表框內(nèi)容通過列表框的AddItem方法加入到第二個列表框，然后通過列表框的Removeitem方法將第一 個列表框內(nèi)容刪除。程序代碼見附錄。附：For循環(huán)語句的使用功能：以指定次數(shù)來重復(fù)執(zhí)行一組語句。語法：For coun ter = start To end Step stepstateme ntsExit Forstateme nts冠列表框54575457旳列表框VB6.0 程序設(shè)計上機實驗指導(dǎo)13Next co un ter參數(shù)：cou nter必要參數(shù)。用做循環(huán)計數(shù)器的數(shù)

23、值變量。這個變量不能是Boolean或數(shù)組元素。start必要參數(shù)，counter的初值。End必要參數(shù)，counter的終值。Step可選參數(shù)。counter的步長。 如果沒有指定， 則step的缺省值為1。Statements可選參數(shù)。放在For和Next之間的一條或多條語句，它 們將被執(zhí)行指定的次數(shù)。說明：step參數(shù)可以是正數(shù)或負數(shù)。step參數(shù)值決定循環(huán)的執(zhí)行情況，如果step的值為正數(shù)或0,則當(dāng)counter =end時執(zhí)行循環(huán)。當(dāng)所有循環(huán)中的語句都執(zhí)行后，step的值會加到counter中。此時， 循環(huán)中的語句可能會再次執(zhí)行(基于循環(huán)開始執(zhí)行時同樣的測試)，也可能是退出循環(huán)并從N

24、ext語句之后的語句繼續(xù)執(zhí)行。循環(huán)中可以在任何位置放置任意個Exit For語句，隨時退出循環(huán)。Exit For經(jīng)常在條件判斷之后使用，例如lf.Then，并將控制權(quán)轉(zhuǎn)移 到緊接在Next之后的語句?？梢詫⒁粋€For.Next循環(huán)放置在另一個For.Next循環(huán)中，組成嵌套循環(huán)。不過在每個循環(huán)中的cou nter要使用不同的變量名。下面 的體系結(jié)構(gòu)是正確的：For I = 1 To 10For J = 1 To 10For K = 1 To 10Next KNext JNext I應(yīng)避免在循環(huán)中改變cou nter的值，否則將會使程序代碼的閱讀和調(diào) 試變得更加困難。如果省略Next語句中的co

25、unter，就像counter存在時一樣執(zhí)行。附：Rnd()和Randomize()函數(shù)的使用 功能：Rn d()函數(shù)返回一個包含隨機數(shù)值的Sin gleRan domize初始化隨機數(shù)生成器語法：RndRan domize返回值：Rnd生成隨機數(shù)序列中的下一個隨機數(shù)。Ra ndomize用系統(tǒng)計時器返回的值作為新的種子值。說明：實驗三窗體和標(biāo)準(zhǔn)控件(二)14Rnd函數(shù)返回小于1但大于或等于0的值。對最初給定的種子都會生成相同的數(shù)列，因為每一次調(diào)用Rnd函數(shù)都用數(shù)列中的前一個數(shù)作為下一個數(shù)的種子。在調(diào)用Rnd之前，先使用無參數(shù)的Randomize語句初始化隨機數(shù)生成器， 該生成器具有根據(jù)系統(tǒng)計

26、時器得到Rnd的種子的功能。為了生成某個范圍內(nèi)的隨機整數(shù)，可使用以下公式：In t(upperbo und - lowerbo und + 1) * Rnd + lowerbo und)這里，upperbound是隨機數(shù)范圍的上限，而lowerbound則是隨機數(shù) 范圍的下限。若想得到重復(fù)的隨機數(shù)序列，在使用Randomize之前直接調(diào)用Rnc。使用Randomize后，Rnd就能得到不重復(fù)的隨機數(shù)序列。附：AddItem、RemoveItem方法的使用功能：AddItem方法用于將項目添加到ListBox或ComboBox控件。RemoveItem方法用以從ListBox或ComboBox控

27、件中刪除一項。語法：object.Addltem item, in dex object.RemoveItem in dex參數(shù)：object必需的。一個對象表達式。Item必需的。字符串表達式，它用來指定添加到該對象的項目。Index可選的。整數(shù)表達式，用來指定新項目或者要刪除的項目在該對 象中的位置。對于ListBox或ComboBo控件的首項，index為0。說明：如果所給出的index值有效，則AddItem方法會將item放置在object中相應(yīng)的位置。如果省略index，當(dāng)Sorted屬性設(shè)置為True時,AddItem方法會將item添加到恰當(dāng)?shù)呐判蛭恢?，?dāng)Sorted屬性設(shè)置為

28、False時,AddItem方法會將item添加到列表的結(jié)尾。程序2:建立應(yīng)用程序，窗體如下圖所示，有一個簡單組合框、三個命令按 鈕、一個文本框和一個標(biāo)簽。要求：單擊“添加”按鈕可將輸入的內(nèi)容添加到組合框中 單擊“刪除”按鈕可刪除組合框中選定的項目 單擊“統(tǒng)計人數(shù)”按鈕，可將組合框中的項目總數(shù)輸出到右邊的文本框 單擊“退出”或按ESC鍵退出程序VB6.0 程序設(shè)計上機實驗指導(dǎo)15冠組合框結(jié)束|程序代碼見附錄。想一想：如果去掉“統(tǒng)計人數(shù)”按紐，讓統(tǒng)計人數(shù)的工作在添加人員或刪除人員 時自動進行，應(yīng)如何更改程序？為了使用戶界面更友好，在設(shè)計本程序時在哪些方面需要考慮的？二、滾動條和定時器控件的使用程

29、序3:編寫程序，運行時的界面如下圖所示。要求：無論是拖動滾動條上 的滾動框，還是單擊滾動箭頭（數(shù)值遞增或遞減1）或滾動條（數(shù)值遞增或遞減10），均可以在相應(yīng)的標(biāo)簽中反映當(dāng)前數(shù)值，并動態(tài)計算出均值；單擊“Reset”按鈕，可將各滾動條上的滾動框復(fù)位。屬性設(shè)置和程序代碼見附錄。滾動條的Change事件和Scroll事件有什么區(qū)別？， 本程序應(yīng)該在什么 事件中編程？程序4:利用定時器控件設(shè)計一個數(shù)字式時鐘應(yīng)用程序 提示：可使用Time函數(shù)取得系統(tǒng)時間。屬性設(shè)置和程序代碼見附錄。如果要求程序整時報時，該如何修改程序。 提示：可使用下面程序段實現(xiàn)。實驗三窗體和標(biāo)準(zhǔn)控件(二)16If Second(Tim

30、e) =n則顯示 組合數(shù)cm的值，否則顯示數(shù)據(jù)出錯。窗體如下圖所示。提示:程序代碼見附錄典型問題的算法程序2:利用下列兩式求得圓周率n的近似值，忽略級數(shù)式中絕對值小于0.000001的項。提示：找出后一項與前一項的關(guān)系，通過前一項得到后一項，然后累加起來。 程序代碼見附錄。利用函數(shù)求解n的階乘。組合數(shù) 呼n!m!*( nm)!3.4Xtan x = x -391爲(wèi)-以及二論3爼合數(shù)（齊1D :退岀實驗五 VB 編程基礎(chǔ)（二）19924參照下圖，按“開始”按鈕，可以實現(xiàn)每隔一秒加上一項，在兩個文本 框中分別顯示已累加項數(shù)和圓周率的近似值，按“停止”按鈕，結(jié)束累 加工作，如何編寫程序？求凰周率停止

31、退出這是一個利用級數(shù)求特殊數(shù)的值這樣一個典型問題的算法，如下圖所 示，請總結(jié)此算法。你是否還能找到其他類似的問題？若能找到，請試 著做一下。提示：自然對數(shù)底e的級數(shù)表示如下：e=1+1/1!+1/2!+1/3!+可參照下圖編程。程序3:如下圖所示，求2-200之間的所有素數(shù)，要求每輸出五個數(shù)據(jù)換一 彳亍。冠 Forml235T131T1923313741435359616T7379B3391011Q3IOT10912713113713951157163167179131191193提示：可以通過一個自定義函數(shù)來求解某個數(shù)是否為素數(shù)VB6.0 程序設(shè)計上機實驗指導(dǎo)25程序代碼見附錄程序4:利用隨

32、機函數(shù)產(chǎn)生20個-500到500的隨機整數(shù) （包括-500和500）, 單擊窗體時，在窗體上輸出這20個數(shù)，同時在窗體上顯示輸出從大到小排好序 的這些數(shù)。要求以每行5個數(shù)的格式顯示，如下圖所示。說明：排序算法有很多，其中最典型的算法是冒泡法，請使用冒泡法求解上面 的問題。程序代碼見附錄。想一想：在上面的程序中，如果要求由一個Sub過程實現(xiàn)兩個數(shù)交換，則如何修 改程序？選做實驗綜合題1:依照“附件”中的計算器， 自己編一個計算器。 本實驗要求： 可 以實現(xiàn)四則運算。提示：可以使用變量保存當(dāng)前選擇的運算符等狀態(tài)信息。-237-320460-145-331492-241-42-374-3603751

33、11-36665306-419225-441239368-441-419-360-374-36&-331-320-241-237-145-421112252693Q63&83754S0492冠排序loljsl實驗六菜單、工具欄和狀態(tài)欄的設(shè)計26實驗六菜單、工具欄和狀態(tài)欄的設(shè)計實驗?zāi)康?.掌握下拉式菜單的設(shè)計方法2.掌握彈出式菜單的設(shè)計方法3.了解工具欄和狀態(tài)欄的設(shè)計方法實驗內(nèi)容下拉式菜單的設(shè)計程序1:建立一個應(yīng)用程序，該程序窗口中有一個文本框，設(shè)計菜單，菜單 項如下圖所示。編制程序，完成各菜單項的功能。提示：設(shè)置顏色可使用通用對話框，請查閱相關(guān)知識，或?qū)⒋斯δ芰糁院髮?現(xiàn)。程

34、序代碼見附錄。程序2:編寫程序。要求：程序運行初期，在窗體左邊的列表框中生成10個由小到大排列的10到100之間的隨機整數(shù)，相應(yīng)的動態(tài)菜單如下圖所示；如 果選擇“轉(zhuǎn)移”菜單下面的“右移”命令，則左邊列表框的10個數(shù)移動到右邊的列表框中，并由大到小排列；再打開“轉(zhuǎn)移”菜單，則只有“左移”命令可用。VB6.0 程序設(shè)計上機實驗指導(dǎo)27程序代碼見附錄。彈出式菜單的設(shè)計程序3:將程序2中的下拉菜單改成二個彈出式菜單，分別作為兩個列表框 的快捷菜單，當(dāng)列表框有數(shù)據(jù)時，菜單有效，否則無效。窗體如下圖所示。程序代碼見附錄。三、工具欄和狀態(tài)欄的設(shè)計程序4:工具欄的設(shè)計。設(shè)計一個窗口外觀如下圖所示的程序，在窗口

35、下方 的“請輸入”文本框中輸入一句名言，選擇 “編輯”菜單中的“名言展示”命令, 或按下工具欄中的“名言展示”按鈕，可將這句名言添加到窗口中間的“名言展 示”文本框中。類似地，此程序還可以用這兩種方法實現(xiàn)以下功能：復(fù)位、調(diào)整 “名言展示”文本框中字體顏色、查看本程序信息、退出。實驗六菜單、工具欄和狀態(tài)欄的設(shè)計28提示：在文本框中可以使用VB的字符串常量VBCrLf實現(xiàn)強制換行。 程序代碼見附錄。程序5:狀態(tài)欄的設(shè)計。在程序4的基礎(chǔ)上，加上狀態(tài)欄，在狀態(tài)欄中顯示 “名言展示”文本框中展示的名言句數(shù)和總長度，以及系統(tǒng)日期和系統(tǒng)時間。程序代碼見附錄。選做實驗1.綜合題1:依照“附件”中的計算器，自己

36、編一個計算器。本實驗要求： 計算器中加入下拉菜單，并為其中的“編輯”菜單的“復(fù)制”和“粘貼”菜單項 編制相應(yīng)的程序。提示：可以使用Clipboard對象的SetText方法和GetText方法將文本字符串 送到粘貼板或從粘貼板取到文本字符串。VB6.0 程序設(shè)計上機實驗指導(dǎo)29附：Clipboard對象的 SetTextSetText 方法和 GetTextGetText 方法的使用功能：SetText方法用以將文本字符串放到Clipboard對象中。GetText方法用于取得Clipboard對象中的文本字符串。語法：Clipboard.SetText text Clipboard.GetT

37、ext組成部分：text必需的。是被放置到剪貼板中的字符串?dāng)?shù)據(jù)。說明：如果Clipboard對象中沒有與期望的格式相匹配的字符串，則返回一個 零長度字符串()。2.綜合題2:建立學(xué)生檔案管理信息系統(tǒng)。本實驗要求：設(shè)計菜單。實驗七對話框、多文檔界面設(shè)計實驗?zāi)康?掌握預(yù)定義對話框的使用方法2掌握通用對話框的使用方法3掌握簡單的MDI應(yīng)用程序的設(shè)計方法4了解多文檔文本編輯器的設(shè)計方法實驗內(nèi)容一、對話框的使用程序1:使用預(yù)定義對話框輸入和輸出數(shù)據(jù)。程序如下圖所示，用于管理學(xué) 生成績。按輸入按鈕，使用預(yù)定義對話框InputBox輸入學(xué)生人數(shù)及每個學(xué)生的 成績；使用預(yù)定義對話框MsgBoX俞出總分和平均成

38、績。程序代碼見附錄。程序2:使用通用對話框進行屬性設(shè)置。實驗六菜單、工具欄和狀態(tài)欄的設(shè)計30程序代碼見附錄VB6.0 程序設(shè)計上機實驗指導(dǎo)31簡單的MDI應(yīng)用程序的設(shè)計程序3:建立一個應(yīng)用程序，程序中有一個MDI窗體，通過MDI窗體的“文 件”菜單中的“新建文檔”菜單項可建立一個文檔窗口作為MDI窗體的子窗體， 在此子窗體可進行文本編輯。通過菜單可建立多個文檔窗口，也可進行編輯文檔 內(nèi)容、關(guān)閉文檔等操作，如下圖所示。提示:菜單應(yīng)建在MDI窗體中將文檔窗體作為對象， 在“新建文檔”菜單命令中聲明一個新的文檔窗 體類型的變量，對此對象類型的變量進行屬性設(shè)置， 最后將其顯示。例: 如果文檔窗體的名稱

39、為MyDocu則下列程序段可實現(xiàn)新建文檔功能：Dim NewForm As MyDocu NewForm.Caption=”我的文檔”NewForm.Show假如父文檔的名稱為MDIForml,則可使用下列語句關(guān)閉MDIForml窗體 中的活動文檔，實現(xiàn)“關(guān)閉文檔”功能：Un load MDIForml.ActiveForm在文檔窗體中加入一個文本框。文本框的Top屬性和Left屬性均設(shè)為0， 在文檔窗體的Resize事件中加入命令， 使文本框的Height屬性和Width屬性的值分別等于窗體的ScaleHeight屬性和ScaleWidth屬性，這樣 可以使文檔窗體中文本框保持最大。程序代碼

40、見附錄。選做實驗在程序3中，為“編輯”菜單下的“剪切”、“復(fù)制”、“粘貼”、“全選”命令 編寫程序；在“文件”菜單下增加“打開文檔”和“保存文檔”命令，并為它們 編寫程序。實驗七對話框、多文檔界面設(shè)計32提示：“剪切”、復(fù)制“、粘貼”功能均與粘貼板(Clipboard)對象有關(guān)，相 關(guān)內(nèi)容可參閱實驗六選做實驗第一題?！按蜷_文檔”和“保存文檔”命令的實現(xiàn)，除了要使用通用對話框控件打開相應(yīng)的對話框指定文件名及其位置外，還需要使用In put語句和Write語句讀入文件的內(nèi)容或文檔中的內(nèi)容寫入文件。例如，可用下面 的程序段分別實現(xiàn)“打開文檔”、“另存為”功能：CommonDialog1.Filter

41、=文本文件(*.txt)|*.txt|(* *)|* *全部文件Common Dialogl.ShowOpe nDim n ewdocu As New MyDocun ewdocu.Capti on = Common Dialog1.FileTitlen ewdocu.ShowDim Lin eStr As Stri ngOpe n Commo nDialog1.FileName For In put As #1Do While Not EOF(1)Li ne In put #1, Li neStrn ewdocu.RichTextBox1.Text = n ewdocu.RichTextBo

42、x1.Text &Lin eStr + vbCrLfLoopClose #1CommonDialog1.Filter=文本文件(*.txt)|*.txt|(* *)|* *全部文件Common Dialog1.ShowSaveOpe n Commo nDialog1.FileName For Output As #1Print #1, MyDocu.RichTextBox1.TextClose #1實驗八文件的基本操作和文件的讀寫實驗?zāi)康?掌握DriveListBox、DirListBox和FileListBox等文件控件的使用方法2掌握用傳統(tǒng)方式進行文件復(fù)制、移動、刪除及重命名等基本

43、方法3.掌握順序文件、隨機文件和二進制文件的讀寫操作方法4.了解MSFIexGrid控件的使用方法實驗內(nèi)容使用DriveListBox、DirListBox和FileListBox等控件VB6.0 程序設(shè)計上機實驗指導(dǎo)33程序1:建立一個應(yīng)用程序，該程序利用文件系統(tǒng)控件可以實現(xiàn)文件的復(fù)制、 移動和刪除，如下圖所示。程序代碼見附錄想一想:如果要求一次操作多個文件或文件，應(yīng)如何修改程序?順序文件、隨機文件和二進制文件的讀寫程序2:編寫程序，要求能將文本框中的內(nèi)容寫入順序文件，或者能將順序 文件的內(nèi)容讀入到文本框中，如下圖所示。實驗七對話框、多文檔界面設(shè)計34程序代碼見附錄想一想:順序文件的讀寫還有

44、哪些方法?程序3:編寫程序，要求能將下圖中若干個文本框中的內(nèi)容寫入隨機文件中, 或者能將隨機文件的內(nèi)容讀入到相應(yīng)的文本框中，如下圖所示。提示：在隨機文件讀寫操作之前，應(yīng)先定義一個自定義的記錄類型。定義方法 見下例。Type StuRec創(chuàng)建用戶自定義的類型。Name As String * 20定義元素的數(shù)據(jù)類型。Sex As Boolea nAge As In tegerEnd Type程序代碼見附錄。實驗九圖形方法和圖形控件實驗?zāi)康?掌握使用圖形方法繪制典型的圖形2了解圖片框和圖像控件的區(qū)別3掌握圖片框和圖像控件的使用方法VB6.0 程序設(shè)計上機實驗指導(dǎo)354掌握直線控件和形狀控件的使用方

45、法5了解圖像處理的基本方法實驗內(nèi)容、圖形方法的應(yīng)用程序1:在窗體上繪制-n到n的正弦曲線，如下圖所示提示：可以在系統(tǒng)坐標(biāo)系中畫線，也可以在自定義坐標(biāo)系中畫線，比較兩者優(yōu) 缺點。程序代碼見附錄。二、圖片框控件和圖像控件的使用程序2:在窗體上左右各放置一個大小相同的圖片框和圖像框，修改它們的 邊框式樣（BordeStyle屬性），使它們的邊框一欄。 通過Picture屬性裝入一個 同樣的位圖文件 （.bmp） ，如下圖所示，觀察兩個控件的變化以及其中圖形的差 異。若裝入的是圖元文件（.wmf），則圖片框和圖像控件中的圖形又會怎樣？實驗九圖形方法和圖形控件36設(shè)置圖片框的AutoSize屬性為Tru

46、e，觀察兩個圖形的差異。設(shè)置圖像控件的Stretch屬性為True,再次通過Picture屬性裝入同樣的 位圖文件 （.bmp） ,觀察兩個圖形的差異。程序3:創(chuàng)建應(yīng)用程序，利用圖片框瀏覽大幅面圖形。在窗體放置兩個圖片 框，一個垂直滾動條和一個水平滾動條， 如下圖所示。在第二個圖片框中裝入一 個大圖形，利用兩個滾動條改變第二個圖片框在第一個圖片框中的位置，實現(xiàn)對整幅圖形的瀏覽。程序代碼見附錄程序4:創(chuàng)建一個測試圖像控件特性的應(yīng)用程序: 小”按鈕，能使圖像框中的圖形放大或縮小。單擊窗體上的“放大”、“縮VB6.0 程序設(shè)計上機實驗指導(dǎo)37程序代碼見附錄三、直線控件和形狀控件的使用程序5:建立如下

47、圖所示的應(yīng)用程序， 通過命令按鈕控制直線控件的旋轉(zhuǎn)和 形狀控件的形狀、位 置 等 的 變 化 ， 掌 握 直 線 和 形 狀 控 件 的 特 點 和 使 用 方 法 。程序代碼見附錄四、圖像處理程序6:創(chuàng)建應(yīng)用程序：通過使輸出的文本產(chǎn)生微移后疊加，在圖片框中輸 出有立體效果的文本，如下圖所示。實驗十?dāng)?shù)據(jù)庫操作（一）38程序代碼見附錄VB6.0 程序設(shè)計上機實驗指導(dǎo)39實驗十?dāng)?shù)據(jù)庫操作實驗?zāi)康?.掌握創(chuàng)建數(shù)據(jù)庫的方法2.掌握數(shù)據(jù)控件的使用方法3.掌握控件的數(shù)據(jù)綁定技術(shù)4.掌握數(shù)據(jù)庫記錄集的操作方法實驗內(nèi)容一、創(chuàng)建數(shù)據(jù)庫stud.mdb通過“Microsoft Access”和VB6中的“可視化數(shù)

48、據(jù)庫管理器”分別建立數(shù) 據(jù)庫stud.mdb，其 中 有 一 個 數(shù) 據(jù) 表s t u d e n t， 該 數(shù) 據(jù) 表 的 結(jié) 構(gòu)如 下 ：字段名類型長度學(xué)號Stri ng7班級Stri ng8姓名Stri ng8性別Stri ng2年齡In teger出生日期Date/Time婚否Boolea n簡歷備注在數(shù)據(jù)表中輸入三條記錄如下:學(xué)號班級姓名性別年齡出生日期婚否簡歷二、控件的數(shù)據(jù)綁定技術(shù)程序1:使用控件的數(shù)據(jù)綁定技術(shù)顯示、修改、添加student數(shù)據(jù)表中的數(shù)實驗十?dāng)?shù)據(jù)庫操作（一）40據(jù)。窗體界面如下。VB6.0 程序設(shè)計上機實驗指導(dǎo)41提示：將數(shù)據(jù)控件的EofAction的值設(shè)為2,可以

49、利用數(shù)據(jù)控件添加數(shù)據(jù) 數(shù)據(jù)控件上的當(dāng)前記錄號和總記錄數(shù)可以使用記錄集對象的兩個屬性:AbsolutePosition和RecordCount得到三、數(shù)據(jù)庫記錄集的操作方法程序2:利用數(shù)據(jù)庫記錄集的操作方法實現(xiàn)顯示、修改、添加和刪除記錄的 功能。程序界面如下圖所示。實驗十?dāng)?shù)據(jù)庫操作（一）42程序代碼見附錄VB6.0 程序設(shè)計上機實驗指導(dǎo)43實驗二程序1主要屬性設(shè)置:對象屬性屬性值文本框（Text1）LockedTrueScrollBars2-VerticalText文本框（Text2）LockedTrueScrollBars2-VerticalText返回程序代碼：Private Sub Com

50、ma nd1_Click()Text2.Text = Textl.SelTextEnd SubPrivate Sub Comma nd2_Click() EndEnd SubPrivate Sub Form_Load（）Text1.Text = _文本框是一個多功能控件，可以顯示或者接收用戶輸入的文本信息End Sub返回 程序2主要屬性設(shè)置:對象屬性屬性值姓名文本框（名稱）Textxm性別文本框（名稱）Textxb聯(lián)系地址文本框（名稱）Textdz郵政編碼文本框（名稱）Textyb聯(lián)系電話文本框（名稱）Textdh返回程序代碼:Private Sub Comma nd1_Click() If

51、 Textxm = The nTextxm.SetFocusExit SubEnd If附錄II附錄44If Textxb = The nTextxb.SetFocusExit SubEnd IfIf Textdz = The nTextdz.SetFocusExit SubEnd IfIf Textyb = The nTextyb.SetFocusExit SubEnd IfIf Textdh = The nTextdh.SetFocusExit SubEnd IfEndEnd SubPrivate Sub Textdh_LostFocus()If Textdh.Text The nIf L

52、en( Textdh.Text) 8 Or Not IsNumeric(Textdh.Text) ThenTextdh.Text =Textdh.SetFocusEnd IfEnd IfEnd SubPrivate Sub Textxb_LostFocus()If Textxb.Text The nIf Textxb.Text 男And Textxb.Text 女ThenTextxb.Text =Textxb.SetFocusEnd IfEnd IfEnd SubPrivate Sub Textyb_LostFocus() If Textyb.Text The nIf Le n(Textyb.

53、Text) 6 Or Not IsNumeric(Textyb.Text) Then Textyb.Text =Textyb.SetFocusEnd IfEnd IfEnd Sub返回程序3VB6.0 程序設(shè)計上機實驗指導(dǎo)45主要屬性設(shè)置:對象屬性屬性值標(biāo)簽(Label1)Capti on復(fù)選框和單選按鈕是應(yīng)用程序中允 許用戶進行選擇的控件。BackColor白色BorderStyle1返回程序代碼:Private Sub Check1_Click() If Check1.Value = 1 The n Label1.F on tBold = True ElseLabel1.F on tBol

54、d = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 The n Label1.F on tItalic = True ElseLabel1.Fo ntItalic = False End IfEnd SubPrivate Sub Optio n1_Click()Label1.Fo ntName =宋體End SubPrivate Sub Optio n2_Click()Label1.Fo ntName =黑體End SubPrivate Sub Optio n3_Click()Label1.Fo ntSiz

55、e = 10End SubPrivate Sub Optio n4_Click()Labell.Fo ntSize = 12End Sub返回實驗三程序1程序代碼：Private Sub Comma nd1_Click() Dim i As In teger, Last As In teger Last = List1.ListCount - 1For i = 0 To LastList2.Addltem List1.List(Last - i) List1.Removeltem Last - iNext iComma nd1.E nabled = FalseComma nd2.E nable

56、d = True附錄46End SubPrivate Sub Comma nd2_Click()Dim i As In teger, Last As In tegerLast = List2. ListCount - 1For i = 0 To LastList1.AddItem List2.List(Last - i)List2.RemoveItem Last - iNext iComma nd1.E nabled = TrueComma nd2.E nabled = False End SubPrivate Sub Comma nd3_Click() Un load MeEnd SubPr

57、ivate Sub Form_Load()Dim i As In tegerFor i = 0 To 9Ran domizeList1.AddItem In t(90 * Rnd) + 10)Next iEnd Sub返回 程序2程序代碼：Private Sub Combo1_Cha nge() If Combol.Text Then Comma nd1.Enabled = True Comma nd1.Default = True ElseComma nd1.E nabled = False End IfEnd SubPrivate Sub Combo1_Click() Comma nd2.

58、E nabled = True Comma nd2.Default= True Combo1.SetFocusEnd SubPrivate Sub Comma nd1_Click()Combo1 .A ddItem Combo1.TextCombo1.Text =Combo1.SetFocusEnd SubPrivate Sub Comma nd2_Click() x = Combo1.List In dex Combo1.Removeltem xIf x 0 The nCombo1.ListI ndex = x - 1 ElseVB6.0 程序設(shè)計上機實驗指導(dǎo)47Comma nd2.E na

59、bled = False Comma nd2.Default = False End IfEnd IfText1.SetFocusEnd SubPrivate Sub Comma nd3_Click() Text1.Text = Combo1. ListCou ntCombo1.SetFocusEnd SubPrivate Sub Comma nd4_Click()EndEnd Sub返回 程序3主要屬性設(shè)置:對象屬性屬性值水平滾動條HScroll1HScroll2HScroll3Max100Min0LargeCha nge10SmallCha nge1返回程序代碼：Private Sub C

60、omma nd1_Click()HScrolH.Value = 0HScroll2.Value = 0HScroll3.Value = 0End SubPrivate Sub HScroll1_Cha nge()Label1.C apti on = HScrolH.ValueAverageEnd SubPrivate Sub Average。Dim Temp As DoubleTemp = (HScrolH.Value + HScroll2.Value + HScroll3.Value) / 3Label4.C apti on = CStr(Temp)End SubPrivate Sub HScroll2_Cha nge()La