VB程序設(shè)計(jì)上機(jī)指導(dǎo)

1、VB程序設(shè)計(jì)上機(jī)指導(dǎo)實(shí)驗(yàn)一 窗體文件、工程文件的建立、保存與打開（一）（2學(xué)時(shí)）一、上機(jī)目的1、掌握工程文件的建立、保存和打開方法。2、掌握窗體文件的建立、保存和打開方法。3、掌握建立、編輯和運(yùn)行一個(gè)簡單的Visual Basic應(yīng)用程序的全過程。二、上機(jī)內(nèi)容及主要步驟上機(jī)題1：設(shè)計(jì)一簡單應(yīng)用程序，在窗體上放置1個(gè)文本框、2個(gè)命令按鈕，初始的時(shí)候text控件值為空，單擊“繼續(xù)”按鈕后text控件顯示“這是我的第一個(gè)VB應(yīng)用程序”，單擊“結(jié)束”按鈕退出，用戶界面如圖所示。圖1主要步驟提示：（1）新建一個(gè)工程；（2）按上圖所示在窗體上添加一個(gè)標(biāo)簽（label）控件，兩個(gè)命令按鈕（command）控

2、件，并相應(yīng)調(diào)整它們?cè)诖绑w中的位置；（3）將標(biāo)簽控件的text屬性設(shè)置為空（即清除text屬性中的文本text1）；（4）雙擊“結(jié)束”按鈕，在彈出的代碼窗口中編寫相應(yīng)的事件過程，如圖2；（5）同理，雙擊“繼續(xù)”按鈕，在彈出的代碼窗口中編寫相應(yīng)的事件過程，如圖3；（6）保存并運(yùn)行工程，如運(yùn)行時(shí)有錯(cuò)誤請(qǐng)根據(jù)提示做相應(yīng)修改后再保存再運(yùn)行。 圖2圖3上機(jī)題2：設(shè)計(jì)如圖4的密碼驗(yàn)證程序，假設(shè)正確密碼是“123456”，單擊“驗(yàn)證”按鈕時(shí)，如果輸入的密碼正確則在標(biāo)簽2上提示“密碼正確！”，否則則在標(biāo)簽2上提示“密碼錯(cuò)誤！”，單擊“退出”按鈕退出程序。主要步驟提示：（1）建立如圖4所示的應(yīng)用程序界面（包括兩個(gè)

3、標(biāo)簽，標(biāo)簽1用于顯示“請(qǐng)輸入密碼”，標(biāo)簽2用于顯示經(jīng)過密碼校驗(yàn)后的結(jié)果，標(biāo)簽2初始值為空；一個(gè)文本框，注意密碼輸入的時(shí)候要顯示成*號(hào)的形式，可在password屬性里設(shè)置；兩個(gè)命令按鈕）。（2）“驗(yàn)證”按鈕的事件過程如下：Private Sub Command1_Click() If Text1.Text = 123456 ThenLabel2.Caption = 密碼正確！Else Label2.Caption = 密碼錯(cuò)誤！ Endif End Sub（3）保存并運(yùn)行工程，結(jié)果如圖5、圖6所示。圖4圖5圖6上機(jī)題3：設(shè)計(jì)一個(gè)簡單程序，該界面如下圖所示。程序運(yùn)行后單擊“開始”按鈕，文本框中顯

4、示“歡迎使用VB6.0!”，單擊“修改” 按鈕時(shí)，將文本框中的文字的大小設(shè)為20號(hào)，前景色設(shè)成紅色。單擊 “清除”按鈕時(shí)，清除文本框的內(nèi)容，單擊“結(jié)束”按鈕時(shí)，程序結(jié)束。圖7主要步驟提示：（1）按上圖所示建立好程序界面（2）各按鈕的主要事件過程如圖8所示：圖8三、注意事項(xiàng)：（1）修改對(duì)象屬性和引用對(duì)象方法時(shí)用的對(duì)象名必須是屬性窗口中第一個(gè)屬性“名稱”屬性里的值；（2）對(duì)象名后的句點(diǎn)不能輸成句號(hào)；（3）輸出一段文字時(shí)，在文字的兩端必須加上英文輸入狀態(tài)下的雙引號(hào)。實(shí)驗(yàn)二 窗體文件、工程文件的建立、保存與打開（二）（2學(xué)時(shí)）一、上機(jī)目的1、熟練掌握工程文件的建立、保存和打開方法。2、熟練掌握窗體文件

