VB實驗指導2024版資料

目錄

第一部分上機實習指導...................................................2

開頭的話..................................................................................2

試驗一VB環(huán)境和可視化編程基礎(chǔ)..............................................................3

試驗二依次結(jié)構(gòu)程序設(shè)計....................................................................11

試驗三選擇結(jié)構(gòu)程序設(shè)計....................................................................16

試驗四循環(huán)結(jié)構(gòu)程序設(shè)計（I）.............................................................................................................................22

試驗五循環(huán)結(jié)構(gòu)程序設(shè)計（2）.............................................................................................................................24

試驗六數(shù)組的運用（1）........................................................................................................................................26

試驗七數(shù)組的運用（2）........................................................................................................................................29

試驗八過程調(diào)用（1）............................................................................................................................................31

試驗九過程調(diào)用（2）............................................................................................................................................33

試驗十常用控件的運用......................................................................35

試驗十一文件的操作........................................................................42

試驗十二綜合設(shè)計..........................................................................45

試驗十三數(shù)據(jù)庫應(yīng)用基礎(chǔ)（選作）............................................................49

其次部分試驗報告......................................................52

第一部分上機實習指導

開頭的話

為了幫助同學們更好地學習VisualBasic程序設(shè)計，特編寫本書作為協(xié)助教學用書，用以

指導上機實習。

學習計算機程序設(shè)計，上機實踐與理論學習同等重要。把上機實踐搞懂弄通，可以達到

事蘭功倍的效果。希望同學們要腦勤手勤，通過上機實習環(huán)節(jié)，真正駕馭計算機這一現(xiàn)代化

工具，為將來成為國家的復合型適用型人才奠定基礎(chǔ)。

在此先向大家提幾點留意事項：

1.上機以前要做好充分的預(yù)習，復習課堂講的學問，看懂上機指導的內(nèi)容，不要急匆忙

地進機房就盲目地敲鍵盤，學習程序設(shè)計可不是練習打字喲。

2.本指導書給出的一些杼序代碼僅供參考，同學們不要被它所束縛，因為編程的方法許

多，關(guān)鍵是要提高分析問題與解決問題的實力。提倡開拓思路，目標是實現(xiàn)題目要求的功能，

允許殊途同歸。當然，也有算法的好與壞問題（有效性問題），那要靠多積累多學習才能夠駕

馭。

3.本課程的上機實習題目是前后相關(guān)的，從第一次試驗起先，請同學留意保存文件。因

此，在起先試驗之前，要打算好保存敷據(jù)的介質(zhì)，比如U恭0創(chuàng)建一個文件夾，把全部的文

件存在里面。但建議在上機作題時先臨時把文件存在硬盤的某一文件夾，試臉結(jié)束后在存到

自己的盤中，這樣運行速度會快些。也可以將每次的文件存在自己的信箱或網(wǎng)絡(luò)硬盤中。

4.由于試驗課時有限，每次試驗都有必做題目（題號前面帶★的）和選做題E,在完成

必做題的基礎(chǔ)上，選做題可依據(jù)自己的實際或依據(jù)試驗指導老師的規(guī)定挑一些練習（最好都

做，可利用課外時間），有實力的同學可做一些開放型試臉題，基礎(chǔ)差的同學可重點做一些基

本題，肯定要立足于自己學會，切記不要相互拷貝。

5.最終一次試驗是將前面的題目綜合匯總，其中有一項是為老師制作的一個閔卷程序。

由于期末復習時間較緊，為保證這個綜合設(shè)計，同學們可以提前做出主界面，再將每次的題

目加入到里面。

本指導書如有錯誤或不妥之處請大家指出，不勝感謝。

實驗一VB環(huán)境和可視化編程基礎(chǔ)

一、試驗?zāi)康?/p>

I.駕馭啟動與退出VisualBasic的方法。

2.熟識VisualBasic6.0的集成環(huán)境及其基本操作。

3.駕馭建立、編輯和運行一個簡潔的VB應(yīng)用程序的基本步驟。

4.駕馭常用控件（窗體、文本框、標簽、吩咐按鈕）的運月。

5.理解面對對象編程的機制及編碼過程。

二、試驗打算

1.復習VB窗體窗I」、屬性窗口、工程管理器窗口、代碼窗II、工具箱窗口的組成、打開和關(guān)閉的方

法。

