第一篇：VB6.0程序設(shè)計(jì)教案_第27、28課時(shí)

第27、28課時(shí)

上課時(shí)間：2014年 4月 3日 備課時(shí)間：2014年 4月 1日

【課題】

2.13 找出程序中的錯(cuò)誤

【教學(xué)目標(biāo)】

1、了解VB中程序錯(cuò)誤的種類

2、掌握程序錯(cuò)誤處理的方法 【德育目標(biāo)】

培養(yǎng)學(xué)生互相幫助、團(tuán)結(jié)協(xié)作的良好品質(zhì)和專業(yè)精神；培養(yǎng)學(xué)生的愛心，學(xué)會(huì)感恩?！窘虒W(xué)重點(diǎn)】

VB中程序錯(cuò)誤的種類 【教學(xué)難點(diǎn)】

程序錯(cuò)誤處理的方法 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過程】

一、復(fù)習(xí)

1、常用的內(nèi)部函數(shù)有哪些？

2、用戶如何自定義函數(shù)？

二、導(dǎo)入

上一章討論了Visual Basic中的內(nèi)部函數(shù)以及用戶自定義函數(shù)的方法。本節(jié)課我們來學(xué)習(xí)如何對(duì)程序的錯(cuò)誤進(jìn)行處理。

三、自主學(xué)習(xí)1． 錯(cuò)誤類型

Visual Basic程序中的錯(cuò)誤可分為編譯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤和邏輯錯(cuò)誤3種類型。

編譯錯(cuò)誤也稱為語法錯(cuò)誤，這種錯(cuò)誤是由于程序中的語句違反了Visual Basic的語法規(guī)則而引起的。例如，拼錯(cuò)了關(guān)鍵字、遺漏了必需的標(biāo)點(diǎn)符號(hào)、語句格式不正確、有For而無Next語句、有If而無對(duì)應(yīng)的End If或者括號(hào)不匹配等。對(duì)于這類錯(cuò)誤，在程序輸入或編譯時(shí)，Visual Basic編譯器能自動(dòng)檢查出來，彈出相應(yīng)的編譯錯(cuò)誤提示框，支出出錯(cuò)位置（被高亮顯示），按照提示信息就可以糾正相應(yīng)的錯(cuò)誤。

實(shí)時(shí)錯(cuò)誤是指程序輸入或編譯時(shí)并未出現(xiàn)任何語法錯(cuò)誤，但在程序運(yùn)行過程中發(fā)生錯(cuò)誤，導(dǎo)致應(yīng)用程序中斷。該類錯(cuò)誤在設(shè)計(jì)階段較難發(fā)現(xiàn)，通常在程序運(yùn)行是發(fā)現(xiàn)，一般是由于在設(shè)計(jì)程序時(shí)考慮不全面、不周到而造成的。例如，下面的語句：

i = j / k 通常情況下執(zhí)行得很好，但當(dāng)k的值為0時(shí)，雖然這條語句的語法沒有錯(cuò)誤，但程序卻運(yùn)行不下去，因?yàn)榘l(fā)生了“除數(shù)為零”的運(yùn)行錯(cuò)誤。

邏輯錯(cuò)誤是最難處理的一種錯(cuò)誤。程序可以正常執(zhí)行，但得不到所希望的結(jié)果。這不是程序語句的錯(cuò)誤，而是由于程序設(shè)計(jì)時(shí)本身存在的邏輯缺陷造成的。例如使用了不正確的變量類型、語句的次序不對(duì)、循環(huán)中起始值和終止值不正確、表達(dá)式書寫不正確等。大多數(shù)邏輯錯(cuò)誤不容易找出錯(cuò)誤的原因，Visual Basic系統(tǒng)也不能發(fā)現(xiàn)這類錯(cuò)誤。對(duì)于邏輯錯(cuò)誤一般要借助調(diào)試工具對(duì)程序進(jìn)行分析、查找錯(cuò)誤。

2、錯(cuò)誤處理

對(duì)于Visual Basic程序中潛在的錯(cuò)誤可以采用兩種方法進(jìn)行解決：對(duì)于已發(fā)現(xiàn)的錯(cuò)誤，可以利用調(diào)試工具對(duì)程序的運(yùn)行進(jìn)行跟蹤，找出并改正導(dǎo)致錯(cuò)誤的語句：對(duì)于不可避免的錯(cuò)誤或者還沒有發(fā)現(xiàn)的錯(cuò)誤，可以設(shè)置錯(cuò)誤捕獲語句，對(duì)錯(cuò)誤進(jìn)行捕獲和處理。

1）使用調(diào)試工具。Visual Basic常用的調(diào)試工具提供了設(shè)置斷點(diǎn)、單步執(zhí)行、顯示變量內(nèi)容等功能。這些調(diào)試工具將有助于查找程序中得錯(cuò)誤，尤其是對(duì)邏輯錯(cuò)誤的分析。

2）使用錯(cuò)誤捕捉。在Visual Basic中，使用On Error語句激活錯(cuò)誤捕捉，并將錯(cuò)誤處理程序指定為從行號(hào)位置開始的程序段，語法格式如下：

On Error Goto [行號(hào)] 錯(cuò)誤信息一般使用Err對(duì)象獲得。Err對(duì)象最常用的屬性是Number屬性和Description屬性。Number屬性存儲(chǔ)當(dāng)前錯(cuò)誤的編號(hào)，Description屬性存儲(chǔ)當(dāng)前錯(cuò)誤的描述。

