VBNET程序設(shè)計(jì)及項(xiàng)目實(shí)訓(xùn)課件

1、項(xiàng)目一項(xiàng)目一 創(chuàng)建創(chuàng)建VB.NETVB.NET程序開發(fā)環(huán)境程序開發(fā)環(huán)境 任務(wù)1 創(chuàng)建VB.NET程序開發(fā)環(huán)境圖1-1 Visual Studio 2008 安裝界面圖1-2 用戶協(xié)議界面圖1-3 安裝選擇圖1-4 自定義安裝圖1-5 安裝進(jìn)度圖1-6 安裝完成提示1.2 啟動(dòng)Visual Studio2008圖1-7 第一次啟動(dòng)界面圖1-8 起始頁(yè)圖1-9 起始頁(yè)1.3 熟悉Visual Studio2008編程環(huán)境vVisual Studio 2008將支持程序開發(fā)的各種功能集成在一個(gè)公共的工作環(huán)境中，稱之為“集成開發(fā)環(huán)境”。在該編程開發(fā)環(huán)境中提供了各種控件、窗口和方法，用戶可以方便的進(jìn)行各

2、種應(yīng)用程序的開發(fā)，以及在各種開發(fā)界面中切換，可以在很大程度上節(jié)約開發(fā)時(shí)間。vVisual Studio 2008的開發(fā)環(huán)境主要由以下幾部分組成：菜單欄、工具欄、窗體、工具箱、屬性窗口、解決方案資源管理器和服務(wù)器資源管理器等。v1.菜單欄：菜單欄包括“文件”、“編輯”、“視圖”、“項(xiàng)目”、“數(shù)據(jù)”、“工具”、“調(diào)試”、“測(cè)試”、“分析”、“窗口”和“幫助”等。其中包含了開發(fā)Visual Basic程序常見的命令。v文件菜單中常用的功能包括：v“新建”：支持新建項(xiàng)目、網(wǎng)站等應(yīng)用程序；v“打開”：支持打開已有的項(xiàng)目、網(wǎng)站等應(yīng)用程序；v“關(guān)閉”：關(guān)閉正在編寫的項(xiàng)目；v“關(guān)閉解決方案”：關(guān)閉正在編寫的解

3、決方案；v“退出”：退出Visual Studio 2008編程環(huán)境。圖1-10 文件菜單v編輯菜單常用的功能有：撤銷、重復(fù)、剪切、復(fù)制、粘貼等。v視圖菜單常用的功能有：v“代碼”：打開代碼編輯界面；v“設(shè)計(jì)器”：打開設(shè)計(jì)器編輯界面；v“服務(wù)器資源管理器”：打開和服務(wù)器以及數(shù)據(jù)庫(kù)相關(guān)內(nèi)容的操作界面；v“解決方案資源管理器”：打開解決方案資源管理器窗口；v“類視圖”：打開類視圖窗口；v“工具箱”：打開工具箱窗口；v“屬性窗口”：打開控件的屬性窗口。圖1-11 視圖菜單v調(diào)試菜單常用的功能如下：v“啟動(dòng)調(diào)試”：?jiǎn)?dòng)當(dāng)前應(yīng)用程序的調(diào)試，快捷鍵是F5；v“開始執(zhí)行（不調(diào)試）”：?jiǎn)?dòng)當(dāng)前應(yīng)用程序的執(zhí)行，

4、不調(diào)試，快捷鍵是Ctrl+F5；圖1-12 調(diào)試菜單v2.工具欄v工具欄在菜單欄的下邊，工具欄提供了常用命令的快速訪問按鈕，單擊某個(gè)按鈕，可執(zhí)行對(duì)應(yīng)的操作，效果和使用菜單是同樣的。v3.窗體v在創(chuàng)建了一個(gè)Windows應(yīng)用程序后，系統(tǒng)會(huì)自動(dòng)生成一個(gè)默認(rèn)的窗體，也就是應(yīng)用程序界面。在開發(fā)過(guò)程中，用戶編程使用的各種控件就是布局在窗體之上的，當(dāng)程序運(yùn)行時(shí)，用戶所看到的就是窗體。 圖1-13 窗體v4.工具箱v工具箱中提供了各種控件、容器、菜單和工具欄、組件、打印、對(duì)話框和報(bào)表等。在默認(rèn)情況下，工具箱將控件和各種組件按照功能的不同進(jìn)行了分類。用戶在編程過(guò)程中，根據(jù)需要選擇各種控件和組件。如果所需要的控