2.復習窗體、標簽、按鈕、文本框四個控件的常用屬性和方法，自學圖形框、圖像框控件的運用（參

見教材2.2及教材71.3）,

3.復習教材第4.6節(jié)程序調(diào)試。

4.試驗步驟如下（以后各題均執(zhí)行此步驟）：

⑴建立用戶界面須要的控件對象；

⑵設(shè)置對象屬性；

⑶編寫對象事務(wù)過程；

⑷保存文件（窗體文件和工程文件及其它）；

⑸調(diào)試運行程序。

三、試驗內(nèi)容

★試驗1-1a

創(chuàng)建一個簡潔的VB程序。要求在窗體背景上放入一張圖片，用一個標簽控件顯示“歡迎運用Visual

Basic”字樣。程序運行效果如圖1-1所示。

主要步驟和設(shè)計要點：

⑴啟動VB,創(chuàng)建一個“標準”類型的應(yīng)用程序。

⑵從【工具箱】中選擇一個標簽控件（Label）放在窗體上。

⑶在【屬性窗口】設(shè)置窗體與標簽的屬性，詳見表1-1?（若【屬性窗口】沒有打開，可在選中控件

對象后單擊右鍵，在彈出的快捷菜單中選擇“屬性窗口”）。

（4）為讓標簽居中，可運用【格式】菜單中的“在窗口中居中對齊”一項設(shè)置為“水平對齊”。

（5）窗體的背景圖片是MicrosoftOffice的剪貼畫，一般可在C：（或D：）\ProgramFiles\Microsoft

Office\Mcdia\Cagcat10文件夾中找到，也可通過Windows的文件搜尋，還可以在Office剪貼畫中搜尋“計算

機”，查看該圖片的屬性找到其路徑。

（6）保存文件時先彈出對話框保存窗體文件，再彈出對話框保存工程文件。每個VB程序都至少有這兩

個文件。本題分別以syl-la.frm和syl-la.vbp為文件名保存，以后各題也建議遵循這樣的文件命名。

⑺單擊工具欄上“啟動”按鈕或功能鍵F5,運行程序，查看效果。如有不對，再行修改。反復調(diào)試直

至符合要求。

圖17試驗17a運行效果

表17試驗17a的屬性設(shè)置

控件名標題背景色自動尺寸邊框樣式字體(Font)圖片

(Name)(Caption)(BackColoi)(AutoSize)(BoderStyle)(Picture)

Form11a試驗l-laJ0195384.WMF

Label1“歡迎運用黃色True1-FixedSingle楷體

Visual粗體

Basic”小.

說明：⑴本題工程中只有一個窗體，運用它的默認名稱為Forml本也無妨，但考慮到以后要將這個窗體加入

到其它工程中，故命新名：Formlla,以后各題的窗體都以此方式按Form+試臉序號命名，不再贊述。

⑵本題沒有編寫程序代碼的問題。

(3)表1-1中屬性值為空的，表示運用默認值或該控件沒有此屬性，下同。

試驗1-1b

在試驗1-Ia的基礎(chǔ)上，做以下變更：用在圖形框控件添加圖片的方法裝飾窗體，并用兩種不同的屬性

設(shè)置對比效果；通過吩咐按鈕變更標簽字體。程序運行效果如圖1-2所示。

主要步驟和設(shè)計要點：

⑴新創(chuàng)建一個“標準”類型的應(yīng)用程序。此時VB系統(tǒng)在打開【新建工程】窗口前可能提示是否存上一

題的兩個文件，回答“是”。

⑵從【工具箱】中選擇控件：一個標簽(Label)、兩個圖像框(PictureBox)、三個吩咐按鈕

(CommandButton)放在窗體上。

⑶在【屬性窗口】設(shè)置窗體與其它控件的屬性，部分屬性值見表1-2。

⑷為讓窗體上控件對齊與均布，可運用【格式】菜單中的“對齊”、“統(tǒng)一尺寸”、“水平間距”、

“在窗口中居中對齊”等項進行調(diào)整。

⑸在【代碼窗口】寫三個吩咐按鈕中的代碼。(【代碼窗口】可通過雙擊相應(yīng)控件打開；或調(diào)用菜單：

【視圖】一【代碼窗口】)。留意對應(yīng)的控件名稱及事務(wù)名稱。

⑹兩個圖形框中的背景圖片同上題。