5、的建立、保存和打開方法。3、熟練掌握建立、編輯和運(yùn)行一個(gè)簡單的Visual Basic應(yīng)用程序的全過程。二、上機(jī)內(nèi)容及主要步驟上機(jī)題1：設(shè)計(jì)一個(gè)程序，程序界面如圖1：程序由7個(gè)標(biāo)簽（label）、兩個(gè)文本框（textbox）和三個(gè)按鈕組成。當(dāng)用戶輸入完相應(yīng)的姓名和學(xué)號(hào)信息后單擊“確定”按鈕會(huì)顯示出校對(duì)信息（如圖2）；單擊“清空”按鈕后清空輸入的信息及驗(yàn)證信息；單擊“退出”按鈕結(jié)束程序。另外，在單擊窗口的時(shí)候使窗口隱藏，并彈出一個(gè)對(duì)話框（如圖3），該對(duì)話框提示“單擊顯示，重新顯示窗口”，當(dāng)單擊“顯示”按鈕后重新顯示窗口。圖1圖2圖3主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖1所示的應(yīng)用程序

6、界面（包括7個(gè)標(biāo)簽（label）、兩個(gè)文本框（textbox）和三個(gè)按鈕）；（3）編寫各按鈕的事件過程，其中“確定”、“清空”、“退出”、按鈕的名字分別是command1、command2、command3。相應(yīng)的代碼如圖4；（4）保存工程，運(yùn)行并調(diào)試。圖4上機(jī)題2：設(shè)計(jì)一個(gè)程序，程序界面如圖5所示：程序由一個(gè)圖像框（image）、四個(gè)按鈕組成。單擊“左移”按鈕，圖像左移（每次向左移動(dòng)100）；單擊“縮小”按鈕圖像，圖像縮小為原來的一半；單擊“放大”按鈕，圖像放大為原來的兩倍；單擊“右移”按鈕，圖像右移（每次向右移動(dòng)100）。圖5主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖5所示的應(yīng)用程序

7、界面（包括1個(gè)圖像框（image）、和三個(gè)按鈕），并事先往圖像框中添加一張圖片；（3）編寫各按鈕的事件過程，其中“左移”、“縮小”、“放大”、“右移”按鈕的名字分別是command1、command2、command3、command4。相應(yīng)的代碼如圖6；（4）保存工程，運(yùn)行并調(diào)試。圖6三、注意事項(xiàng)：（1）有關(guān)對(duì)話框的知識(shí)請(qǐng)參閱課本P176；實(shí)驗(yàn)三 常用標(biāo)準(zhǔn)控件（4學(xué)時(shí)）一、上機(jī)目的1、掌握標(biāo)簽、文本框、命令按鈕的設(shè)計(jì)方法及常用屬性、事件和方法；2、掌握單選按鈕、復(fù)選按鈕和框架的設(shè)計(jì)方法及常用屬性、事件和方法；3、掌握列表框、組合框的設(shè)計(jì)方法及常用屬性、事件和方法。二、上機(jī)內(nèi)容及主要步驟上機(jī)題

8、1：設(shè)計(jì)一個(gè)程序，程序由兩個(gè)按鈕組成，每個(gè)按鈕都有相應(yīng)的快捷鍵，程序界面如圖1。當(dāng)用戶單擊“確定”按鈕或按鍵盤上的Enter鍵時(shí)窗體會(huì)顯示信息“確定按鈕被選中！”（如圖2）；當(dāng)用戶單擊“取消”按鈕或按鍵盤上的Esc鍵時(shí)窗體會(huì)顯示信息“取消按鈕被選中！”（如圖3），圖1圖2圖3主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖1所示的應(yīng)用程序界面；（3）將command1的Default屬性設(shè)置為true，將command2的Cancel屬性設(shè)置為true；（4）編寫兩按鈕的單擊事件（利用窗體的Print方法輸出提示信息）；（5）保存工程，運(yùn)行并調(diào)試。上機(jī)題2：設(shè)計(jì)一個(gè)簡單計(jì)算器，程序初始界面如圖

9、4所示：當(dāng)單擊“相加”按鈕，在前兩個(gè)文本框的標(biāo)簽中顯示“+”號(hào)，并計(jì)算出前兩個(gè)文本框中兩數(shù)的和，將和存放到第三個(gè)文本框；同樣的道理單擊其它按鈕都會(huì)顯示相應(yīng)的運(yùn)算符號(hào)，并算出結(jié)果；單擊“歸零”按鈕，程序界面回到圖4所示的界面（焦點(diǎn)在第一個(gè)文本框）。圖4主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖4所示的應(yīng)用程序界面（包括3個(gè)文本框、兩個(gè)標(biāo)簽和五個(gè)按鈕，為避免運(yùn)算結(jié)果被誤改，將文本框3設(shè)為只讀）；（3）編寫各按鈕的事件過程，其中“相加” 、“相減” 、“相乘” 、“相除” 、“歸零”按鈕的名字分別是command1、command2、command3、command4、command5。相應(yīng)的