Visual Basic的程序調(diào)試技術(shù)和錯(cuò)誤處理技術(shù)是相當(dāng)完善的，上面只是簡單地介紹了程序調(diào)試和錯(cuò)誤處理來的初步知識(shí)，目的是為了了解調(diào)試程序的基本方法，養(yǎng)成良好的變成習(xí)慣，為以后的學(xué)習(xí)和工作打下堅(jiān)實(shí)的基礎(chǔ)。

四、合作探究

編程設(shè)計(jì)：求方程解得程序： Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer Dim x1 As Integer, x2 As Integer Dim delta As Single a = 1: b = 2: c = 3 delta = b ^ 2Sqr(delta)/ 2 * a Print “x1=”;x1 Print “x2=”;x1 End Sub 在程序設(shè)計(jì)過程中，程序難免出現(xiàn)錯(cuò)誤，程序糾錯(cuò)也是程序設(shè)計(jì)的一部分。利用Visual Basic提供的調(diào)試方法，可以容易的發(fā)現(xiàn)程序中得錯(cuò)誤。

設(shè)計(jì)步驟：

1、創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程。

2、在屬性窗口，把窗體Form1的Caption屬性值修改為“任務(wù)13 找出程序中的錯(cuò)誤”。

3、在代碼窗口中錄入任務(wù)中提供的程序代碼。在錄入過程中留意出錯(cuò)信息，修改程序中的語法錯(cuò)誤。

4、把窗體文件和工程文件分別命名保存。

5、運(yùn)行程序。

6、鼠標(biāo)單擊程序窗口，程序會(huì)出現(xiàn)實(shí)時(shí)錯(cuò)誤信息。單擊調(diào)試按鈕，其中的錯(cuò)誤行用黃色標(biāo)識(shí)了出來。此時(shí)用鼠標(biāo)指向要查看的變量，變量的值就會(huì)以提示框的形式顯示出來。懷疑有錯(cuò)誤的程序行，也可以首先將插入點(diǎn)放到改行，按“F9”鍵設(shè)置斷點(diǎn)（再按“F9”鍵清除斷點(diǎn)）。該行將以紅色標(biāo)識(shí)出來。程序運(yùn)行到斷點(diǎn)位置時(shí)，會(huì)自動(dòng)停下里并彈出調(diào)試窗口，以便發(fā)現(xiàn)問題，修改完畢后，按“F5”鍵程序繼續(xù)運(yùn)行，或按“F8”鍵單步執(zhí)行。

五、課堂小結(jié)

本節(jié)課主要通過設(shè)計(jì)小程序，熟悉找出程序中出錯(cuò)部分并解決的犯法。

第二篇：VB6.0程序設(shè)計(jì)教案_第51、52課時(shí)

第51、52課時(shí)

上課時(shí)間：2014年 5月 21日 備課時(shí)間：2014年 5月 18日

4.5 創(chuàng)建簡單選課系統(tǒng)

【教學(xué)目標(biāo)】

1、掌握列表框控件的應(yīng)用；

2、掌握組合框控件的應(yīng)用；

3、掌握復(fù)選框按鈕控件的應(yīng)用?！窘虒W(xué)重點(diǎn)】

列表框控件和組合框控件的應(yīng)用 【教學(xué)難點(diǎn)】

對(duì)Split函數(shù)的理解和應(yīng)用 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過程】

一、復(fù)習(xí)

1、命令按鈕控件的常用屬性和常用事件？

二、導(dǎo)入

上一章討論了Visual Basic中學(xué)習(xí)了單選按鈕控件、框架控件以及復(fù)選框按鈕控件的應(yīng)用。本節(jié)課我們來通過制作小程序，學(xué)習(xí)列表框控件和組合框控件的應(yīng)用。

三、自主學(xué)習(xí)

1、列表框控件

列表框（ListBox）控件用于顯示項(xiàng)目列表，從其中可以選擇一項(xiàng)或多項(xiàng)。如果項(xiàng)目總數(shù)超過了可顯示的項(xiàng)目，就自動(dòng)在列表框控件上添加滾動(dòng)條。

列表框控件的常用屬性如下：

1）List：返回或設(shè)置控件的列表框部分的項(xiàng)目。該屬性值是一個(gè)字符串?dāng)?shù)組，數(shù)組的每個(gè)元素都是一個(gè)列表框項(xiàng)目，列表框控經(jīng)·件在設(shè)計(jì)時(shí)可以通過屬性窗口來設(shè)置。

2）ListCount：返回控件的列表部分項(xiàng)目的個(gè)數(shù)。

3）ListIndex：返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引，在設(shè)計(jì)時(shí)不可用。當(dāng)選定列表的第一項(xiàng)時(shí)，ListIndex屬性值為0，如果未選定項(xiàng)目，則ListIndex屬性值是1，ListCount屬性包含項(xiàng)目數(shù)，其值總是比最大的ListIndex值大1。

4）SelCount：返回在列表框控件中被選中項(xiàng)的數(shù)量。

5）Selected：返回或設(shè)置在列表框中的一個(gè)項(xiàng)的選擇狀態(tài)。該屬性是一個(gè)布爾值數(shù)組，其項(xiàng)數(shù)與List屬性相同。在設(shè)計(jì)時(shí)是不可用的。

6）Sorted：指定控件的元素是否自動(dòng)按字母表順序排序。

7）Style：指定列表框的樣式。如果該屬性值為0，則呈現(xiàn)為標(biāo)準(zhǔn)列表框；如果屬性值為1，則呈現(xiàn)為復(fù)選框式列表框，每一個(gè)文本項(xiàng)的邊上都有一個(gè)復(fù)選框，可以選擇多項(xiàng)。

