第一篇：VB6.0程序設(shè)計(jì)教案_第19、20課時(shí)（精選）

第19、20課時(shí)

上課時(shí)間：2013年 3月 25日 備課時(shí)間：2013年 3月 20日

【課題】

2.9 分析蛋糕銷售情況

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

1、掌握定長(zhǎng)數(shù)組的使用方法

2、掌握數(shù)組的初始化方法

3、清除數(shù)組的方法 【德育目標(biāo)】

培養(yǎng)學(xué)生正確的網(wǎng)絡(luò)意識(shí)，養(yǎng)成良好的信息技術(shù)素質(zhì)。【教學(xué)重點(diǎn)】

定長(zhǎng)數(shù)組的使用方法 【教學(xué)難點(diǎn)】

數(shù)組的初始化 【教具】

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

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

1、DO循環(huán)語(yǔ)句的格式？

二、導(dǎo)入

上一章討論了Visual Basic中DO循環(huán)語(yǔ)句的用法，本節(jié)課我們來(lái)學(xué)習(xí)選擇語(yǔ)句中數(shù)組的使用方法。

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

在Visual Basic中，把一組具有同一名字、不同下標(biāo)的變量稱為數(shù)組。在計(jì)算機(jī)中，數(shù)組占據(jù)一塊連續(xù)的內(nèi)存區(qū)域，數(shù)組名就是這個(gè)區(qū)域的名稱，區(qū)域的每個(gè)單元都有自己的地址，下標(biāo)指出每個(gè)單元在該記錄的位置。在實(shí)際應(yīng)用中，可以使用數(shù)組來(lái)處理同一類型的成批數(shù)據(jù)，例如商品的零售記錄等。

1、定長(zhǎng)數(shù)組 定長(zhǎng)數(shù)組是指元素個(gè)數(shù)保持不變的數(shù)組。

在Visual Basic中可以用以下語(yǔ)句來(lái)聲明數(shù)組：使用DIM可在窗體模塊或標(biāo)準(zhǔn)模塊中聲明數(shù)組，也可用在過(guò)程中；使用Private可在窗體模塊或標(biāo)準(zhǔn)模塊中聲明數(shù)組，也可用在過(guò)程中；使用Static可在過(guò)程中聲明靜態(tài)數(shù)組；使用Public可在標(biāo)準(zhǔn)模塊中聲明全局?jǐn)?shù)組。

下面以DIM語(yǔ)句為例說(shuō)明數(shù)組聲明的語(yǔ)法格式，當(dāng)用其他語(yǔ)句聲明數(shù)組時(shí)，其格式是一樣的。用DIM語(yǔ)句聲明數(shù)組時(shí)，迎遵循以下語(yǔ)法格式：

DIM 數(shù)組（[下標(biāo)下界 TO]下標(biāo)上界[，下標(biāo)下界 TO 下標(biāo)上界]）[AS 數(shù)據(jù)類型] 說(shuō)明：

1）DIM語(yǔ)句必須放在使用數(shù)組之前，遵循先聲明后使用的原則。2）格式中得數(shù)組名可以是任意合法的變量名。

3）用DIM語(yǔ)句定義數(shù)組時(shí)，數(shù)組中得全部元素初始化為0，字符串?dāng)?shù)組中得全部元素初始化為空字符串。

2、默認(rèn)數(shù)組

一般情況下，聲明數(shù)組應(yīng)指明其類型，例如： Static Vari(1 TO 100)As Integer 不過(guò)，在Visual Basic中，允許聲明默認(rèn)數(shù)組，即數(shù)據(jù)類型為 Variant 的數(shù)組，例如：

Static Vari(1 to 100)該聲明等價(jià)為：

Static Vari(1 to 100)as Variant 在多數(shù)程序設(shè)計(jì)語(yǔ)言中，數(shù)組中各個(gè)元素的數(shù)據(jù)類型要求相同，即一個(gè)數(shù)組只能存放同一種類型的數(shù)據(jù)。對(duì)于默認(rèn)數(shù)組來(lái)說(shuō)，同一個(gè)數(shù)組可以存放各種不同類型的數(shù)據(jù)。顯然，默認(rèn)數(shù)組可以說(shuō)是一種“混合型數(shù)組”。

3、數(shù)組的初始化

