VB6.0程序設(shè)計(jì)上機(jī)實(shí)驗(yàn)指導(dǎo)(精)

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

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

3、.02按鈕后，程序結(jié)束。VB6.0 程序設(shè)計(jì)上機(jī)實(shí)驗(yàn)指導(dǎo)3程序中有一個(gè)窗體，一個(gè)文本框和三個(gè)按鈕，其屬性如下:對(duì)象名稱屬性屬性值窗體（名稱）Capti onForm1VB你好！文本框（名稱）TextAlig nment FontForeColorText12粗體、14號(hào)紅色命令按鈕（名稱）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，可以使實(shí)驗(yàn)一認(rèn)識(shí) VB6.04用什么方法設(shè)置？VB6.0 程序設(shè)計(jì)上機(jī)實(shí)驗(yàn)指導(dǎo)5怎樣在屬性窗口中為窗體和控件設(shè)置屬性，試試在屬性窗口中設(shè)置 窗體的大小屬性和文本框的位置屬性?？匆幌缕渌丶拇笮?、位 置屬性怎樣設(shè)置？如何在窗體或控件的事件過(guò)程中加入程

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

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

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

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

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

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

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

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

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

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

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

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

17、定所用字體的大小。boolean布爾表達(dá)式，指定字體樣式，屬性值為T(mén)rue或False兩個(gè)值之。說(shuō)明：Fon tName屬性的缺省值取決于系統(tǒng)，Visual Basic中可用的字體取決于系統(tǒng)的配置、顯示設(shè)備和打印設(shè)備。與字體相關(guān)的屬性只能設(shè)置為真 正存在的字體的值。一般來(lái)說(shuō)，用FontSize、FontBold、FontItalic、FontStrikethru和FontUn derline屬性來(lái)設(shè)置大小和樣式屬性前，要先改變Fon tName屬 性。用FontSize屬性以所要的字體格式化文本。缺省值由系統(tǒng)決定。要改 變?nèi)笔≈担园鯙閱挝恢付ㄗ煮w尺寸。FontSize的最大值為2160磅?？?/p>

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

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

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

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

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

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

24、ext語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。循環(huán)中可以在任何位置放置任意個(gè)Exit For語(yǔ)句，隨時(shí)退出循環(huán)。Exit For經(jīng)常在條件判斷之后使用，例如lf.Then，并將控制權(quán)轉(zhuǎn)移 到緊接在Next之后的語(yǔ)句。可以將一個(gè)For.Next循環(huán)放置在另一個(gè)For.Next循環(huán)中，組成嵌套循環(huán)。不過(guò)在每個(gè)循環(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的值，否則將會(huì)使程序代碼的閱讀和調(diào) 試變得更加困難。如果省略Next語(yǔ)句中的co

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

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

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

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

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

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

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

32、機(jī)函數(shù)產(chǎn)生20個(gè)-500到500的隨機(jī)整數(shù) （包括-500和500）, 單擊窗體時(shí)，在窗體上輸出這20個(gè)數(shù)，同時(shí)在窗體上顯示輸出從大到小排好序 的這些數(shù)。要求以每行5個(gè)數(shù)的格式顯示，如下圖所示。說(shuō)明：排序算法有很多，其中最典型的算法是冒泡法，請(qǐng)使用冒泡法求解上面 的問(wèn)題。程序代碼見(jiàn)附錄。想一想：在上面的程序中，如果要求由一個(gè)Sub過(guò)程實(shí)現(xiàn)兩個(gè)數(shù)交換，則如何修 改程序？選做實(shí)驗(yàn)綜合題1:依照“附件”中的計(jì)算器， 自己編一個(gè)計(jì)算器。 本實(shí)驗(yàn)要求： 可 以實(shí)現(xiàn)四則運(yùn)算。提示：可以使用變量保存當(dāng)前選擇的運(yùn)算符等狀態(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實(shí)驗(yàn)六菜單、工具欄和狀態(tài)欄的設(shè)計(jì)26實(shí)驗(yàn)六菜單、工具欄和狀態(tài)欄的設(shè)計(jì)實(shí)驗(yàn)?zāi)康?.掌握下拉式菜單的設(shè)計(jì)方法2.掌握彈出式菜單的設(shè)計(jì)方法3.了解工具欄和狀態(tài)欄的設(shè)計(jì)方法實(shí)驗(yàn)內(nèi)容下拉式菜單的設(shè)計(jì)程序1:建立一個(gè)應(yīng)用程序，該程序窗口中有一個(gè)文本框，設(shè)計(jì)菜單，菜單 項(xiàng)如下圖所示。編制程序，完成各菜單項(xiàng)的功能。提示：設(shè)置顏色可使用通用對(duì)話框，請(qǐng)查閱相關(guān)知識(shí)，或?qū)⒋斯δ芰糁院髮?shí) 現(xiàn)。程

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

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

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

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

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

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