列表框控件的常用方法如下：

1）AddItem：用于將項(xiàng)目添加到列表框控件，語法格式如下： oList.AddItem item, index 其中oList表示列表框控件；參數(shù)Item為字符串表達(dá)式，用來指定添加到該列表框的項(xiàng)目；參數(shù)Index為整數(shù)，用來指定新項(xiàng)目在該列表框中的位置。對(duì)于列表框控件的首項(xiàng)，index為0。

如果所給出的Index值有效，則Item將防止在oList中相應(yīng)的位置。如果省略index，則當(dāng)Sorted屬性設(shè)置為True時(shí)，item將添加到恰當(dāng)?shù)呐判蛭恢?，?dāng)Sorted屬性設(shè)置為False時(shí)，item將添加到列表框的結(jié)尾。

2）RemoveItem：從列表框控件中刪除一項(xiàng)，語法格式如下： oList.RemoveItem index 其中oList表示列表框控件；參數(shù)index是一個(gè)整數(shù)，表示要?jiǎng)h除的項(xiàng)在列表框中的位置。對(duì)于列表框中的首項(xiàng)，index為0。

2、組合框控件

組合框（ComboBox）控件將文本框控件和列表框控件的特性結(jié)合在一起，即可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項(xiàng)。組合框控件的常用屬性如下。

1）Style：用于設(shè)置組合框控件的樣式。如果該屬性值為0（默認(rèn)值），則呈現(xiàn)為下拉式組合框，包括一個(gè)下拉式列表和一個(gè)文本框，可以從列表選擇或在文本框中輸入。如果該屬性為1，則得到一個(gè)簡單組合框，包括一個(gè)文本框和一個(gè)不能下拉的列表，可以從列表中選擇或在文本框中輸入。如果該屬性值為2，則呈現(xiàn)為下拉式列表，這種樣式僅允許從下拉式列表中選擇。

2）Text：對(duì)于Style屬性設(shè)置為0的下拉組合框或Style屬性設(shè)置為1的簡單組合框，返回或設(shè)置編輯域中的文本；對(duì)于Style屬性設(shè)置為2的下拉列表框，返回在列表框中選擇的項(xiàng)目，返回值總與表達(dá)式List（ListIndex）的返回值相同。

為了添加或刪除組合框控件中的項(xiàng)目，需要使用AddItem或RemoveItem方法。利用List、ListCount和ListIndex屬性可以實(shí)現(xiàn)對(duì)組合框中項(xiàng)目的訪問。也可以在設(shè)計(jì)時(shí)使用List屬性將項(xiàng)目添加到列表中。

3、Split函數(shù)

使用Split函數(shù)可以將一個(gè)字符串拆分為一個(gè)下標(biāo)從0開始的一維數(shù)組，其中包含指定數(shù)量的子字符串。調(diào)用格式如下：

Split(Expression, Delimiter, Limit, Compare)其中參數(shù)Expression為必選項(xiàng)，是一個(gè)Single表達(dá)式，包含子字符串和分隔符；其他參數(shù)均為可選項(xiàng)。

Delimiter是用于標(biāo)識(shí)子字符串的界限的任何單個(gè)字符。如果省略了Delimiter，則假定空白字符（“”）為分隔符。

Limit指定輸入字符串應(yīng)拆分到的子字符串的最大數(shù)量，默認(rèn)值-1，指示在Delimiter字符串的每個(gè)匹配項(xiàng)處都拆分輸入字符串。

Compare為一個(gè)數(shù)值，指示計(jì)算子字符串時(shí)使用的比較模式。若該參數(shù)為0，則執(zhí)行二進(jìn)制比較，即區(qū)分大小寫字母；若該參數(shù)為1，則執(zhí)行文本比較，即不區(qū)分大小寫字母。

Split函數(shù)返回一個(gè)String數(shù)組。如果Expression為零長度字符串（“”），則Split返回包含零長度字符串的單個(gè)元素?cái)?shù)組。如果Delimiter為零長度字符串，或它不在Expression中的任何位置出現(xiàn)，則Split將返回包含整個(gè)Expression字符串的單個(gè)元素?cái)?shù)組。默認(rèn)情況下，或Limit等于-1時(shí)，Split函數(shù)將在分隔符字符串的每個(gè)匹配項(xiàng)處拆分輸入字符串，并以數(shù)組形式返回子字符串。當(dāng)Limit參數(shù)大于0時(shí)，Split函數(shù)在分隔符的第一個(gè)Limit-1匹配項(xiàng)處拆分此字符串，并返回帶有結(jié)果子字符串的數(shù)組。例如Split(“a:b:c”,”:”)返回的數(shù)組包含三個(gè)元素：“a”、“b”、“c”；而Split（“a:b:c”,2）返回的數(shù)組包含兩個(gè)元素：“a”和“b:c”。

當(dāng)Split函數(shù)在一行中遇到連個(gè)分隔符時(shí)，或在字符串的開頭或結(jié)尾遇到分隔符時(shí)，會(huì)將它們解釋為圍繞空字符串（“”）。例如，Split（“XX”，“X”）返回的數(shù)組包含三個(gè)空字符串：一個(gè)在字符串開頭和第一個(gè)“X”之間，第二個(gè)在兩個(gè)“X”字符串之間，第三個(gè)在最后一個(gè)“X”和字符串結(jié)尾之間。

四、合作探究

編程設(shè)計(jì)：