⑺保存文件syl-lb.fnn和syl-lb.vbp,運行并調(diào)試程序。

*實會-lb

歡迎使用VisualBasic

宋體|隸書」|rig

圖1-2試驗l-lb運行效果

表1-2試驗17b的屬性設(shè)置

控件名標題前景色背景色邊框樣式字體(Foni)圖片

(Name)(Caption)(ForcColor)(BackColor)(BoderStyle)(Picture)

Form11b試驗l-lb黃色

Liibell“歡迎運用VisualBasic”紅色backStyle=O楷體

(Transparent粗體

背景透亮)小三

Picture1白色0—NoneJOI95384.wmf

Picture2按鈕表面色1-FixedSingleJ0195384.wmf

Command1宋體

Command2隸書

Conimand3還原

表1-3試驗1Tb的事務(wù)過程代碼

控件名單擊事務(wù)過程(Click)

Command1LabelI.Fonl="宋體"

Command?LabelI.Font="隸書"

Command3Label1.Font="楷體_GB2312"

留意：⑴代碼中的引號及其它標點肯定要寫為英文標點，不要寫成漢字標點符號。

(2)還原按鈕中對Label1的字體設(shè)置要與初始設(shè)置一樣，此處是“楷體”。

★試驗1-2a

創(chuàng)建一個簡潔的VB程序。要求在窗體上顯示“歡迎登陸VB上機系統(tǒng)”、“請輸入您的學號”和“請

輸入登錄密碼”，以及兩個等待輸入學號和密碼的文本框和?個吩咐按鈕。學號與密碼均為8位（超過8

位則不能輸入），密碼的輸入顯示為“*另外窗體上不要最大、最小和關(guān)閉按鈕。單擊吩咐按鈕“確定”

時，程序結(jié)束。程序運行效果如怪1-3所示。

實險-2a

歡迎登錄VB上機系統(tǒng)

請輸入你的學號I------------------------

話輸入登錄密碼I------------------------

圖1-3試驗1-2a運行效果

主要步驟和設(shè)計要點：

（1）從【工具箱】中選擇控件：三個標簽（Label）、兩個文本框（Text）和一個吩咐按鈕（CommandButlon）

放在窗體上。

⑵在【屬性窗口】設(shè)置窗體與其它控件的屬性，部分屬性值見表1-4。

⑶為讓窗體上控件對齊與均布，可運用【格式】菜單等進行調(diào)整。

（4）在【代碼窗口】寫出吩咐按鈕Command1的Click（單擊事務(wù)）中的代碼:End。

⑸保存文件syl-2a.frm和syl-2a.vbp。運行并調(diào)試程序：輸入你的學號和一個自定義的密碼，查看效

果，再試一下輸入9位是否可以。最終單擊“確定”按鈕讓程序結(jié)束。

表1-4試驗1-2a的屬性設(shè)置

控件名標題字體文本文本最大長度口令掩碼限制框(ControlBox)

（Name）(Caption)(Font)(Text)（MaxLength）(PasswordChar)

Form12a試驗l-2aFalse

Label1“歡迎登錄VB小二

上機系統(tǒng)”

Te.Ul小五清空8

Text2小五清空8*

Command1確定小五

思索并嘗試：⑴再添加一個“顯示”按鈕，將揄入的密碼的內(nèi)容在Text2中顯示出來。

⑵或添加一個“打印”按鈕，將輸入的密碼的內(nèi)容打印到窗體上。

試驗1-2b

創(chuàng)建VB程序：在名稱為Forml2b的窗體上放三個文本框和兩個吩咐按鈕，其中第一個文本框用于顯

示文本（不能輸入），其次個文本框用于輸入文本，第三個文本框用于摘錄文本。后兩個文本他要滿意多

行輸入。要求程序運行后，在左側(cè)文本框中輸入文本，不能超過100個字符，然后用鼠標選取其中部分文

本，單擊“摘要”按鈕，選中文本則放入右邊文本框?！皠h除”鈕將的作用是將右邊文本框清空。運行效

果如圖1-4所示。

鼻實驗l-2b

圖1-4試驗I-2b的運行效果

主要步驟和設(shè)計要點：

(1)從【I：具箱】中選擇控件：三個文本框(Text)和兩個吩咐按鈕(CommandButton)放在窗體上。

運用【格式】菜單等進行位置調(diào)整。