40、見(jiàn)附錄。選做實(shí)驗(yàn)在程序3中，為“編輯”菜單下的“剪切”、“復(fù)制”、“粘貼”、“全選”命令 編寫(xiě)程序；在“文件”菜單下增加“打開(kāi)文檔”和“保存文檔”命令，并為它們 編寫(xiě)程序。實(shí)驗(yàn)七對(duì)話框、多文檔界面設(shè)計(jì)32提示：“剪切”、復(fù)制“、粘貼”功能均與粘貼板(Clipboard)對(duì)象有關(guān)，相 關(guān)內(nèi)容可參閱實(shí)驗(yàn)六選做實(shí)驗(yàn)第一題?！按蜷_(kāi)文檔”和“保存文檔”命令的實(shí)現(xiàn)，除了要使用通用對(duì)話框控件打開(kāi)相應(yīng)的對(duì)話框指定文件名及其位置外，還需要使用In put語(yǔ)句和Write語(yǔ)句讀入文件的內(nèi)容或文檔中的內(nèi)容寫(xiě)入文件。例如，可用下面 的程序段分別實(shí)現(xiàn)“打開(kāi)文檔”、“另存為”功能：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實(shí)驗(yàn)八文件的基本操作和文件的讀寫(xiě)實(shí)驗(yàn)?zāi)康?掌握DriveListBox、DirListBox和FileListBox等文件控件的使用方法2掌握用傳統(tǒng)方式進(jìn)行文件復(fù)制、移動(dòng)、刪除及重命名等基本

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

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

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

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

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

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

49、利用數(shù)據(jù)控件添加數(shù)據(jù) 數(shù)據(jù)控件上的當(dāng)前記錄號(hào)和總記錄數(shù)可以使用記錄集對(duì)象的兩個(gè)屬性:AbsolutePosition和RecordCount得到三、數(shù)據(jù)庫(kù)記錄集的操作方法程序2:利用數(shù)據(jù)庫(kù)記錄集的操作方法實(shí)現(xiàn)顯示、修改、添加和刪除記錄的 功能。程序界面如下圖所示。實(shí)驗(yàn)十?dāng)?shù)據(jù)庫(kù)操作（一）42程序代碼見(jiàn)附錄VB6.0 程序設(shè)計(jì)上機(jī)實(shí)驗(yàn)指導(dǎo)43實(shí)驗(yàn)二程序1主要屬性設(shè)置:對(duì)象屬性屬性值文本框（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 = _文本框是一個(gè)多功能控件，可以顯示或者接收用戶輸入的文本信息End Sub返回 程序2主要屬性設(shè)置:對(duì)象屬性屬性值姓名文本框（名稱）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è)計(jì)上機(jī)實(shí)驗(yàn)指導(dǎo)45主要屬性設(shè)置:對(duì)象屬性屬性值標(biāo)簽(Label1)Capti on復(fù)選框和單選按鈕是應(yīng)用程序中允 許用戶進(jìn)行選擇的控件。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返回實(shí)驗(yàn)三程序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è)計(jì)上機(jī)實(shí)驗(yàn)指導(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è)置:對(duì)象屬性屬性值水平滾動(dòng)條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