實(shí)驗(yàn)2 用Visual Basic開(kāi)發(fā)環(huán)境建立一個(gè)簡(jiǎn)單的程序

【實(shí)驗(yàn)?zāi)繕?biāo)】

通過(guò)實(shí)驗(yàn)進(jìn)一步熟悉Visual Basic開(kāi)發(fā)環(huán)境，學(xué)習(xí)編寫程序的全過(guò)程。

【實(shí)驗(yàn)內(nèi)容】

練習(xí)編寫一個(gè)簡(jiǎn)單的名人名言顯示程序，運(yùn)行時(shí)界面如圖2.6所示。

圖2.6 簡(jiǎn)單的名人名言顯示程序界面

【實(shí)驗(yàn)說(shuō)明】

1．程序運(yùn)行時(shí)通過(guò)單擊相應(yīng)的命令按鈕，可以顯示不同的名言，單擊“退出”按鈕，可以結(jié)束并退出程序。

2．窗體（Form）

窗體用于可視化的建立應(yīng)用程序，是Visual Basic中應(yīng)用程序的基本框架模塊，是運(yùn)行程序時(shí)與用戶交互的實(shí)際操作窗口。

窗體最常用的屬性是Caption屬性，Caption屬性的值就是該窗體的標(biāo)題欄中顯示的值。Caption屬性的值可以在程序運(yùn)行時(shí)由用戶輸入，也可以由程序設(shè)定。設(shè)置Caption屬性的方法是：Form1.Caption=值。

3．標(biāo)簽（Label）控件。

標(biāo)簽控件可以顯示用戶不能直接改變的文本。例如，在本實(shí)驗(yàn)中，用它來(lái)顯示相應(yīng)的名言。標(biāo)簽控件的最常用的屬性是Caption屬性。Caption屬性的值就是該控件中顯示的值。Caption屬性的值只能在設(shè)計(jì)時(shí)設(shè)置或在運(yùn)行時(shí)由程序設(shè)置，不能由用戶輸入。程序運(yùn)行時(shí)設(shè)置Caption屬性的方法是：Label1.Caption=值。

4．命令按鈕（CommandButton）控件。

按下命令按鈕后可以使程序完成一定的功能，CommandButton控件是Visual Basic中使用較多的一個(gè)控件。在本實(shí)驗(yàn)中，按下一個(gè)命令按鈕可進(jìn)行相應(yīng)的算術(shù)運(yùn)算。

命令按鈕控件最常用的屬性是Caption屬性。Caption屬性的值就是該控件中顯示的值。Caption屬性的值只能在設(shè)計(jì)時(shí)設(shè)置或在運(yùn)行時(shí)由程序設(shè)置，不能由用戶輸入。

命令按鈕控件最常用的事件是Click事件，表示當(dāng)用鼠標(biāo)左鍵單擊該控件時(shí)要運(yùn)行的事件處理程序。

5．簡(jiǎn)單名人名言顯示程序的設(shè)計(jì)界面如圖2.7所示。

【實(shí)驗(yàn)分析】

通過(guò)對(duì)實(shí)訓(xùn)內(nèi)容進(jìn)行認(rèn)真分析，并結(jié)合Visual Basic軟件的功能及操作，我們可以將實(shí)驗(yàn)內(nèi)容分解如下：

首先啟動(dòng)Visual Basic，并建立一個(gè)用戶窗體；然后向窗體中加載控件，并設(shè)置窗體及控件的屬性；接著編寫代碼程序，并對(duì)程序進(jìn)行調(diào)試和運(yùn)行；最后將程序編譯成可執(zhí)行文件。

圖2.7 簡(jiǎn)單名人名言顯示程序的設(shè)計(jì)界面

【示范操作】

1．建立窗體。

按照實(shí)驗(yàn)2的方法啟動(dòng)Visual Basic，并選擇“標(biāo)準(zhǔn)EXE”選項(xiàng)，進(jìn)入Visual Basic編程環(huán)境。此時(shí)Visual Basic已經(jīng)自動(dòng)建立一個(gè)用戶窗體Form1，將在這個(gè)窗體中進(jìn)行設(shè)計(jì)和編程。

2．向窗體中加載控件。

向窗體中加載控件的操作步驟如下：

（1）在“工具箱”中單擊需要在窗體中加載的控件圖標(biāo)，此時(shí)鼠標(biāo)將變成“十”字形。

（2）將“十”字形鼠標(biāo)移動(dòng)到窗體（Form1）中適當(dāng)?shù)奈恢谩?/p>

（3）按住鼠標(biāo)左鍵，并拖動(dòng)鼠標(biāo)，此時(shí)，窗體（Form1）中相應(yīng)的位置顯示出一個(gè)表示控件的大小的虛框。當(dāng)虛框的大小合適時(shí)，松開(kāi)鼠標(biāo)左鍵，這樣就在窗體（Form1）中增加了一個(gè)控件。