5、件或者組件在工具箱中找不到，可以單擊工具箱的右鍵，選擇“選擇項(xiàng)”，進(jìn)入“選擇工具箱”對(duì)話框。圖1-14 工具箱圖1-15 選擇工具箱5.屬性窗口屬性窗口包含選定對(duì)象（Form窗體或控件）的屬性、事件列表。在設(shè)計(jì)程序時(shí)可以通過(guò)修改對(duì)象的屬性來(lái)設(shè)計(jì)外觀和相關(guān)值，這些屬性值將是程序運(yùn)行時(shí)各對(duì)象屬性的初始值屬性窗口包括以下幾個(gè)按鈕“按分類排序”、“字母順序”、“屬性”、“事件”分別用于設(shè)置顯示屬性還是事件，以及顯示是按照分類還是按照字母順序 圖1-16 屬性窗口v6.解決方案資源管理器v解決方案資源管理器采用Windows資源管理器的界面，按照文件層次列出當(dāng)前解決方案中的所有文件。解決方案資源管理器包

6、括以下幾個(gè)按鈕：“顯示所有文件”、“刷新”、“查看代碼”、“視圖設(shè)計(jì)器”以及“查看類關(guān)系圖” 圖1-17 解決方案資源管理器圖1-18 顯示所有文件任務(wù)2 VB.NET Windows應(yīng)用程序設(shè)計(jì)流程v2.1 建立一個(gè)VB.NET Windows應(yīng)用程序v1.在Visual Studio2008中，創(chuàng)建一個(gè)Visual Basic程序意味著創(chuàng)建一個(gè)Visual Basic解決方案。創(chuàng)建一個(gè)新項(xiàng)目的步驟如下：v首先啟動(dòng)Visual Studio 2008編程環(huán)境，在菜單“文件”中，選擇“新建”“項(xiàng)目”，系統(tǒng)會(huì)出現(xiàn)新建項(xiàng)目對(duì)話框 圖1-19 新建項(xiàng)目對(duì)話框v在左側(cè)選擇Visual Basic語(yǔ)言，

7、在右側(cè)的Visual Studio已安裝的模板中，選擇“Windows窗體應(yīng)用程序”模板，在名稱中輸入解決方案的名稱，位置中選擇解決方案所保存的位置，然后點(diǎn)擊“確定”，完成項(xiàng)目的創(chuàng)建。 圖1-20 完成項(xiàng)目創(chuàng)建效果v2.打開一個(gè)項(xiàng)目v如果一個(gè)Visual Basic項(xiàng)目已經(jīng)創(chuàng)建好，需要繼續(xù)編寫，這時(shí)可以選擇打開項(xiàng)目。步驟如下：v選擇“文件”菜單，單擊“打開”“項(xiàng)目項(xiàng)目”，在彈出的“打開項(xiàng)目”對(duì)話框中，選擇要打開的項(xiàng)目，一般應(yīng)選擇擴(kuò)展名為“.sln”的文件 圖1-21 打開項(xiàng)目對(duì)話框v3.保存項(xiàng)目v當(dāng)編輯完項(xiàng)目后，需要保存項(xiàng)目，步驟為：v單擊工具欄中的“全部保存”按鈕，或者單擊“文件”菜單“全部

8、保存”命令。v4.編譯運(yùn)行項(xiàng)目v設(shè)計(jì)一個(gè)項(xiàng)目時(shí)，該項(xiàng)目處于編輯狀態(tài)，如果需要測(cè)試已編輯的內(nèi)容，需要編譯和運(yùn)行項(xiàng)目，可以有以下幾種方式對(duì)項(xiàng)目進(jìn)行測(cè)試：v單擊工具欄中的“啟動(dòng)調(diào)試”按鈕；v單擊“調(diào)試”菜單“啟動(dòng)調(diào)試”選項(xiàng)或“開始執(zhí)行（不調(diào)試）”選項(xiàng)；v按鍵盤快捷鍵F5或Ctrl+F5；v例如，在項(xiàng)目中添加一個(gè)按鈕控件，并雙擊按鈕，編寫一個(gè)簡(jiǎn)單的事件，即給按鈕的單擊事件添加一個(gè)提示語(yǔ)句：vMessageBox.Show(“Hello，歡迎來(lái)到Visual Basic編程環(huán)境”)圖1-22 程序運(yùn)行效果2.2 VB.NET Windows應(yīng)用程序的設(shè)計(jì)流程v1.在Visual Studio 2008編