創(chuàng)建一個(gè)簡單的選課系統(tǒng)，當(dāng)從組合框中選擇不同專業(yè)時(shí)，通過列表框列出相關(guān)的課程，可以從中選擇所需的課程，并允許添加或刪除課程；當(dāng)選擇了一些課程并單擊“確定”按鈕后，通過另一個(gè)窗體列出選課結(jié)果。

設(shè)計(jì)步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個(gè)EXE工程，并把窗體文件和工程文件分別命名并保存。

2、利用屬性窗口對(duì)窗體Form1的以下屬性進(jìn)行設(shè)置。將其Caption屬性設(shè)置為“選課系統(tǒng)”。將其BorderStyle屬性設(shè)置為1-Fixed Dialog。

3、在窗體FORM1依次添加以下控件。

1)標(biāo)簽lb1Major，將其Caption屬性設(shè)置為“專業(yè)（&M）:”

2)在工具箱中單擊ComboBox圖標(biāo)，并在窗體上繪制一個(gè)組合框控件，然后將其命名為cboMajor。

3）標(biāo)簽lb1Course，將其Caption屬性設(shè)置為“可選課程（&A）：” 4）在工具箱中單擊ListBox圖標(biāo)，并在窗體上繪制一個(gè)列表框控件，然后將其命名為1stCouse。

5）命令按鈕cmdAdd，將其Caption屬性設(shè)置為“>”。6）命令按鈕cmdRemove，將其Caption屬性設(shè)置為“<”。7)標(biāo)簽lb1SelectedCoourse，將其Caption屬性設(shè)置為“已選課程（&S）:” 8)列表框1stSelectedCourse。

9）命令按鈕cmdOK，將其Caption屬性設(shè)置為“確定”，Defaule屬性設(shè)置為“True”。

10）命令按鈕cmdCancel,將其Caption屬性設(shè)置為“取消”，Cancel屬性設(shè)置為True。

4、在窗體Form1的代碼窗口中編寫以下事件過程。

Private smajor As String, scourse1 As striing, scourse2 As String, scourse3 As String Private amajor()As String, acourse1()As String, acourse2()As String, acourse3()As String Sub listfill(ByVal oname As Control, aitem()As String)For i = 0 To UBound(aitem)oname.AddItem aitem(i)Next End Sub Private Sub cbomajor_click()lstcourse.Clear Select Case cbomajor.ListIndex Case 0 listfill lstcourse, acourse1 Case 1 listfill lstcourse, acourse2 Case 2 listfill lstcourse, acourse3 End Select End Sub Private Sub cmdadd_click()If lstcourse.ListCount > 0 And lstcourse.ListIndex <>-1 Then lstselectedcourse.AddItem lstcourse.List(lstcourse.ListIndex)lstcourse.renmoveitem lstcourse.ListIndex End If End Sub Private Sub cmdcancel_click()Unload Me End Sub Private Sub cmdok_click()Me.Hide form2.Show End Sub Private Sub cmdremove_click()If lstselectedcourse.ListCount > 0 And lstselectedcourse.ListIndex <>-1 Then lstcourse.addiem lstselectedcourse.List(lstselectedcourse.ListIndex)1 stselectedcourse.RemoveItem lstselectedcourse.ListIndex End If End Sub Private Sub Form_Load()smajor = “計(jì)算機(jī)軟件，多媒體技術(shù)應(yīng)用，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)” scourse1 = “計(jì)算機(jī)操作與使用，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)與應(yīng)用，基于過程的程序設(shè)計(jì)，網(wǎng)頁制作，數(shù)據(jù)庫應(yīng)用開發(fā)，桌面應(yīng)用程序開發(fā)，軟件開發(fā)實(shí)訓(xùn)” scourse2 = “計(jì)算機(jī)操作與使用，美術(shù)設(shè)計(jì)，多媒體技術(shù)應(yīng)用，計(jì)算機(jī)圖形圖像處理，二維動(dòng)畫制作，三維動(dòng)畫制作，音頻視頻編輯處理，平面設(shè)計(jì)，影視制作，多媒體制作” scourse3 = “計(jì)算機(jī)操作與使用，計(jì)算機(jī)組裝與維修，操作系統(tǒng)與網(wǎng)絡(luò)服務(wù)器管理，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)與應(yīng)用，網(wǎng)絡(luò)布線與小型局域網(wǎng)搭建，網(wǎng)頁制作，中小型網(wǎng)站建設(shè)與管理” amajor = Split(smajor, “,”)listfill cbomajor, amajor cbomajor.Text = cbomajor.List(0)acourse1 = Split(scourse1, “,”)acourse2 = Split(scourse2, “,”)acourse3 = Split(scourse3, “,”)listfill lstcourse, acourse1 End Sub Private Sub lstcourse_dblclick()cmdadd_click End Sub Private Sub lstselectedcourse_dblclick()cmdremove_cllick End Sub

5、在當(dāng)前工程中添加窗體Form2，并在該窗體上添加以下控件。1）標(biāo)簽lb1Resule,將其Caption屬性清空。

2）文本框txtResult，將其MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3.3）命令按鈕cmdClose，將其Caption屬性設(shè)置為“關(guān)閉”。

6、在窗體Form2的代碼窗口中編寫以下事件過程。Private Sub cmdclose_click()Unload Me End Sub Private Sub form_activate()Dim i As Integer, sresult As String lb1result = “你選擇了” & Form1.cbomajor.Text & “專業(yè)。” & vbCrLf & “選擇了以下課程：” For i = 0 To Form1.lstselectedcourse.ListCount-1 sresult = sresult & Form1.lstselectedcourse.List(i)& vbCrLf Next txtresult.Text = sresult Unload Form1 End Sub