按照以上步驟在窗體Form1中加載以下控件：

用于顯示名言內(nèi)容的標(biāo)簽控件Label1。

用于選擇“劉備”的命令按鈕控件Command1。

用于選擇“華羅庚”的命令按鈕控件Command2。

用于選擇“愛(ài)因斯坦”的命令按鈕控件Command3。

用于退出程序的“退出”命令按鈕控件Command4。

3．設(shè)置窗體及控件的屬性。

設(shè)置控件屬性的操作步驟如下：

（1）選擇“視圖”中的“屬性窗口”或按下F4鍵顯示“屬性窗口”。

（2）用鼠標(biāo)左鍵在窗體中單擊需要設(shè)置屬性的窗體或控件，“屬性窗口”將自動(dòng)顯示該窗體或控件的屬性。

（3）找到需要設(shè)置的屬性，并將其設(shè)置為需要的值。

按照以上步驟設(shè)置窗體及步驟（2）中添加的各控件的屬性如下：

        Form1的Caption屬性為“名言”
        Label1的Caption屬性為“”
        Command1的Caption屬性為“劉備”
        Command2的Caption屬性為“華羅庚”
        Command3的Caption屬性為“愛(ài)因斯坦”
        Command4的Caption屬性為“退出”

4．編寫代碼程序。

雙擊一個(gè)控件，可以調(diào)出代碼編輯窗口，為相應(yīng)的控件編寫程序代碼。

5．調(diào)試和運(yùn)行程序。

任何一個(gè)程序設(shè)計(jì)完成后，如果沒(méi)有經(jīng)過(guò)很好的調(diào)試，都難免會(huì)出現(xiàn)錯(cuò)誤。在Visual Basic中調(diào)試應(yīng)用程序主要有以下三種方法。

（1）單步運(yùn)行：選擇“調(diào)試”菜單中的“逐語(yǔ)句”選項(xiàng)，或按下F8鍵，可以使程序向下運(yùn)行一步。

（2）逐過(guò)程運(yùn)行：選擇“調(diào)試”菜單中的“逐過(guò)程”選項(xiàng)，或按下Shift+F8鍵，可以僅運(yùn)行一個(gè)過(guò)程。

（3）設(shè)置斷點(diǎn)：將光標(biāo)移到程序中需要設(shè)置斷點(diǎn)的位置，選擇“調(diào)試”菜單中的“切換斷點(diǎn)”選項(xiàng)，或按下F9鍵，或直接在“代碼編輯器”窗口中某語(yǔ)句前面的空白區(qū)域單擊鼠標(biāo)左鍵，都可以設(shè)置或取消一個(gè)程序運(yùn)行中的斷點(diǎn)。當(dāng)程序運(yùn)行到設(shè)置的“斷點(diǎn)”時(shí)，會(huì)自動(dòng)中斷運(yùn)行，此時(shí)，可以檢測(cè)有關(guān)變量的值。

6．編譯程序。

程序編寫完成后，為了使它可以脫離開(kāi)Visual Basic運(yùn)行，我們需要把它編譯成EXE文件。將程序編譯成EXE文件的方法是在Visual Basic開(kāi)發(fā)環(huán)境中選擇“文件”菜單中的“生成工程1.EXE”選項(xiàng)。這樣就可以生成一個(gè)名稱為“工程1.EXE”的可執(zhí)行文件，以后不進(jìn)入Visual Basic環(huán)境也可以運(yùn)行這個(gè)程序。至此，一個(gè)應(yīng)用程序就設(shè)計(jì)完成了。

【程序代碼】

        Private Sub Command1_Click()
            '如果單擊“劉備”按鈕，則將劉備的名言賦值給Label1的Caption屬性，
            '以在窗口中顯示出來(lái)
            Label1.Caption = "勿以惡小而為之，勿以善小而不為"
        End Sub
        Private Sub Command2_Click()
            '如果單擊“華羅庚”按鈕，則將華羅庚的名言賦值給Label1的Caption屬性，
            '以在窗口中顯示出來(lái)
            Label1.Caption = "聰明出于勤奮，天才在于積累"
        End Sub
        Private Sub Command3_Click()
            '如果單擊“愛(ài)因斯坦”按鈕，則將愛(ài)因斯坦的名言賦值給Label1的Caption屬性，
            '以在窗口中顯示出來(lái)
            Label3.Caption = "成功 = 艱苦勞動(dòng) + 正確方法 + 少說(shuō)空話"
        End Sub
        Private Sub Command4_Click()
            '如果單擊“退出”按鈕，則結(jié)束并退出程序
            End
        End Sub