9、程環(huán)境下開發(fā)VB.NET Windows應(yīng)用程序一般具有以下幾個(gè)步驟：v（1）需求分析v根據(jù)實(shí)際應(yīng)用需要，進(jìn)行需求分析，需要設(shè)計(jì)程序具有什么樣的功能，對(duì)應(yīng)的功能需要什么樣的控件來(lái)實(shí)現(xiàn)，以及需要編寫什么樣的代碼等。v（2）新建VB.NET Windows應(yīng)用程序項(xiàng)目v打開Visual Studio 2008，新建一個(gè)VB.NET Windows應(yīng)用程序，一個(gè)應(yīng)用程序就是一個(gè)項(xiàng)目，用戶根據(jù)所要?jiǎng)?chuàng)建的程序要求，選擇合適的應(yīng)用程序類型。v（3）新建用戶界面v建立項(xiàng)目之后，根據(jù)程序的功能要求，在窗體上合理的布置控件，并調(diào)整合適的大小和位置。v（4）設(shè)置對(duì)象的屬性v布局好控件之后，需要對(duì)控件的外觀以及初始

10、狀態(tài)進(jìn)行設(shè)置，以滿足程序的需要，設(shè)置屬性可以打開“屬性窗口”進(jìn)行設(shè)置。v（5）編寫代碼v布局好控件并設(shè)置好控件的初始屬性之后，就可以編寫代碼了。可以點(diǎn)擊控件或窗體的右鍵，通過(guò)“屬性窗口”中的事件選擇需要編寫的事件，也可以直接進(jìn)入代碼界面編寫代碼。代碼的編寫將根據(jù)程序的需要進(jìn)行選擇。v（6）運(yùn)行調(diào)試程序v完成上述步驟后，就可以運(yùn)行程序，并做測(cè)試，以發(fā)現(xiàn)問題并及時(shí)修改。調(diào)試和改錯(cuò)是程序開發(fā)過(guò)程中非常重要的步驟，需要反復(fù)使用，以盡可能的優(yōu)化程序。v（7）生成可執(zhí)行文件v程序開發(fā)完成并正確運(yùn)行后，需要將程序生成可執(zhí)行文件，發(fā)布出去。v（8）部署應(yīng)用程序v編寫好的應(yīng)用程序，可以在Visual Studi

11、o 2008中進(jìn)行部署，以自動(dòng)創(chuàng)建安裝文件。v2.創(chuàng)建一個(gè)簡(jiǎn)單的計(jì)算器程序v設(shè)計(jì)制作一個(gè)簡(jiǎn)單的Visual Basic Windows應(yīng)用程序，將兩個(gè)文本框輸入的數(shù)字進(jìn)行相加，結(jié)果顯示在標(biāo)簽控件Label4上 圖1-23 程序運(yùn)行效果v1.需求分析v該應(yīng)用程序的功能是：有兩個(gè)文本框作為用戶的輸入，用戶在輸入之后，需要判斷是否是數(shù)字，如果是數(shù)字，點(diǎn)擊“兩操作數(shù)相加”按鈕時(shí)，可以將兩個(gè)操作數(shù)的值相加并顯示在Label4控件上。如果兩個(gè)文本框中有一個(gè)輸入的不是數(shù)字，將給出提示。v2.新建項(xiàng)目v1）選擇“文件”“新建項(xiàng)目”，創(chuàng)建一個(gè)Visual Basic Windows應(yīng)用程序 圖1-24 新建項(xiàng)目

12、v2）在“新建項(xiàng)目”對(duì)話框中，項(xiàng)目類型選擇“Visual Basic”，模板中選擇“Windows應(yīng)用程序”，項(xiàng)目名稱為WindowsApplication8，單擊“確定”按鈕，即可新建一個(gè)VB.NET Windows應(yīng)用程序項(xiàng)目。v3.創(chuàng)建用戶界面v創(chuàng)建好一個(gè)Visual Basic Windows應(yīng)用程序后，系統(tǒng)會(huì)自動(dòng)創(chuàng)建一個(gè)空白的Form窗體。接下來(lái)添加控件，具體如下：v首先拖入三個(gè)Label標(biāo)簽控件，分別用于顯示“操作數(shù)1：”、“操作數(shù)2”和“結(jié)果”三個(gè)文本。再拖入兩個(gè)TextBox文本框控件，用于接受用戶輸入兩個(gè)操作數(shù)。最后拖入一個(gè)按鈕控件。將控件的位置調(diào)整好。v4.設(shè)置控件的屬性v

13、拖入三個(gè)Label標(biāo)簽控件之后，分別點(diǎn)控件的右鍵，選擇“屬性”，進(jìn)入屬性窗口，分別設(shè)置這三個(gè)Label標(biāo)簽控件的Text屬性為“操作數(shù)1：”、“操作數(shù)2”和“結(jié)果”。 圖1-25 屬性設(shè)置v打開按鈕控件的屬性窗口，設(shè)置其Text屬性為“兩操作數(shù)相加” 圖1-26 屬性設(shè)置圖1-27 屬性設(shè)置后效果5.編寫事件代碼編寫事件代碼是在代碼編輯界面，在Form窗體空白處點(diǎn)擊右鍵，選擇“查看代碼”，將進(jìn)入代碼編輯界面 圖1-28 代碼界面代碼1-1：按鈕的單擊事件vPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sy