⑵在【屬性窗口】按題目要求設(shè)置文本框的屬性，部分屬性值見表1-5。

⑶在【代碼窗口】寫出相關(guān)代碼，詳見表1-6。

(4)保存文件syl-2b.frm和syl-2b.vbp。運行并調(diào)試程序：輸入一段文本，選中其中一部分，單擊兩個

按鈕查看效果。

表1-5試驗1-2b的屬性設(shè)置

控件名標題文本背景色只讀多行文本最大長度滾動條

(Name)(Caption)(Text)(BackColor)(lockeD)(MultiLinc)(MaxLcngth)(ScrollBars)

Texll清空灰色TrueTrue

Text2清空True1002-Vertical

Text3清空True2-Vertical

Conunand1摘要

Command?刪除

表1-6試驗1-2b的事務(wù)過程弋碼

控件名單擊事務(wù)過程(Click)裝載事務(wù)過程(load)

Command1Text3.Text=Text2.SeiText

Command?Text3=""

TcxlI.Tcxl="1.請在左邊輸入文本，不要超過100字."+vbCrLf+"2.

Form12b用鼠標選取部分文本，單擊“摘要”按鈕，將文本放入右邊文本框。"+"

單擊“刪除”鈕將右邊文本框清空。"

提示：(DTexll中的文本Text屬性可以在“屬性窗口”作初始設(shè)置，也可以象本題一樣在窗體的Load事務(wù)中

用代碼的形式寫入。而文本框的SelTcxt屬性只能在代碼中寫。

⑵若要設(shè)鹿文本框的滾動條，必需先將文本框的多行屬性(MulliLine)設(shè)為真(True)。

★試驗1-3a

創(chuàng)建一個VB程序，運行界面如圖1-5所示。其功能為：在文本框中輸入一串字符，通過按鈕對其字

號放大2倍、縮小2倍或還原成初始設(shè)置。為了防止程序運行錯誤(字體過大或過小)，不應(yīng)連續(xù)放大和縮

小，即單擊一次“放大”或“縮小”按鈕后，按鈕為不行操狀態(tài)。

圖1-5試瞼l-3a的運行效果

主要步驟和設(shè)計要點：

(1)從【匚具箱】中選擇控件：一個文本框(Text)、一個標簽(Label)和三個吩咐按鈕(CommandButton)

放在窗體上。運用【格式】菜單等進行位置調(diào)整。

⑵在【屬性窗口】進行相關(guān)的屬性設(shè)置，其中標簽(Labell)的字號設(shè)置為4號。

⑶在【代碼窗口】寫出相關(guān)代碼，詳見表1-6。兩個要點：

①因在Form_Load()事務(wù)過程中設(shè)置了Texll的FontSize初始值，為了實現(xiàn)“還原”功能，可以倜用

Form_Load()事務(wù)過程中獲得還原值；

②在“放大”、“縮小”按鈕單擊事務(wù)里讓自己變?yōu)椴恍杏玫耐瑫r，別忘了把另一個設(shè)為可用。

(4)保存文件syl-3a.frm和syl-3a.vbp。運行并調(diào)試程序：輸入一串字符，單擊三個按鈕查看效果。

說明：代碼中CallFormLoad一句，作用是調(diào)用FormLoad過程，將在第6章講到。

表1-7試驗1-3a的事務(wù)過程弋碼

及件名單擊事務(wù)過程(Click)裝載事務(wù)過程(load)

Form13aText!.FontSize=24

Text1.FontSize=Text1.FontSize*2

Command1

Command1.Enabled=False：Command?.Enabled=True

Text!.FontSize=Text1.FontSize\2

Command?

Command2.Enabled=False：Command1.Enabled=True

CallForm_Load

Command?

Comniand2.Enabled=True：Command1.Enabled=True

★試驗1-3b

編制程序：在窗體上放一張小汽車圖片，用兩個吩咐按鈕限制它的移動，但移動到窗體的邊緣時就不

能再動，且在窗體上打印出“停車”，此時第三個“還原”“按鈕出現(xiàn)，可以單擊它回到原位置，也可以

向相反方向移動。程序運行效果如圖I-6和圖1-7所示。

圖1-6試驗I-3b的運行效果1

圖試驗1-3b的運行效果2

主要步驟和設(shè)計要點：