7、按F5運(yùn)行程序。

8、從“專業(yè)”下拉列表框中選擇一個(gè)專業(yè)，此時(shí)“可選課程”列表框包含的項(xiàng)目將隨之發(fā)生變化。在“可選課程”列表框中單擊一門課程并單擊“>”按鈕或者雙擊要選擇的課程，可使其進(jìn)入“已選課程”列表框。若要從“已選課程”類表框中移除某門課程，可在該列表框中單擊該課程并單擊“<”按鈕或者雙擊該課程。單擊“確定”按鈕，此時(shí)將顯示另一個(gè)窗體并給出選課結(jié)果。

五、課堂小結(jié)

本節(jié)課主要通過設(shè)計(jì)小程序，學(xué)習(xí)了學(xué)習(xí)列表框控件和組合框控件的應(yīng)用。

第三篇：VB6.0程序設(shè)計(jì)教案_第23、24課時(shí)

第23、24課時(shí)

上課時(shí)間：2014年 3月26 日 備課時(shí)間：2014年 3月24日

【課題】

2.11 制作猜寶游戲

【教學(xué)目標(biāo)】

1、了解通用過程與事件過程

2、掌握參數(shù)的傳遞機(jī)制 【德育目標(biāo)】

通過制作一個(gè)簡單的游戲，提高學(xué)生對(duì)編程學(xué)習(xí)的吸引力。并引導(dǎo)學(xué)生正確對(duì)待游戲，學(xué)會(huì)合理安排游戲時(shí)間?！窘虒W(xué)重點(diǎn)】

通用過程與事件過程 【教學(xué)難點(diǎn)】

參數(shù)的傳遞機(jī)制 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過程】

一、復(fù)習(xí)

1、動(dòng)態(tài)數(shù)組的使用方法？

2、訪問數(shù)組的方法？

二、導(dǎo)入

上一章討論了Visual Basic中動(dòng)態(tài)數(shù)組的使用方法。本節(jié)課我們來學(xué)習(xí)通用過程與事件過程以及參數(shù)的傳遞機(jī)制。

三、自主學(xué)習(xí)

為了簡化程序設(shè)計(jì)，通常將程序分割成較小的邏輯部件，這些部件稱為過程。在Visual Basic中，過程分為SUB過程（沒有返回值）和Function過程（具有返回值）。所有的可執(zhí)行代碼都必須屬于某個(gè)過程。Sub過程可以放在標(biāo)準(zhǔn)模塊或窗體模塊中。過程的定義是平行的，不能在過程中定義其他過程。

1、事件過程

事件過程分為窗體事件過程和控件事件過程，兩者都是用Private進(jìn)行聲明。

窗體事件過程：

Private Sub Form_事件名[(參數(shù)列表)] 語句塊 End Sub 控件事件過程：

Private Sub 控件名_事件名[(參數(shù)列表)] 語句塊 End Sub 建立事件過程可以有以下3種方法。1）雙擊窗體或控件，即可打開代碼編輯器窗口，并且會(huì)出現(xiàn)該窗體或控件的默認(rèn)過程代碼。

2）單擊工程資源管理器窗口的“查看代碼”按鈕，然后從“對(duì)象”列表框中選擇一個(gè)對(duì)象，從“過程”列表框中選擇一個(gè)過程。

3）自己編寫事件過程，在代碼編輯器窗口中直接編寫事件過程。

在事件過程中，過程的范圍、名稱和參數(shù)通常情況下不能修改，應(yīng)使用其默認(rèn)的范圍、名稱和參數(shù)。

2、通用過程

為了完成某個(gè)特定任務(wù)，通常會(huì)編寫一段相對(duì)獨(dú)立的程序。為了方便這段程序的維護(hù)和使用，這段程序一般用通用過程進(jìn)行組織，語法格式如下：

[Private︱Public][Static]Sub過程名[（參數(shù)列表）] [語句塊] [Exit Sub] [語句塊] End Sub 若要建立通用過程，可打開代碼編輯器窗口，從“對(duì)象”列表框中選擇“通用”選項(xiàng)，然后在代碼編輯區(qū)的空白處輸入“Sub<過程名>”，按“回車”鍵后即會(huì)出現(xiàn)End Sub語句。

3、參數(shù)傳遞

聲明過程時(shí)，參數(shù)列表應(yīng)遵循以下語法格式：

[Optional][ByVal︳ByRef][ParamArray]變量名[（）][As 數(shù)據(jù)類型名稱] 其中，Optional表示參數(shù)是可選的，ByVal表示該參數(shù)按值傳遞，ByRef表示該參數(shù)按地址傳遞，ParamArray表示可以提供任意數(shù)目的參數(shù)，變量名命名遵循標(biāo)識(shí)符命名規(guī)則，“（）”表示變量是一個(gè)數(shù)組，As子句用來說明變量的類型。多個(gè)參數(shù)時(shí)，參數(shù)之間用逗號(hào)進(jìn)行分隔。

下面分別討論參數(shù)的關(guān)鍵字的用法。

1）按值傳遞參數(shù)。按值傳遞參數(shù)時(shí)，傳遞的知識(shí)變量的副本。如果過程改變了這個(gè)值，那么變動(dòng)只影響副本而不會(huì)影響變量本身。用ByVal關(guān)鍵字，就可以指定參數(shù)是按值來傳遞的。