14、stem.EventArgs) Handles Button1.Clickv Dim a1 As Integerv Dim a2 As Integerv Dim a3 As Integerv Tryv a1 = Convert.ToInt32(TextBox1.Text)v a2 = Convert.ToInt32(TextBox2.Text)v a3 = a1 + a2v Label4.Text = Convert.ToString(a3)v Catch ex As Exceptionv MessageBox.Show(ex.ToString()v End TryvEnd Sub6.運(yùn)行調(diào)試

15、程序并測(cè)試程序編寫完成后，按“F5”鍵，或者單擊“啟動(dòng)調(diào)試”按鈕，即可啟動(dòng)調(diào)試應(yīng)用程序。 圖1-29 程序運(yùn)行效果當(dāng)輸入內(nèi)容為數(shù)字并點(diǎn)擊“兩操作數(shù)相加”按鈕時(shí)，兩數(shù)相加并顯示在結(jié)果中。 當(dāng)輸入的操作數(shù)不是數(shù)字，點(diǎn)擊“兩操作數(shù)相加”按鈕后，會(huì)給出錯(cuò)誤提示效果如圖1-30和圖1-31所示。 圖1-30 程序測(cè)試圖1-31 程序測(cè)試v7.生成可執(zhí)行文件v程序運(yùn)行成功后，系統(tǒng)會(huì)在項(xiàng)目文件夾下的bin文件夾下，自動(dòng)創(chuàng)建一個(gè)可執(zhí)行文件（.exe文件）。在Windows操作系統(tǒng)下雙擊此文件，即可脫離編譯環(huán)境單獨(dú)運(yùn)行。效果如圖1-32所示。圖1-32 .dll文件v項(xiàng)目小結(jié)v本項(xiàng)目介紹了VB.NET編程環(huán)境的

16、創(chuàng)建方法，安裝Visual Studio2008的詳細(xì)步驟。介紹了Visual Studio2008編寫VB.NET Windows應(yīng)用程序的編程環(huán)境，介紹了常用的菜單的功能和常用的窗口，包括“工具箱”、“屬性窗口”、“解決方案資源管理器”和編程窗口。通過(guò)實(shí)例介紹了VB.NET Windows應(yīng)用程序的編寫流程。v項(xiàng)目拓展v1、編寫一個(gè)簡(jiǎn)單的VB.NET Windows應(yīng)用程序，要求：用戶輸入用戶名，能夠給出相應(yīng)的問候。v2、編寫一個(gè)簡(jiǎn)單的VB.NET Windows應(yīng)用程序，要求：實(shí)現(xiàn)用戶的注冊(cè)，用戶輸入“用戶名”、“密碼”、“個(gè)人簡(jiǎn)介”等信息，點(diǎn)擊“提交”按鈕后，可以通過(guò)Label標(biāo)簽控件

17、顯示出注冊(cè)信息。項(xiàng)目二項(xiàng)目二 設(shè)計(jì)制作計(jì)算器設(shè)計(jì)制作計(jì)算器任務(wù)1 掌握VB.NET基本輸入輸出控件v1.1 創(chuàng)建Label控件顯示文本v1.要求和目的v要求：v設(shè)計(jì)一個(gè)界面，包含一個(gè)Label標(biāo)簽控件和一個(gè)Button按鈕，Label標(biāo)簽控件能夠顯示按鈕點(diǎn)擊了幾次。效果如圖2-1所示。圖2-1 程序運(yùn)行效果v目的：v掌握Button按鈕控件的常用事件；v掌握Label控件常用的屬性；v掌握基本數(shù)據(jù)類型的使用方法；v2.設(shè)計(jì)步驟v第一步：界面設(shè)計(jì)v打開Visual Studio 2008編程環(huán)境，創(chuàng)建一個(gè)名稱為2-1-1的Visual Basic Windows應(yīng)用程序，首先將窗體名稱改為L(zhǎng)ab

18、el。在窗體中拖入一個(gè)Label文本標(biāo)簽控件，用于顯示按鈕的單擊次數(shù)，再拖如一個(gè)Button按鈕控件，單擊該按鈕，在文本框中顯示次數(shù)。v本程序的設(shè)計(jì)界面如圖2-2所示。圖2-2 程序設(shè)計(jì)界面v第二步：編寫事件代碼v進(jìn)入該程序的代碼文件，首先定義一個(gè)全局變量：vDim i As Integer = 1v雙擊Button按鈕控件，進(jìn)入該按鈕的單擊事件，編寫代碼如下：v Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickv Label1.

19、Text = 單擊第 & i & 次v i += 1vEnd Subv第三步：編譯運(yùn)行并測(cè)試v編寫代碼之后，點(diǎn)擊保存按鈕保存編寫好的代碼。按F5鍵運(yùn)行改程序，并測(cè)試，效果如圖2-3所示。圖2-3 程序運(yùn)行效果v3.相關(guān)知識(shí)點(diǎn)v（1）Label控件概述vLabel控件也就是文本控件，用來(lái)顯示文本，但是不能輸入。v（2）Label控件常用的事件vClick事件：該事件在Label控件被單擊的時(shí)候觸發(fā)。v（3） Label控件常用的屬性vEnable屬性：該屬性設(shè)置Label控件是否可用。vVisible屬性：該屬性設(shè)置Label控件是否可見。vFont屬性：該屬性設(shè)置Label控件所顯示文本的字體

20、。vBackColor屬性：該屬性設(shè)置Label控件的背景色。vTextAlign屬性：該屬性設(shè)置Label控件的文本對(duì)齊方式。vBackgroudImage屬性：該屬性設(shè)置Label控件的背景圖片。vText屬性：該屬性設(shè)置Label控件顯示的文本內(nèi)容。v1.2 創(chuàng)建TextBox控件輸入框v1.要求和目的v要求：v創(chuàng)建一個(gè)程序，要求能輸入姓名和專業(yè)班級(jí)，點(diǎn)擊提交后可以顯示出用戶所提交的信息，如圖2-4所示。v目的：v掌握TextBox控件常用的屬性；v掌握Label控件常用的屬性； 圖2-4 程序運(yùn)行效果v2.設(shè)計(jì)步驟v第一步：界面設(shè)計(jì)v打開Visual Studio 2008編程環(huán)境，新

21、建一個(gè)名稱為2-1-2的Visual Basic Windows應(yīng)用程序。在窗體中拖入三個(gè)Label標(biāo)簽，將其Text屬性分別改為“”、“姓名：”、“專業(yè)班級(jí)”。在窗體中拖入三個(gè)個(gè)TextBox控件，最后拖入一個(gè)Button按鈕控件，將其Text屬性改為“提交”。改程序的設(shè)計(jì)界面如圖2-5所示。圖2-5 程序設(shè)計(jì)界面v第二步：編寫事件代碼v雙擊“提交”按鈕，進(jìn)入該按鈕的單擊事件，編寫代碼如2-1所示。v代碼代碼2-1：按鈕的單擊事件：按鈕的單擊事件v Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst

22、em.EventArgs) Handles Button1.Clickv Dim a1 As Stringv Dim a2 As Stringv a1 = TextBox1.Text.ToString()v a2 = TextBox2.Text.ToString()v Label1.Text = 您提交的信息是： + a1 + a2v End Subv第三步：編譯運(yùn)行并測(cè)試v編寫好代碼后，點(diǎn)擊“保存”按鈕保存該程序，按F5運(yùn)行該程序，并測(cè)試，效果如圖2-6所示。圖2-6 程序運(yùn)行效果v3.相關(guān)知識(shí)點(diǎn)v（1）TextBox控件概述vTextBox文本框控件是最基本的輸入控件，用來(lái)接受鍵盤輸入的文