數(shù)組的初始化就是給數(shù)組的各個(gè)元素賦初值。Visual Basic提供了Array函數(shù)，可用于對(duì)數(shù)組進(jìn)行初始化，為數(shù)組元素賦值，語(yǔ)法格式如下： 數(shù)組名=Array(數(shù)組元素值)使用Array函數(shù)給數(shù)組賦初值時(shí)，數(shù)組變量只能是Variant類型。Array只適用于一維數(shù)組，不能對(duì)二維或多維數(shù)組賦值。

數(shù)組可以不聲明直接使用，也可以只聲明數(shù)組不聲明類型或聲明稱Variant類型。數(shù)組名是預(yù)先聲明的數(shù)組名，在其后滅有括號(hào)。數(shù)組元素值是要賦給數(shù)組各元素的值，各值之間以逗號(hào)分開。如果不提供數(shù)組元素值，則創(chuàng)建一個(gè)長(zhǎng)度為0的數(shù)組。

在默認(rèn)情況下，使用Array函數(shù)創(chuàng)建的數(shù)組的下標(biāo)從0開始。如果希望下標(biāo)從1開始，則應(yīng)使用下語(yǔ)句： Option Base 1

4、數(shù)組的清除

如果想釋放動(dòng)態(tài)數(shù)組的存儲(chǔ)空間或清除定長(zhǎng)數(shù)組的內(nèi)容，可以用Erase語(yǔ)句來(lái)實(shí)現(xiàn)，語(yǔ)法格式如下： Erase 數(shù)組名 [,數(shù)組名]??

Erase語(yǔ)句用來(lái)重新初始化定長(zhǎng)數(shù)組的元素，或者釋放動(dòng)態(tài)數(shù)組的儲(chǔ)存空間。當(dāng)把Erase語(yǔ)句用于定長(zhǎng)數(shù)組時(shí)，不釋放數(shù)組的所有空間，只是清除數(shù)組的內(nèi)容。如果這個(gè)數(shù)組是數(shù)值數(shù)組，則把數(shù)組中得所有元素置為0；如果是字符串?dāng)?shù)組，則把數(shù)組中得所有元素置為空字符串，如果是Variant數(shù)組，則將每個(gè)元素置為Empty；如果是對(duì)象數(shù)組，則將每個(gè)元素置為Nothing。

當(dāng)把Erase語(yǔ)句用于動(dòng)態(tài)數(shù)組時(shí)，將刪除整個(gè)數(shù)組結(jié)構(gòu)并釋放該數(shù)組所占有的內(nèi)存，下一次使用時(shí)需要重新用ReDim語(yǔ)句定義。

四、合作探究

編程設(shè)計(jì)：聲明一個(gè)數(shù)組，使用隨機(jī)函數(shù)模擬產(chǎn)生31個(gè)0—100之間的整數(shù)，依次賦給數(shù)組的每一個(gè)元素，計(jì)算平均數(shù)，打印出低于平均數(shù)的日銷售量。

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

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

2、在屬性窗口，把窗體Form1的Caption屬性值修改為“任務(wù)8 分析蛋糕銷售情況”。

3、在窗體Form1的代碼窗口中編寫以下事件過(guò)程。Private Sub Form_Click()Dim shuju(31)As Integer, pjs As Integer Dim i As Integer Dim a As String a = “==========================” Cls Print Print “ 溫馨蛋糕房一月份每日蛋糕銷售情況（單位：個(gè)）” Print a;a For i = 1 To 31 shuju(i)= Rnd()* 100 Print i;“號(hào)”;shuju(i), If(i Mod 5)= 0 Then Print End If Next i Print Print a;a For i = 1 To 31 pjs = pjs + shuju(i)Next i pjs = pjs / 31 Print “一月平均銷售：”;pjs;“個(gè) 銷售量沒(méi)有超過(guò)平均數(shù)的分別是：” Print a;a For i = 1 To 31 If shuju(i)< pjs Then Print i;“號(hào)：”;shuju(i), Else Print "", End If If(i Mod 5)= 0 Then Print End If Next i Print Print a;a End Sub

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

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

五、課堂小結(jié)

本節(jié)課主要通過(guò)設(shè)計(jì)小程序，掌握定長(zhǎng)數(shù)組的使用方法。

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

第51、52課時(shí)

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

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

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

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

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

3、掌握復(fù)選框按鈕控件的應(yīng)用。【教學(xué)重點(diǎn)】

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

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

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

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

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