（1）從【工具箱】中選擇控件：?個圖像框（Image）和三個吩咐按鈕（CommandButton）放在窗體上。

運用【格式】菜單等進行位置調(diào)整。

⑵在【屬性窗口】進行相關(guān)的屬性設(shè)置，要點：

①吩咐按鈕可以有另一種仔形樣式，此時要把Caption屬性設(shè)為空，本題中的圖片一般可以在C:（或

D：）\ProgramFiles\MicrosoftVisualStudio\Common\Graphics\Icons\Arrows文件夾中找到，也可以通過搜尋

獲得;

②將“還原”按鈕設(shè)為不行見。

⑶在【代碼窗口】寫出相關(guān)代碼，詳見表1-9。要點：

①通過Image1的Left屬性的變更達到圖象移動的目的；

②通過Image1的Left的值與窗體邊界的關(guān)系限制“小汽車”停止移動；

③代碼中有選擇結(jié)構(gòu)if語句，將在第三章講到。

（4）保存文件syl-3b.frm和syl-3b.vbp。運行并調(diào)試程序：單擊三個按鈕查看效果。

表1-8試驗1-3b的屬性設(shè)置

控件名標題樣式可見圖片

（Name）(Caption)(Style)(Visible)(Picture)

Image1J0212957.WMF（位置同試驗l-la中圖片）

Command1（清空）1-GraphcalPOINT02.ICO

Co(ninand2（清空）1-GraphcalPOINT04.ICO

Conimand3還原False

表1-9試驗1-3b的中吩咐按鈕的單擊（Click）事務(wù)過程代碼

Command!Command2Coirmand3

CisCis

Comniand3.Visible=FalseCommands.Visible=False

IfIrnagel.Lcft<0ThenIfImagel.Left>(Form13b.Width-Image1.Width)Then

Commands.Visible=True：Print"停車！"

Image!.Ixft=1440

Prim"停車！"Commands.Visible=True

ElseElse

Image1.MoveImagel.Left-50Image1.MoveImage1.Left+50

EndIfEndIf

思索并嘗試：（D不用Move方法，而是用變更Left屬性值，實現(xiàn)圖像的移動。

⑵不用“還原”按鈕，小汽車移動到左邊緣時“右指”的按鈕出現(xiàn)，小汽車移動到右邊緣時“左指”

的按鈕出現(xiàn)。

試驗1-3c

如圖1-8所示界面，通過單擊自動按鈕（左）或手動按鈕（右），使窗體中“歡迎運用VB”字體向下

滾動，試自己完成該題。體會運行、調(diào)試效果。（窗體的背景圖片可自己選擇）。

圖1-8試驗1-3c的運行效果

實驗二依次結(jié)構(gòu)程序設(shè)計

一、試驗?zāi)康?/p>

I.駕馭表達式、賦值語句的正確運用與書寫規(guī)則。

2.駕馭常用函數(shù)的運用。

3.駕馭InputBox與MsgBox函數(shù)(過程)的運用。

4.駕馭各種數(shù)據(jù)類型

5.駕馭VB程序基本的輸入輸出方法。

二、試驗打算

1.更習利用輸入框函數(shù)InpuiBox進行數(shù)據(jù)輸入；利用文本框進行數(shù)據(jù)輸入。

2.復習利用標簽輸出結(jié)果、利用文本框輸出結(jié)果、利用Print方法在窗體中或圖形框中輸出結(jié)果、利

用信息框函數(shù)(過程)輸出簡潔結(jié)果。

3.復習各種數(shù)據(jù)類型的聲明、賦值與運算。

4.復習相關(guān)函數(shù):Vai()、StrO、IsNumeric()、InputBox()、MsgBox()、Rgb()、Len()、Trim

()、LCase()、UCase()、DaleValue()、DateDiff()、Year()、Month()、Day()、Hour()、Minute

()、Second()、Date()、Now()o

5.夏習相關(guān)事務(wù)與方法：SetFocus方法、LostFocus事務(wù)、GotFocus事務(wù)。

三、試驗內(nèi)容

★試驗2-1a

編制程序解決簡潔實際問題：用戶輸入圓的半徑，計算出圓周長和面積，運行界面如圖2-1所示。耍

求對輸入半徑進行合法檢查，若發(fā)覺有非法數(shù)字(不是數(shù)字的字符)，利用MsgBox顯示出錯信息，利用