23、本。 v（2）TextBox控件常用的事件vTextChanged事件：該事件在TextBox控件文本內(nèi)容改變時(shí)觸發(fā)。v（3） TextBox控件常用的屬性vEnable屬性：該屬性設(shè)置TextBox控件是否可用。vVisible屬性：該屬性設(shè)置TextBox控件是否可見。vFont屬性：該屬性設(shè)置TextBox控件所顯示文本的字體。vBackColor屬性：該屬性設(shè)置TextBox控件的背景色。vTextAlign屬性：該屬性設(shè)置TextBox控件的文本對(duì)齊方式。vBackgroudImage屬性：該屬性設(shè)置TextBox控件的背景圖片。vForeColor屬性：該屬性設(shè)置TextBox控件

24、字體的顏色。vText屬性：該屬性用來(lái)顯示和接受TextBox控件的文本，既可以顯示也可以輸入。格式如下：vTextBox1.Text=“歡迎您”在該文本框中，將顯示“歡迎您”三個(gè)字vDim a as String=TextBox1.Text 接受TextBox控件中的文本vMutiLine屬性：該屬性設(shè)置文本框是否允許多行顯示，True代表可以多行顯示，F(xiàn)alse代表只能單行顯示。vPasswordChar屬性：該屬性設(shè)置是否為密碼框，如果為空代表不是密碼框，如果輸入特定字符，如“*”，則代表使用“*”密文顯示文本。vReadOnly屬性：該屬性為True則控件只能讀不能寫。v任務(wù)2 設(shè)計(jì)制