10、代碼如圖5；（4）保存工程，運(yùn)行并調(diào)試。圖5上機(jī)題3：設(shè)計(jì)一個(gè)初始界面如圖6的程序，文本框中默認(rèn)顯示“單選按鈕演示”，單擊“字體”框架中某一項(xiàng)時(shí)，文本框中的文字就被修改為相應(yīng)的字體；單擊顏色框架中某一項(xiàng)時(shí)，文本框中的文字就被修改為相應(yīng)的顏色；單擊“結(jié)束”按鈕退出應(yīng)用程序。圖6主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖6所示的應(yīng)用程序界面（包括1個(gè)文本框、兩個(gè)框架frame和6個(gè)單選按鈕OptionButton，1個(gè)命令按鈕）；（3）編寫各控件的事件過程，其中單選按鈕“宋體”、“隸書”、“幼圓”、“紅”、“綠”、“藍(lán)”的名字分別是Option1、Option2、Option3、Option

11、4、Option5、Option6。相應(yīng)的代碼如圖7；（4）保存工程，運(yùn)行并調(diào)試。圖7上機(jī)題4：設(shè)計(jì)一個(gè)初始界面如圖8的程序，程序中文本框中默認(rèn)顯示“復(fù)選框演示”，選中“粗體”復(fù)選框時(shí)，文本框中的文字被加粗；選中“斜體”復(fù)選框時(shí)，文本框中的文字被改成斜體；選中“下劃線”復(fù)選框時(shí)，文本框中的文字被加上下劃線。圖8主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖6所示的應(yīng)用程序界面（包括1個(gè)文本框、3個(gè)復(fù)選框CheckBox）；（3）編寫各控件的事件過程，其中復(fù)選框“粗體” 、“斜體” 、“下劃線”的名字分別是Check1、Check2、Check3。相應(yīng)的代碼如圖9；（4）保存工程，運(yùn)行并調(diào)試。

12、圖9上機(jī)題5：設(shè)計(jì)一個(gè)簡單記事本程序，程序初始界面如圖10所示。該程序能夠在右邊文本編輯區(qū)內(nèi)輸入多行文字，并通過單擊左邊列表框里相應(yīng)的字號(hào)來修改編輯區(qū)里文本字體的大小。另外，通過單擊“添加”按鈕會(huì)彈出一個(gè)如圖11的輸入對(duì)話框來添加新的字號(hào)；單擊“刪除”按鈕刪除選中的字號(hào)；單擊“清除”按鈕清除列表框內(nèi)所有的字號(hào)。圖10圖11主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖10所示的應(yīng)用程序界面（包括1個(gè)文本框、1個(gè)標(biāo)簽，一個(gè)列表框ListBox和3個(gè)命令按鈕）；（3）按圖11的樣式來設(shè)計(jì)界面，注意為使文本框能輸入多行文本需把文本框的MultiLine屬性設(shè)置為true；（4）編寫各控件的事件過程

13、，其中復(fù)選框“添加” 、“刪除” 、“清空”三個(gè)命令按鈕的名字分別是command1、command2、command3，列表框的名字為List1。相應(yīng)的代碼如圖12；（5）保存工程，運(yùn)行并調(diào)試。圖12上機(jī)題6：設(shè)計(jì)如圖13所示的程序，該程序通過三個(gè)滾動(dòng)條來改變窗體的顏色。圖13主要步驟提示：（1）新建一個(gè)工程；（2）建立如圖13所示的應(yīng)用程序界面（包括3個(gè)標(biāo)簽，3個(gè)水平滾動(dòng)條HScrollBar）；（3）將3個(gè)水平滾動(dòng)條的min屬性值都設(shè)為0，max屬性值都設(shè)為255；（4）編寫各控件的事件過程，其中三個(gè)水平滾動(dòng)條從上到下的名字依次是：HScroll1、HScroll2、HScroll3。相