2）按地址傳遞參數(shù)。按地址傳遞參數(shù)時(shí)，傳遞的是變量的內(nèi)存地址，過程通過變量的內(nèi)存地址去訪問實(shí)際變量的內(nèi)容。將變量傳遞給過程時(shí)，通過過程可永遠(yuǎn)改變變量的值。按地址傳遞參數(shù)是VB過程參數(shù)傳遞的默認(rèn)方式。

3）使用可選的參數(shù)。在過程的參數(shù)列表中加入Optional關(guān)鍵字，就可以指定過程的參數(shù)是可選的。如果制定了可選參數(shù)，則參數(shù)表中此參數(shù)后面的其他參數(shù)也必須是可選的，并且要用Optional關(guān)鍵字來聲明。

VB過程的可選參數(shù)可以提供一個(gè)默認(rèn)值，如果未將可選參數(shù)傳遞到函數(shù)過程，則返回一個(gè)默認(rèn)值。

4）使用不定數(shù)量的參數(shù)。一般來說，過程調(diào)用中的參數(shù)個(gè)數(shù)應(yīng)等于過程說明的參數(shù)個(gè)數(shù)。可用ParamArray關(guān)鍵字指明，過程將接受任意個(gè)數(shù)的參數(shù)。ParamArray只能用于參數(shù)列表中最后一個(gè)參數(shù)，并且不能與ByVal、ByRef和Optional一起使用。

4、SUB過程的調(diào)用

要執(zhí)行一個(gè)過程，就必須調(diào)用過程。在VB中，事件過程一般由操作系統(tǒng)調(diào)用，比如鼠標(biāo)事件等。通用過程則由通用過程或事件過程調(diào)用，通用過程最終由事件過程調(diào)用執(zhí)行。在VB中，調(diào)用Sub過程有以下兩種方式。

1）用Call語句調(diào)用過程，語法格式如下： Call 過程名[(實(shí)際參數(shù))] 用Call語句調(diào)用一個(gè)過程時(shí)，如果過程本身沒有參數(shù)，則實(shí)際參數(shù)和括號(hào)可以省略；否則應(yīng)給出相應(yīng)的實(shí)際參數(shù)，并把參數(shù)放在括號(hào)中。

2）把過程名作為一個(gè)語句使用，語法格式如下： 過程名 [實(shí)際參數(shù)] 與第1種過程調(diào)用方式相比，這里省掉了關(guān)鍵字Call，實(shí)際參數(shù)也不能放在括號(hào)中

四、合作探究

編程設(shè)計(jì)：制作猜寶游戲：首先將寶放在左手，是否放到右手由隨機(jī)函數(shù)來決定，交換的過程通過兩個(gè)自定義過程完成，這兩個(gè)過程的形式相同，參數(shù)相同，只是參數(shù)的傳遞方式不同。一個(gè)是按值傳遞，一個(gè)是按地址傳遞，結(jié)果截然不同。

設(shè)計(jì)步驟：

1、創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程。

2、在屬性窗口，把窗體Form1的Caption屬性值修改為“任務(wù)11 制作猜寶游戲”。

3、在窗體Form1的代碼窗口中編寫以下事件過程。Sub ex1(ByVal a As String, ByVal b As String)Dim tmp As String tmp = a: a = b: b = tmp End Sub Sub ex2(ByRef a As String, ByRef b As String)Dim tmp As String tmp = a: a = b: b = tmp End Sub

Private Sub Form_Click()Dim left As String, right As String left = “有”: right = “無” Randomize(Timer)If Rnd > 0.5 Then ex1 left, right Else ex2 left, right End If Cls Print Print Tab(6);“ 猜寶游戲” Print Tab(6);“=====================================” Print Tab(12);“現(xiàn)在是：” Print Print Tab(12);“左手：”;left;“ ”;“右手：”;right Print Print Tab(12);“猜一下：下一次寶在哪個(gè)手（鼠標(biāo)單擊繼續(xù)）?！?Print Tab(6);“=====================================” End Sub

4、把窗體文件和工程文件分別命名保存。

5、按F5鍵運(yùn)行程序。

五、課堂小結(jié)

本節(jié)課主要通過設(shè)計(jì)小程序，了解了通用過程和事件過程的應(yīng)用，正握了參數(shù)的傳遞機(jī)制。

第四篇：VB6.0程序設(shè)計(jì)教案_第31、32課時(shí)

第31、32課時(shí)

上課時(shí)間：2014年4月10日 備課時(shí)間：2014年 4月 7日

【課題】

3.2 保持窗體上的標(biāo)簽文本居中

【教學(xué)目標(biāo)】

1、了解窗體的ScaleHeight屬性和ScaleWidth屬性的用法

2、了解窗體的Resize事件和Unload事件的用法 【德育目標(biāo)】

培養(yǎng)學(xué)生勇于探索未知世界，積極主動(dòng)學(xué)習(xí)的思想，將來為祖國的科技發(fā)展做出貢獻(xiàn)?！窘虒W(xué)重點(diǎn)】

上述兩種屬性和事件的應(yīng)用 【教學(xué)難點(diǎn)】

對(duì)事件的理解 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過程】

一、復(fù)習(xí)

1、窗體的Load事件和Click事件的格式？

二、導(dǎo)入

上一章討論了Visual Basic中的窗體的常用屬性以及兩個(gè)事件的用法。本節(jié)課我們來學(xué)習(xí)窗體的屬性和事件的應(yīng)用。

三、自主學(xué)習(xí)