25、作計(jì)算器v1.要求與目的v要求：v建立一個(gè)如圖2-7所示的計(jì)算器界面，具有數(shù)字鍵“09”、小數(shù)點(diǎn)鍵“.”、開始鍵“ON”、運(yùn)算符按鍵“+-*/”、計(jì)算按鍵“=”，要求各個(gè)數(shù)字鍵及功能鍵能完成正常的數(shù)學(xué)計(jì)算。v圖2-7 計(jì)算機(jī)運(yùn)行效果v目的：v掌握按鈕控件的使用方法；v掌握字符串處理的方法；v掌握常見算術(shù)運(yùn)算的實(shí)現(xiàn)方法；v掌握文本框控件的使用方法；圖2-7 計(jì)算機(jī)運(yùn)行效果v2.設(shè)計(jì)步驟v第一步：界面設(shè)計(jì)v打開Visual Studio 2008編程環(huán)境，新建一個(gè)名稱為2-2-1的Visual Basic Windows應(yīng)用程序。在窗體中拖入一個(gè)TextBox文本框控件，Button按鈕控件共計(jì)1

26、9個(gè)，對(duì)應(yīng)09數(shù)字鍵，“+-*/”運(yùn)算符鍵，以及其它按鍵。窗體及控件的主要屬性設(shè)置如表2-1所示。 表2-1 窗體及控件的主要屬性控件屬性屬性值說(shuō)明Form1NameForm1窗體名稱TextBox1NameTextBox1文本框控件名稱Button1NameButton1按鍵“0”Button2NameButton2按鍵“.”Button3NameButton3按鍵“歸零”Button5NameButton5按鍵“=”Button6NameButton6按鍵“1”Button7NameButton7按鍵“2”Button8NameButton8按鍵“3”Button9NameButton9按

27、鍵“+”Button10NameButton10按鍵“-”Button11NameButton11按鍵“4”Button12NameButton12按鍵“5”Button13NameButton13按鍵“6”Button14NameButton14按鍵“*”Button15NameButton15按鍵“/”Button16NameButton16按鍵“7”Button17NameButton17按鍵“8”Button18NameButton18按鍵“9”Button19NameButton19按鍵“ON”Button20NameButton20按鍵“OFF”圖2-8 設(shè)計(jì)界面v2.編寫事件代碼

28、v首先定義全局變量：v Dim strmiddle() As String = 0, 0, 0v Dim calmethod1 As String = 0v Dim calmethod2 As String = 0v Dim strdot As Boolean = Falsev雙擊Button1數(shù)字鍵“0”按鈕，進(jìn)入該按鈕的事件，編寫代碼如2-2所示。v代碼代碼2-2：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt

29、on1.Clickv If strmiddle(0) = 0 Thenv TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 0v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 0v TextBox1.Text = strmiddle(0)v End IfvEnd Sub雙擊Button2小數(shù)點(diǎn)鍵“.”，進(jìn)入該按鈕的事件，編寫代碼如2-3所示。v代碼2-3：按鈕的單擊事件

30、vPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickv strdot = Truev strmiddle(0) = strmiddle(0) & .v TextBox1.Text = strmiddle(0)vEnd Subv雙擊Button3“歸零”按鍵的按鈕，進(jìn)入該按鈕的事件。v代碼2-4：按鈕的單擊事件vPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal

31、 e As System.EventArgs) Handles Button3.Clickv strmiddle(0) = 0v strmiddle(1) = 0v strmiddle(2) = 0v calmethod1 = 0v calmethod2 = 0v strdot = Falsev TextBox1.Text = 0.vEnd Subv雙擊雙擊Button5計(jì)算按鍵計(jì)算按鍵“=”按鈕，進(jìn)入該按鈕的事件按鈕，進(jìn)入該按鈕的事件 v代碼代碼2-5：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button5_Click(ByVal sender As System.Objec

32、t, ByVal e As System.EventArgs) Handles Button5.Clickv If strmiddle(2) = 0 Thenv Select Case calmethod1v Case +v TextBox1.Text = Str(Val(strmiddle(1) + Val(strmiddle(0)v Case -v TextBox1.Text = Str(Val(strmiddle(1) - Val(strmiddle(0)v Case *v TextBox1.Text = Str(Val(strmiddle(1) * Val(strmiddle(0)v

33、Case /v If strmiddle(0) = 0 Thenv TextBox1.Text = error!v Elsev TextBox1.Text = Str(Val(strmiddle(1) / Val(strmiddle(0)v End Ifv End Selectv ElseIf calmethod2 = * Thenv strmiddle(0) = Str(Val(strmiddle(0) * Val(strmiddle(2)v Select Case calmethod1v Case +v TextBox1.Text = Str(Val(strmiddle(1) + Val(

34、strmiddle(0)v Case -v TextBox1.Text = Str(Val(strmiddle(1) - Val(strmiddle(0)v Case *v TextBox1.Text = Str(Val(strmiddle(1) * Val(strmiddle(0)vCase /v If strmiddle(0) = 0 Thenv TextBox1.Text = error!v Elsev TextBox1.Text = Str(Val(strmiddle(1) / Val(strmiddle(0)v End Ifv End Selectv Else : calmethod

35、2 = /v strmiddle(0) = Str(Val(strmiddle(2) / Val(strmiddle(0)v Select Case calmethod1v Case +vTextBox1.Text = Str(Val(strmiddle(1) + Val(strmiddle(0)v Case -vTextBox1.Text = Str(Val(strmiddle(1) - Val(strmiddle(0)v Case *vTextBox1.Text = Str(Val(strmiddle(1) * Val(strmiddle(0)v Case /v If strmiddle(

36、0) = 0 Thenv TextBox1.Text = error!v Elsev TextBox1.Text = Str(Val(strmiddle(1) / Val(strmiddle(0)v End Ifv End Selectv End IfvEnd Subv雙擊Button6數(shù)字鍵“1”按鈕，進(jìn)入該按鈕的事件 v代碼2-6：按鈕的單擊事件vPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Clickv If strmiddle(0

37、) = 0 Thenv strmiddle(0) = 1v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 1v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 1v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button7數(shù)字鍵“2”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-7：按鈕的單擊事件：按鈕的單擊事件vPriva

38、te Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 2v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 2v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = st

39、rmiddle(0) & 2v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button8數(shù)字鍵“3”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-8：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 3v TextBox1.Text = strmiddle(0) & .v

40、ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 3v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 3v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button9計(jì)算鍵“+”按鈕，進(jìn)入該按鈕的事件。v代碼：代碼：2-9：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As

41、 System.EventArgs) Handles Button9.Clickv If calmethod1 = 0 Thenv calmethod1 = +v strmiddle(1) = strmiddle(0)v strmiddle(0) = 0v Else : Select Case calmethod1v Case +v strmiddle(1) = Str(Val(strmiddle(0) + Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = +v Case -v strmiddle(1) = Str(Val(strmiddle(1

42、) - Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = +v Case *v strmiddle(1) = Str(Val(strmiddle(0) * Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = +v Case /v strmiddle(1) = Str(Val(strmiddle(1) / Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = +v End Selectv End IfvEnd Subv雙擊Button10計(jì)算鍵“-”按鈕，進(jìn)入

43、該按鈕的事件，編寫代碼如2-10所示。v代碼代碼2-10：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Clickv If calmethod1 = 0 Thenv calmethod1 = -v strmiddle(1) = strmiddle(0)v strmiddle(0) = 0v Else : Select Case calmethod1v Case +v strmiddle(1) = Str

44、(Val(strmiddle(0) + Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = -v Case -v strmiddle(1) = Str(Val(strmiddle(1) - Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = -v Case *v strmiddle(1) = Str(Val(strmiddle(0) * Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = -v Case /v strmiddle(1) = Str(Val(s

45、trmiddle(1) / Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = -v End Selectv End IfvEnd Subv雙擊Button11數(shù)字鍵“4”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-11：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 4

46、v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 4v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 4v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button12數(shù)字鍵“5”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-12：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button12_Click(ByVa

47、l sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 5v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 5v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 5v TextBox1

48、.Text = strmiddle(0)v End IfvEnd Subv雙擊Button13數(shù)字鍵“6”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-13：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 6v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = Fals

49、e Thenv strmiddle(0) = strmiddle(0) & 6v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 6v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button14計(jì)算鍵“*”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-14：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

50、Handles Button14.Clickv If calmethod1 = 0 Thenv calmethod1 = *v strmiddle(1) = strmiddle(0)v strmiddle(0) = 0v Else : Select Case calmethod1v Case +v calmethod2 = *v strmiddle(2) = strmiddle(0)v strmiddle(0) = 0v Case -v calmethod2 = *v strmiddle(2) = strmiddle(0)v strmiddle(0) = 0v Case *v strmiddl

51、e(1) = Str(Val(strmiddle(0) * Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = *v Case /v strmiddle(1) = Str(Val(strmiddle(1) / Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = *v End Selectv End IfvEnd Subv雙擊Button15計(jì)算鍵“/”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-15：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button15_Click(ByVal sender

52、 As System.Object, ByVal e As System.EventArgs) Handles Button15.Clickv If calmethod1 = 0 Thenv calmethod1 = /v strmiddle(1) = strmiddle(0)v strmiddle(0) = 0v Else : Select Case calmethod1v Case +v calmethod2 = /v strmiddle(2) = strmiddle(0)v strmiddle(0) = 0v Case -v calmethod2 = /v strmiddle(2) =

53、strmiddle(0)v strmiddle(0) = 0v Case *v strmiddle(1) = Str(Val(strmiddle(0) * Val(strmiddle(1)v strmiddle(0) = 0v calmethod1 = /v Case /v strmiddle(1) = Str(Val(strmiddle(1) / Val(strmiddle(0)v strmiddle(0) = 0v calmethod1 = /v End Selectv End IfvEnd Subv雙擊Button16數(shù)字鍵“7”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-16：按鈕的單擊事件

54、：按鈕的單擊事件vPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 7v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 7v TextBox1.Text = strmiddle(0) & .v Elsev s

55、trmiddle(0) = strmiddle(0) & 7v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button17數(shù)字鍵“8”按鈕，進(jìn)入該按鈕的事件，編寫代碼如2-17所示。v代碼代碼2-17：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 8v Te

56、xtBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 8v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 8v TextBox1.Text = strmiddle(0)v End IfvEnd Subv雙擊Button18數(shù)字鍵“9”按鈕，進(jìn)入該按鈕的事件。v代碼代碼2-18：按鈕的單擊事件：按鈕的單擊事件vPrivate Sub Button18_Click(ByVal se

57、nder As System.Object, ByVal e As System.EventArgs) Handles Button18.Clickv If strmiddle(0) = 0 Thenv strmiddle(0) = 9v TextBox1.Text = strmiddle(0) & .v ElseIf strdot = False Thenv strmiddle(0) = strmiddle(0) & 9v TextBox1.Text = strmiddle(0) & .v Elsev strmiddle(0) = strmiddle(0) & 9v TextBox1.Tex

58、t = strmiddle(0)v End IfvEnd Subv雙擊功能鍵“ON”按鈕，進(jìn)入該按鈕的事件。v代碼2-19：按鈕的單擊事件vPrivate Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Clickv TextBox1.Text = 0.vEnd Subv雙擊功能鍵“OFF”按鈕，進(jìn)入該按鈕的事件，編寫代碼如2-20所示。v代碼2-20：按鈕的單擊事件vPrivate Sub Button20_Click(ByVal sender As

59、 System.Object, ByVal e As System.EventArgs) Handles Button20.Clickv Me.Close()vEnd Subv編寫上述代碼之后，保存、編譯運(yùn)行并測(cè)試，效果如圖2-9、圖2-10和圖2-11所示。圖2-9 計(jì)算器運(yùn)行效果圖2-10 測(cè)試計(jì)算器圖2-11 測(cè)試計(jì)算器v項(xiàng)目小結(jié)v本項(xiàng)目介紹了常見輸入輸出控件的屬性和事件，通過(guò)實(shí)例介紹了常見輸入輸出控件的使用方法。最后通過(guò)設(shè)計(jì)制作計(jì)算器實(shí)例，介紹了基本語(yǔ)句的編寫，常見計(jì)算語(yǔ)句的編寫以及控件編程的基本思路。v項(xiàng)目拓展v在本項(xiàng)目的基礎(chǔ)上，設(shè)計(jì)制作一個(gè)文章管理系統(tǒng)，即，在代碼中存放著一些文本，

60、要求用戶通過(guò)輸入框控件輸入文章題目，點(diǎn)擊“查詢”按鈕，如果能夠搜索到文章題目，文章內(nèi)容在Label控件中顯示出來(lái)。項(xiàng)目三 設(shè)計(jì)制作考試系統(tǒng) v考試系統(tǒng)是現(xiàn)代教育技術(shù)中常用的一種考試形式?？荚囅到y(tǒng)通過(guò)計(jì)算機(jī)軟件生成考試題目，考生對(duì)生成的考試題目進(jìn)行答卷，答卷交卷后由考試系統(tǒng)自動(dòng)判斷答題的對(duì)錯(cuò)，并自動(dòng)給出分?jǐn)?shù)。v本項(xiàng)目通過(guò)VB.NET設(shè)計(jì)一個(gè)簡(jiǎn)單的考試系統(tǒng)，設(shè)計(jì)包括“選擇題”、“判斷題”和“填空題”等考試題型?？忌痤}后，本考試系統(tǒng)將對(duì)答題情況進(jìn)行判斷，并給出相應(yīng)的分?jǐn)?shù)。圖3-1 考試系統(tǒng)v簡(jiǎn)單考試系統(tǒng)的功能和使用流程如下：首先是生成考試試卷；考試界面包括“單項(xiàng)選擇題”、“多項(xiàng)選擇題”、“判斷題”