SetFocus方法定位于出錯的文本框處，以便重新輸入。

圖2-1試驗2-la的運行效果

主要步驟和設(shè)計要點:

⑴將圖2-1所示的控件放到窗體上：文本框用作數(shù)據(jù)的輸入與輸出，標簽用于提示輸入，按鈕用來計

算結(jié)果。

⑵在【屬性窗口】進行相關(guān)的屬性設(shè)置。將用作輸出的文本框設(shè)為只讀，且將背景色設(shè)為灰色。

⑶在【代碼窗口】寫出相關(guān)代碼，詳見表2-1。要點：

①文本框中的數(shù)據(jù)是字符型的，留意將其轉(zhuǎn)換為數(shù)值數(shù)據(jù)，運用函數(shù)Val()。

②在Texll失去焦點時(LoslFocus。事務(wù))驗證數(shù)據(jù)的有效性，利用函數(shù)IsNumeric()推斷是否是

數(shù)字字符，若不是先清空文本框再讓它獲得焦點(SetFocus)。

③本題中運用了MsgBox()函數(shù)，但不要求返回值。

⑷保存文件sy2-la.frm和sy2-la.vbp.運行并調(diào)試程序：輸入半徑數(shù)，看計算結(jié)果(可用計算器驗算

一下)；輸入非法字符看是否報錯c

表2-1試驗2-1a主要控件對象的屬性設(shè)置與事務(wù)代碼

控件名只讀背景色事務(wù)過程代碼

(Name)(lockeD)(BackColor)