14、應(yīng)的代碼如圖14；（5）保存工程，運(yùn)行并調(diào)試。圖14三、注意事項(xiàng)：（1）上機(jī)題2中在實(shí)現(xiàn)除法運(yùn)算的時(shí)候要扣除除數(shù)為0的情況（可彈出對(duì)話框提示除數(shù)不能為0）；（2）在上機(jī)題2中在各個(gè)運(yùn)算都能得出正確結(jié)果后試著將代碼中的“val”去掉，例如加法運(yùn)算代碼改成“text3.text=text1.text+text2.text”看看結(jié)果會(huì)變成什么？想想為什么會(huì)出現(xiàn)這個(gè)結(jié)果；（3）通過上機(jī)題3與上機(jī)題4明確單選按鈕與復(fù)選框的用法；（4）輸入對(duì)話框的相應(yīng)知識(shí)參閱課本P148。實(shí)驗(yàn)四 常量、變量、函數(shù)、表達(dá)式的應(yīng)用（4學(xué)時(shí)）一、上機(jī)目的1、掌握VB數(shù)據(jù)類型；2、學(xué)會(huì)定義符號(hào)常量；3、掌握變量的類型及定義方法；

15、4、學(xué)會(huì)使用VB表達(dá)式；5、掌握VB常用內(nèi)部函數(shù)的用法。二、上機(jī)內(nèi)容及主要步驟上機(jī)題1：編寫一個(gè)程序，該程序通過輸入一個(gè)圓的半徑，能求出圓的周長和面積 。主要步驟提示：（1）建立一個(gè)標(biāo)準(zhǔn)工程文件。（2）雙擊Form1窗體，進(jìn)入代碼編輯窗口，在Form1的Click事件中輸入程序代碼（代碼中橫線部份需要根據(jù)后面注釋補(bǔ)充完整）：Private Sub Form_Click()_定義單精度型變量R，S和L_定義單精度符號(hào)常量PI ，賦值為3.14R = Val ( InputBox(“請(qǐng)輸入該圓的半徑：”) )S =_計(jì)算圓的面積L =_計(jì)算圓的周長Print “圓的面積為：” ； SPrint “

16、圓的周長為：” ； LEnd Sub（3）運(yùn)行程序，單擊窗體，觀察運(yùn)行結(jié)果，并保存工程文件。上機(jī)題2：分別定義幾個(gè)符號(hào)常量（如雙精度、字符串型、日期時(shí)間型等符號(hào)常量），并根據(jù)提示賦予相應(yīng)的初值，最后用Print語句輸出相應(yīng)結(jié)果。主要步驟提示：（1）建立一個(gè)標(biāo)準(zhǔn)工程文件。（2）雙擊Form1窗體，進(jìn)入代碼編輯窗口，在Form1的Click事件中輸入以下程序代碼（代碼中橫線部份需要根據(jù)后面注釋補(bǔ)充完整）：Private Sub Form_Click()_定義PI為雙精度符號(hào)常量，并賦值為3.14。Print “PI=”;PI_定義VB6為字符型符號(hào)常量，并賦值為“Visual Basic 6.0”

17、。Print “Visual Basic 6.0”Print “VB6=”;VB6_定義BIRTHDAY為日期型符號(hào)常量，并賦值為你的生日。Print “我的生日是：”; BIRTHDAY_定義BEGIN_TIME為日期型符號(hào)常量,并賦值為7:50:20 AMPrint BEGIN_TIMEEnd Sub（3）運(yùn)行程序，單擊窗體，觀察運(yùn)行結(jié)果，并做記錄。上機(jī)題3：定義一個(gè)變體型變量somevalue，并賦予幾個(gè)不同類型的值，觀察變體型變量類型的變化。主要步驟提示：（1）建立一個(gè)標(biāo)準(zhǔn)工程文件。（2）雙擊Form1窗體，進(jìn)入代碼編輯窗口，在Form1的Click事件中輸入下列程序代碼（代碼中橫線部

18、份需要根據(jù)后面注釋補(bǔ)充完整）：Private Sub Form_Click()_聲明somevalue為變體型變量Somevalue = “200” 存入字符串“200”Print somevalue;”它的類型是：”;typename(somevalue)Somevalue = somevalue 20 somevalue 的值為數(shù)值 180Print somevalue;”它的類型是：”;typename(somevalue)Somevalue = “abc” & somevalue somevalue的值為字符串“abc180”Print somevalue;”它的類型是：”;typen