1、窗體的ScaleHeight屬性和ScaleWidth屬性

窗體的ScaleHeight屬性和ScaleWidth屬性分別用來返回窗體內(nèi)部的寬度和高度。這連個(gè)屬性在設(shè)計(jì)時(shí)是不可用的，并且在運(yùn)行時(shí)是只讀的。

窗體的ScaleHeight屬性和ScaleWidth屬性給出了窗體的內(nèi)部尺寸，不包括邊框厚度及菜單或標(biāo)題等高度。而窗體的尺寸則由Width屬性和Height屬性決定。

窗體時(shí)控件的容器，控件在窗體上的坐標(biāo)是用其Top屬性和Left屬性定義的。Width屬性和Height屬性決定了控件的寬度和高度。

2、窗體的Resize和Unload事件

1）Resize：當(dāng)窗體第1次顯示或窗體的外觀尺寸被改變時(shí)發(fā)生，語法格式如下：

Private Sub Form_Resize()2)Unload：當(dāng)窗體從內(nèi)存中卸載時(shí)發(fā)生。當(dāng)船體被加載時(shí)，它的所有控件的內(nèi)容均被重新初始化。當(dāng)使用控件菜單中的關(guān)閉命令、關(guān)閉按鈕或Unload語句關(guān)閉該窗體時(shí)，此事件被觸發(fā)。語法格式如下：

Private Sub Form_Unload(cancel As Integer)其中參數(shù)Cancel為整數(shù)，用來確定窗體是否卸載。如果Cancel為0，則窗體被卸載。將Cancel設(shè)置為任意一個(gè)非零值可防止窗體被刪除。

通常將參數(shù)Cancel設(shè)置為任意一個(gè)非零值可防止窗體被刪除，但不能阻止其他事件，諸如從Windows環(huán)境中退出等?？梢杂肣uryUnload事件阻止從Windows操作系統(tǒng)中退出。在窗體被卸載時(shí)，可以用Unload事件過程來確認(rèn)窗體是否被卸載或用來指定想要發(fā)生的操作。

四、合作探究

編程設(shè)計(jì)：利用響應(yīng)窗體Resize事件來改變標(biāo)簽Label的頂點(diǎn)坐標(biāo)和寬度的值，從而實(shí)現(xiàn)當(dāng)改變窗體大小時(shí)，標(biāo)簽文本始終出現(xiàn)在窗體中央。當(dāng)退出程序時(shí)，通過響應(yīng)窗體Unload事件，提示確認(rèn)關(guān)閉程序。

設(shè)計(jì)步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個(gè)EXE工程，并把窗體文件和工程文件分別命名并保存。

2、把窗體Form1調(diào)整到所需的大小，并將其Caption屬性值設(shè)置為“保持窗體上的標(biāo)簽文本居中”。

3、在工具箱單擊Label圖標(biāo)，在窗體Form1上拖動(dòng)鼠標(biāo)以添加標(biāo)簽控件Label1，然后在屬性窗口中將標(biāo)簽Label1的Caption屬性值設(shè)置為“歡迎使用Visual Basic 6.0”，并設(shè)置Font屬性，把AutoSize屬性設(shè)置為True。

4、在窗體Form1的代碼窗口中編寫以下代碼。Private Sub Form_Resize()label1.Left = Int(Form1.ScaleWidth / 2)Int(label1.Height / 2)End Sub

Private Sub Form_Unload(Cancel As Integer)Dim a As Integer a = MsgBox(“是否要關(guān)閉程序？”, vbQuestion + vbYesNo, “信息提示”)If a = vbNo Then Cancel = 1 End If End Sub

5、保存所有文件。

6、按F5運(yùn)行程序。

7、當(dāng)改變窗體大小時(shí)，文字信息一直保持在窗口中央。關(guān)閉窗口時(shí)，彈出對(duì)話框，單擊“是”按鈕，則退出程；單擊“否”按鈕，則返回程序。

五、課堂小結(jié)

本節(jié)課主要通過設(shè)計(jì)小程序，熟悉了窗體的scaleheight屬性和scalewidth屬性，以及窗體的resize事件和unload事件。

第五篇：VB6.0程序設(shè)計(jì)教案_第41、42課時(shí)

第41、42課時(shí)

上課時(shí)間：2014年4月25日 備課時(shí)間：2014年 4月 22日

3.7 創(chuàng)建多文檔界面應(yīng)用程序

【教學(xué)目標(biāo)】

1、掌握創(chuàng)建MDI窗體的方法；

2、掌握創(chuàng)建快速顯示窗體的方法?！窘虒W(xué)重點(diǎn)】

MDI窗體和子窗體的創(chuàng)建 【教學(xué)難點(diǎn)】

創(chuàng)建快速顯示窗體 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過程】

一、復(fù)習(xí)

1、CommandDialog控件的常用方法和屬性？

二、導(dǎo)入

上一章討論了Visual Basic中CommandDialog控件的常用方法和屬性。本節(jié)課我們來學(xué)習(xí)創(chuàng)建MDI窗體和子窗體的方法。

三、自主學(xué)習(xí)

1、多文檔界面（MDI）應(yīng)用程序 MDI應(yīng)用程序具有以下特性。

1）所有子窗體均顯示在MDI窗體的工作空間內(nèi)。像其他窗體一樣，用戶能移動(dòng)子窗體和改變子窗體的大小，不過，它們被限制于這一工作空間內(nèi)。