二、導(dǎo)入

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

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

1、列表框控件

列表框（ListBox）控件用于顯示項(xiàng)目列表，從其中可以選擇一項(xiàng)或多項(xiàng)。如果項(xiàng)目總數(shù)超過(guò)了可顯示的項(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í)可以通過(guò)屬性窗口來(lái)設(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)目添加到列表框控件，語(yǔ)法格式如下： oList.AddItem item, index 其中oList表示列表框控件；參數(shù)Item為字符串表達(dá)式，用來(lái)指定添加到該列表框的項(xiàng)目；參數(shù)Index為整數(shù)，用來(lái)指定新項(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)，語(yǔ)法格式如下： 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è)簡(jiǎn)單組合框，包括一個(gè)文本框和一個(gè)不能下拉的列表，可以從列表中選擇或在文本框中輸入。如果該屬性值為2，則呈現(xiàn)為下拉式列表，這種樣式僅允許從下拉式列表中選擇。

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

為了添加或刪除組合框控件中的項(xiàng)目，需要使用AddItem或RemoveItem方法。利用List、ListCount和ListIndex屬性可以實(shí)現(xiàn)對(duì)組合框中項(xiàng)目的訪問(wèn)。也可以在設(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為零長(zhǎng)度字符串（“”），則Split返回包含零長(zhǎng)度字符串的單個(gè)元素?cái)?shù)組。如果Delimiter為零長(zhǎng)度字符串，或它不在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è)簡(jiǎn)單的選課系統(tǒng)，當(dāng)從組合框中選擇不同專業(yè)時(shí)，通過(guò)列表框列出相關(guān)的課程，可以從中選擇所需的課程，并允許添加或刪除課程；當(dāng)選擇了一些課程并單擊“確定”按鈕后，通過(guò)另一個(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的代碼窗口中編寫以下事件過(guò)程。

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)用，基于過(guò)程的程序設(shè)計(jì)，網(wǎng)頁(yè)制作，數(shù)據(jù)庫(kù)應(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)頁(yè)制作，中小型網(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的代碼窗口中編寫以下事件過(guò)程。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é)課主要通過(guò)設(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、了解通用過(guò)程與事件過(guò)程

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

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

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

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

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

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

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

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

二、導(dǎo)入

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

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

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

1、事件過(guò)程

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

窗體事件過(guò)程：

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

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

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

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

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

2、通用過(guò)程

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

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

3、參數(shù)傳遞

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

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

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

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

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

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

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

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

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

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

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

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

四、合作探究

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

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

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

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

3、在窗體Form1的代碼窗口中編寫以下事件過(guò)程。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 = “無(wú)” 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é)課主要通過(guò)設(shè)計(jì)小程序，了解了通用過(guò)程和事件過(guò)程的應(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í)的思想，將來(lái)為祖國(guó)的科技發(fā)展做出貢獻(xiàn)。【教學(xué)重點(diǎn)】

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

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

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

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

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

二、導(dǎo)入

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

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

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

窗體的ScaleHeight屬性和ScaleWidth屬性分別用來(lái)返回窗體內(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ā)生，語(yǔ)法格式如下：

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

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

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

四、合作探究

編程設(shè)計(jì)：利用響應(yīng)窗體Resize事件來(lái)改變標(biāo)簽Label的頂點(diǎn)坐標(biāo)和寬度的值，從而實(shí)現(xiàn)當(dāng)改變窗體大小時(shí)，標(biāo)簽文本始終出現(xiàn)在窗體中央。當(dāng)退出程序時(shí)，通過(guò)響應(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é)課主要通過(guò)設(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)建快速顯示窗體的方法。【教學(xué)重點(diǎn)】

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

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

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

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

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

二、導(dǎo)入

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

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

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

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

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

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

1）AutoShowChildren：通過(guò)設(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、快速顯示窗體

快速顯示窗體一般作為程序的封面使用，這種窗口一般沒(méi)有命令按鈕，沒(méi)有標(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)簽和圖片。此外，還必須通過(guò)設(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、通過(guò)以下操作添加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的代碼窗口中編寫以下事件過(guò)程。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é)課主要通過(guò)設(shè)計(jì)小程序，創(chuàng)建MDI窗體的方法和創(chuàng)建快速顯示窗體的方法。