TexllPrivateSubText1_Los(Focus()

IfNotIsNumeric(Texrl)Then

i=MsgBox("輸入了非數(shù)字字符!",64,"提示")

Text1

Textl.SetFocus

EndIf

Text2=""

Text3=

EndSub

Te:1t2True灰

Tcxl3True灰

Command1PrivateSubCommand1_Click()

Text2.Text=2*3.!4*Val(Textl)

EndSub

Conimand2PrivateSubConimand2_Click()

Text3.Text=3.!4*Val(Textl)A2

EndSub

提示：當用鼠標或Tad鍵將光標移至別處時稱作失去焦點，相反叫獲得焦點。

★試驗2-1b

同上題：用戶輸入圓的半徑，計算出圓周長和面積，運行界面如圖2-2所示。要求利用InpinBox函數(shù)

進行輸入，利用標簽進行數(shù)據(jù)結(jié)果的顯示。請同學自己完成。

★提示：

1.將兀值設(shè)為一個常量，便于在表達式中計算。

2.數(shù)值數(shù)據(jù)用“十”號連接到Label的Caption屬性時要用函數(shù)Str()轉(zhuǎn)換。

%實驗2Tb

計算圓的周長與面積

圓的半徑為：12

圓的周長是:75.39816

圓的面積是：452.3889

if......I+M...n

圖2-2試驗2-1b的運行效果

思索：幾種揄入、輸出的方式各有什么優(yōu)缺點，你更喜愛用哪種？

★試驗2-2a

接試驗l-2a題：界面大體如前，將原“確定”按鈕改為“退出”，功能不變。再加一個“驗證”按鈕，

其功能是：若輸入正確的學號“20249999”、正確的密碼“TJinl234”，則在文本框中顯示“True"，反

之為“False”。均為紅色顯示。運行效果如圖2-3所示。

圖2-3試驗2-2a的運行效果

主要步驟和設(shè)計要點：

⑴打開已有的工程文件syl-2a.vbp(留意不是窗體文件)，利用【文件】菜單中【工程另存為…】一

項將其另存為sy2-2a.vbp；然后利用【文件】菜單中【syl-2a6m另存為…】一項將窗體文件也另存為

sy2-2a.frnio在新文件中編輯修改。

⑵通過菜單【視圖】中【對象窗口】一項調(diào)出窗體，也可以雙擊“工程資源管理器”中的窗體文件名，

打開窗體，然后進行添加一個吩咐按鈕，相應(yīng)的屬性設(shè)置。

⑶在【代碼窗口】寫出“驗證”按鈕的單擊事務(wù)代碼及其它代碼，詳見表2-2。要點：

①利用RGB()函數(shù)變更文本框中文本的顏色。

②Tcxtl=(Tcxtl="20249999”)這個賦值語句右側(cè)得到的是一個邏輯值，將它賦給了Tcxtl的Text屬

性(文本框的默認屬性)。

(4)保存文件sy2-2a.fim和sy2-2a.vbp。運行并調(diào)試程序。

提示：肯定要把窗體文件也通過“另存為''復制過來，否則兩個工程共用一個窗體，做過修改的窗體就與原工

程的膻意不符了。

表2-2試驗2-2a主要控件對象的事務(wù)代碼

控件名得到焦點事務(wù)過程代碼單擊事務(wù)過程代碼

(Name)(GotFocus)(Click)

TexllText1=

Text1.ForeColor=RGB(0.0.0)

Text2Text2=""

Tcxt2.ForcColor=RGB?0,0)

Text2.PasswordChar=

Conimand2Text1.ForeColor=RGB(255,0.0)

Text2.ForcColor=RGB(255.0,0)

Text2.PasswordChar=""

Textl=(Textl="20249999")

Text2=(Text2="TJinl234")

試驗2-2b

練習字符串的相關(guān)函數(shù)。輸入一個字符串，將它轉(zhuǎn)換成大寫、轉(zhuǎn)換成小寫、顯示其字串長度、顯示去

掉首尾空格后的長度。運行效果如圖2-4所示。請同學們參照圖2-4所示界面，自行設(shè)計本題。

圖2-4試驗2-25的運行效果

試驗2-2c

練習時間的相關(guān)函數(shù)。利用標簽顯示當前的日期、時間，利用文本框輸入一個新的日期。通過函數(shù)計

算出新日期與當前之差(多少年、多少月、多少天)并用紅色文本顯示出來。運行效果如圖2-5所示。請

同學們參照圖2-5所示界面，自行設(shè)計本題。

★提示：

1.要用到這些函數(shù)：Date()、Year()、Month()、Day()、Hour()、Minute()、Second()、

Now()、DateValue()、DateDiff().

2.在Form_Load()事務(wù)里寫的代碼，能夠在程序起先運行時就起作用。前兩行文本是通過函數(shù)得到

的，所以不行能在【屬性窗口】中設(shè)置其值。

3.用運算符“&”可以把不同類型數(shù)據(jù)聯(lián)成一個字符型的數(shù)據(jù)。

■實驗2-2c

今天是2011年3月150

現(xiàn)在是21點51分58秒

請輸入你的畢業(yè)臼期:

[20U年[7—月p-臼

令天距你畢業(yè)還有3年或40個月或I204天

0

圖2-5試驗2-la的運行效果

試驗2-3a

練習賦值語句。利用標簽、文本框、按鈕等控件，顯示賦值語句的內(nèi)涵。運行效果如圖2-6所示。請

同學們參照圖2-6所示界面，自行設(shè)計本題。

★提示：

1.對應(yīng)X、Y的文本框用于輸入，其它三個用于輸出，可設(shè)為只讀。

2.幾個按鈕中單擊事務(wù)的代碼均為先將兩個文本框的值給變量X與Y,如乂=T?*[1：y=Text2；再

進行相應(yīng)的賦值，如乂=丫；最終再將新值給到新X和新Y,如Text3=x,Text4=y,等等。

圖2-6試驗2-3a的運行效果圖2-7試驗2-3b的運行效果

試驗2-3b

練習表達式的正確書寫與計算。利用標簽、文本框、按鈕等控件，計算數(shù)學題。運行效果如圖2-7所

示。請同學們參照圖2?7所示界面，自行設(shè)計本題。

★提示：

題H的公式是張圖片。先用Office中的公式編輯好（或月圖形工具畫好），再貼到窗體上的圖形框

（或圖像框）中。

實驗三選擇結(jié)構(gòu)程序設(shè)計

一、試驗?zāi)康?/p>

1.駕馭邏輯表達式的正確書寫形式。

2.駕馭單分支與雙分支條件語句的運用。

3.駕馭多分支條件語句的運用。

4.駕馭狀況語句的運用及與多分支條件語句的區(qū)分。

二、試驗打算

1.復習If語句中的If…Then形式、If…Then…Else形式、比..Then…Elself形式。

2.復習If語句的嵌套形式。

3.復習SelectCase語句。

4.復習函數(shù)：MsgBox()(及MsgBox過程)、Rnd()、Ini()、IsNumeric()^InStr()、Trim()、

Chr()o

5.更習SetFocus方法、GotFocus事務(wù)、Load事務(wù)。

三、試驗內(nèi)容

★試驗3-1a

輸出二級考試的成果：假如筆試合格，上機考試也合格，輸出“合格”；假如筆試合格，上機不合格,

輸出“筆試合格”；若相反，輸出“上機合格”；假如兩者都不合格，輸出“不合格”。用選擇結(jié)構(gòu)編寫一

段程序，完成以上功能，輸入用文本框?qū)崿F(xiàn)，輸出用標簽或文本用實現(xiàn)。(注：大于等于60分為合格)。程

序運行效果如圖3-1所示。

圖31試驗31a的運行效果

主要步驟和設(shè)計要點：

⑴依據(jù)圖3-1所示，在窗體上添加相應(yīng)控件對象。

⑵在【屬性窗口】進行相關(guān)的屬性設(shè)置。若用文本框作輸出將其設(shè)為只讀，且將背景色設(shè)為灰色。若

用標簽作輸出將其邊框樣式設(shè)為BorderStyle=l,背景色設(shè)為灰色。

⑶在【代碼窗口】寫出“核定”按鈕的單擊事務(wù)代碼。請同學自行完成。

(4)保存文件sy3-la.fnn和sy3-la.vbp。運行并調(diào)試程序。

思索并嘗試：在你寫的代碼中不要運用邏輯運算符“And”。

試驗3-1b

編寫模擬袖珍計算器的程序，運行界面如圖3-2所示。要求如下：⑴輸入兩個操作數(shù)和一個四則運算

操作符，依據(jù)操作符確定所做的運算。⑵輸入的數(shù)據(jù)進行合法檢驗，當輸入出錯時，調(diào)用MsgBoxO提示。

程序運行效果如圖3-2所示。

圖3-2試驗3-1b的運行效果

主要步驟和設(shè)計要點：

⑴將圖3-2所示的控件放到窗體上：文本框用作數(shù)據(jù)的輸入與輸出，標簽用于提示輸入，按鈕用來計

算結(jié)果。

⑵在【屬性窗口】進行相關(guān)的屬性設(shè)置。將用作輸出的文本框設(shè)為只讀，且將背景色設(shè)為灰色。

⑶在【代碼窗口】寫出相關(guān)代碼，詳見表3-1及其以下表3-2中文字。要點如下：

①三個用于輸入數(shù)據(jù)的文本框得到焦點時，就意味著可能會重新輸入，所以要將輸入文本框中的數(shù)

據(jù)清空，以避開在窗體上出現(xiàn)錯誤的顯示。

②計算前先驗證數(shù)據(jù)數(shù)據(jù)的有效性，利用函數(shù)IsNumeric()推斷是否是數(shù)字字符，若不是則清空文

本柩讓它獲得焦點(SelFocus),以便重新輸入。

③依據(jù)輸入的運算符來推斷作什么運算，參考代碼中用了一個包含四則運算符的字符串Strc,通過

找子串函數(shù)InStr(),推斷Text3口的字符是否在含于Strc中，若不在(返回值為0),則認定為非法字符,

讓用戶重新輸入。

(4)保存文件sy3-lbfrm和sy3-lb.vbp.運行并調(diào)試程序：輸入運算符與運算數(shù)，看計算結(jié)果(可用計

算器驗算一下)；輸入非法字符看是否報錯。

表37試驗37b主要控件對象的事務(wù)代碼

控件名得到焦點事務(wù)過程代控件名單擊事務(wù)過程代碼

(Name)碼(Name)(Click)

(GolFocus)

TextlText4=""Command1見表3-2中的內(nèi)容

Texl2Texl4=

Text3Text4=""Command2End

表3-2試驗3-1b按鈕的單擊事務(wù)代碼

“計算”

PrivateSubCommandI_Click()

Dimml!,m2!,c$,strc$,m!,i%

strc="+-*/"

IfNotIsNurneric(Textl)Then

i=MsgBoxf'數(shù)1是非數(shù)值數(shù)據(jù)！、16,“提示”)

Textl=""

Tcxtl.SetFocus

ElselfNotIsNumeric(Text2)Then

i=MsgBox("數(shù)2是非數(shù)值數(shù)據(jù)！".16,“提示”)

Text2=""

Text2.SeiFocus

ElselfInStr(strc,Trini(Text3))=0Then

Ifc<