19、ame(somevalue)End Sub（3）保存文件。（4）運(yùn)行文件，單擊窗體，觀察運(yùn)行結(jié)果，并作記錄。上機(jī)題4：按要求填寫代碼，并觀察輸出結(jié)果。主要步驟提示：（1）建立一個(gè)標(biāo)準(zhǔn)工程文件。（2）雙擊Form1窗體，進(jìn)入代碼編輯窗口。在Form的Click事件中輸入下列代碼：Private Sub Form_Click()Const pi as single=3.14Print_在窗體上顯示 Sin30的值。Print_在窗體上顯示 10的值。Print Sgn(10) 在窗體上返回10的符號(hào)。Print_在窗體上顯示 字母A的ASCII碼值。Print Chr(65) Print_在窗體上

20、顯示 “HOW ARE YOU!”的小寫形式。Print_在窗體上顯示字符串 “HOW ARE YOU!”的長度。Print_在窗體上返回字符串“HOW ARE YOU!” 的第6個(gè)字符。Print_在窗體上顯示系統(tǒng)當(dāng)前日期。Print_在窗體上顯示系統(tǒng)當(dāng)前日期和時(shí)間。Print_在窗體上顯示系統(tǒng)當(dāng)前的年份。End Sub（3）保存文件。（4）運(yùn)行文件。單擊窗體，觀察運(yùn)行結(jié)果，并作記錄。三、注意事項(xiàng)：（1）上機(jī)題1的答案如下：Dim r As Single, s As Single, l As SingleConst pi As single = 3.14s = pi * r 2l = 2 *

21、 pi * r（2）上機(jī)題2的答案如下：Const PI As Double = 3.14Const VB6 As String = Visual Basic 6.0Const BIRTHDAY As Date = #1/1/2009#Const BEGIN_TIME As Date = #12:00:00 PM#（3）上機(jī)題3的答案如下 ：Dim somevlue as variant另外，“&”是字符串通用連接運(yùn)算符（參閱課本P78）（4）上機(jī)題4的答案如下 ：Print Sin(30 * pi / 180)Print Abs(-10)Print Asc(A)Print LCase(HOW

22、 ARE YOU!)Print Len(HOW ARE YOU!)Print Mid(HOW ARE YOU!, 6, 1)Print DatePrint NowPrint Year(Date)另外，該題所調(diào)用的系統(tǒng)內(nèi)部函數(shù)請(qǐng)參閱課本P79-P84實(shí)驗(yàn)五 順序結(jié)構(gòu)和選擇結(jié)構(gòu)（4學(xué)時(shí)）一、上機(jī)目的1、掌握順序結(jié)構(gòu)程序設(shè)計(jì)方法；2、掌握選擇結(jié)構(gòu)程序設(shè)計(jì)方法。二、上機(jī)內(nèi)容及主要步驟上機(jī)題1：編寫一個(gè)程序，該程序?qū)崿F(xiàn)了兩個(gè)變量的值調(diào)換功能，程序初始界面如圖1。單擊“調(diào)換”按鈕時(shí)變量1與變量2的值對(duì)調(diào)，單擊“清空”按鈕時(shí)兩個(gè)文本框清空，并且將焦點(diǎn)放在第一個(gè)文本框內(nèi)。圖1主要步驟提示：（1）建立一個(gè)標(biāo)準(zhǔn)工

23、程文件，并按圖1所示設(shè)計(jì)好程序界面；（2）雙擊“調(diào)換”按鈕，進(jìn)入代碼編輯窗口，在該按鈕的Click事件中輸入程序代碼（代碼中橫線部份請(qǐng)先填寫完整）：Private Sub Command1_Click() Dim a As Integer, b As Integer, t As Integer a =Text1.Text b=Text2.Text _ _ _ Text1.Text=a Text2.Text=bEnd Sub（3）雙擊“清空”按鈕，編寫該按鈕的單擊事件代碼，代碼如圖2：圖2（4）保存工程，運(yùn)行并調(diào)試。上機(jī)題2：商場為了促銷，經(jīng)常采用購物打折的銷售辦法，根據(jù)購物款的多少將折扣分為若干種，例如： 購物款在1000元（含1000元）以上，打7.5折。 購物款在5001000元（含500元）之間，打8.5折。 購物款在200500元（含200元）之間，打9折。 購物款在200以下，不打折。請(qǐng)編寫一個(gè)初始界面如圖3的程序：當(dāng)輸入客戶購物金額后單擊“結(jié)賬”按鈕會(huì)顯示出相應(yīng)的折扣、優(yōu)惠金額和實(shí)際付款數(shù)；單擊“重置”按鈕程序回到初始狀態(tài)。圖3主要步驟提示：（1）