2）當(dāng)最小化一個(gè)子窗體時(shí)，它的圖標(biāo)將顯示在MDI窗體上而不是在任務(wù)欄中。當(dāng)最小化MDI窗體時(shí)，此MDI窗體及其所有子窗體將由一個(gè)圖標(biāo)來代表。當(dāng)還原MDI窗體時(shí)，MDI窗體及其所有子窗體將按最小化之前的狀態(tài)顯示出來。

3）當(dāng)最大化一個(gè)子窗體時(shí)，它的標(biāo)題會(huì)與MDI窗體的標(biāo)題組合在一起并顯示于MDI窗體的標(biāo)題欄上。MDI窗體擁有一些普通窗口所沒有的屬性，包括：

1）AutoShowChildren：通過設(shè)置該屬性，子窗體可以在窗體加載時(shí)自動(dòng)顯示或自動(dòng)隱藏。

2）ActiveForm：該屬性表示MDI窗體中的活動(dòng)子窗體。創(chuàng)建MDI應(yīng)用程序的步驟如下：

1）從“工程”菜單中選擇“添加MDI窗體”命令。

2）創(chuàng)建應(yīng)用程序的子窗體。要?jiǎng)?chuàng)建一個(gè)MDI子窗體，可先創(chuàng)建一個(gè)新窗體（或者打開一個(gè)存在的窗體），然后把它的MDIChild屬性設(shè)為True。

3）設(shè)計(jì)時(shí)使用MDI子窗體。在設(shè)計(jì)時(shí)，子窗體不限制在MDI窗體區(qū)域之內(nèi)。可以添加控件、設(shè)置屬性、編寫代碼及設(shè)置子窗體功能，就像在其他Vsiual Basic窗體中做的那樣。

注意：

一個(gè)應(yīng)用程序只能有一個(gè)MDI窗體。如果工程已經(jīng)有了一個(gè)MDI窗體，則該“工程”菜單上的“添加MDI窗體”命令不可使用。

2、快速顯示窗體

快速顯示窗體一般作為程序的封面使用，這種窗口一般沒有命令按鈕，沒有標(biāo)題欄。當(dāng)出現(xiàn)快速顯示窗體時(shí)，按任意鍵或用鼠標(biāo)單擊窗口，它就會(huì)被卸載并調(diào)用應(yīng)用程序主窗體。

制作快速顯示窗體時(shí)，在工程中新建一個(gè)窗體，將窗體的BorderStyle屬性設(shè)置為3，ControlBox屬性設(shè)置為False，Caption屬性設(shè)置為空字符串，并在該窗體中添加一些標(biāo)簽和圖片。此外，還必須通過設(shè)置工程屬性，把快速顯示窗體設(shè)置為應(yīng)用程序的啟動(dòng)對(duì)象。

四、合作探究

編程設(shè)計(jì)：

在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)啟動(dòng)該應(yīng)用程序時(shí)首先出現(xiàn)一個(gè)快速顯示窗體；當(dāng)該窗體消失后出現(xiàn)一個(gè)多文檔界面窗體，其中包含兩個(gè)子窗體。

設(shè)計(jì)步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個(gè)EXE工程，并把窗體文件和工程文件分別命名并保存。

2、把窗體Form1調(diào)整到所需的大小，并將其Caption屬性值設(shè)置為“MDI子窗體之一”，MDIChild屬性值設(shè)置為True，使該窗體稱為一個(gè)MDI子窗體。

3、通過以下操作添加MDI窗體。

1）從“工程”菜單中選擇“添加MDI窗體”命令。

2）彈出“添加MDI窗體”對(duì)話框，在“新建”選項(xiàng)卡中選擇“MDI窗體”，單擊“打開”按鈕。

3）將新添加的MDI窗體文件命名，并保存。將該MDI窗體的Caption屬性值設(shè)置為“MDI窗體”。

4、添加另一個(gè)MDI子窗體。

5、從“工程”菜單中選擇“添加窗體”命令，彈出“添加窗體”對(duì)話框，從“新建”選項(xiàng)卡中選擇“展開屏幕”選項(xiàng)，然后單擊“打開”按鈕，新添加的窗體名稱為frmSplash，將窗體文件命名為frmSplash.frm，并保存，此窗體中包含一些控件。

6、在屬性窗口中，對(duì)窗體frmSplash上得控件進(jìn)行設(shè)置。

7、設(shè)置應(yīng)用程序的啟動(dòng)對(duì)象。

8、打開窗體的frmSplash的代碼窗口，對(duì)已有的程序進(jìn)行修改，代碼屬下： Private sub form_keypress(keyascii as integer)Unload me Mdiform1.show End sub Private sub form_load()Lblversion.caption= “版本” & app.major & “.” & app.minor & “.”& app.revision Lvlproductname.caption = app.title End sub Private sub frame1_click()Unload me Mdiform1.show End sub

8、在窗體MDIForm1的代碼窗口中編寫以下事件過程。Private sub mdiform_activate()Form1.show Form2.show End sub

9、保存所有文件。

10、按F5運(yùn)行程序。

11、當(dāng)出現(xiàn)快速顯示窗體時(shí)，按任意鍵或用鼠標(biāo)單擊該窗口，該窗口被隱藏。出現(xiàn)一個(gè)多文檔界面窗體，氣宗包含連個(gè)子窗體。關(guān)閉MDI窗體時(shí)，子窗體隨之關(guān)閉。

五、課堂小結(jié)

本節(jié)課主要通過設(shè)計(jì)小程序，創(chuàng)建MDI窗體的方法和創(chuàng)建快速顯示窗體的方法。