VB語(yǔ)言第4章教案

1、主頁(yè)主頁(yè) 程序流程有三種最基本的控制程序流程有三種最基本的控制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。環(huán)結(jié)構(gòu)。 在一個(gè)過(guò)程中，程序通常是按在一個(gè)過(guò)程中，程序通常是按照由上而下的順序來(lái)執(zhí)行各個(gè)語(yǔ)句照由上而下的順序來(lái)執(zhí)行各個(gè)語(yǔ)句的，直到整個(gè)過(guò)程結(jié)束。引入選擇的，直到整個(gè)過(guò)程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。行的流程。主頁(yè)主頁(yè) 選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判斷某些條件，根據(jù)判斷的結(jié)果來(lái)控制程序的流程斷某些條件，根據(jù)判斷的結(jié)果來(lái)控制程序的流程 本章主要內(nèi)容本章

2、主要內(nèi)容 第第4 4章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì)退出退出主頁(yè)主頁(yè) 選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判斷某些條件，根據(jù)判斷的結(jié)果來(lái)控制程序的流程斷某些條件，根據(jù)判斷的結(jié)果來(lái)控制程序的流程 4.1 4.1 條件表達(dá)式條件表達(dá)式 示例示例 If x = 5 Then y = x + 1 If a1 And b0 Then x = 1 關(guān)系表達(dá)式關(guān)系表達(dá)式和和邏輯表達(dá)式邏輯表達(dá)式 4.2 4.2 條件語(yǔ)句條件語(yǔ)句 兩種格式的條件語(yǔ)句：兩種格式的條件語(yǔ)句： If . Then If . Then . Else選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì)主頁(yè)主頁(yè)

3、 格式：格式： If 條件條件 Then 語(yǔ)句語(yǔ)句 或或 If 條件條件 Then 語(yǔ)句塊語(yǔ)句塊 End If 功能：功能：若條件成立若條件成立(值為真值為真)，則執(zhí)行，則執(zhí)行Then后面的語(yǔ)句或語(yǔ)句后面的語(yǔ)句或語(yǔ)句塊，否則直接執(zhí)行下一條語(yǔ)句或塊，否則直接執(zhí)行下一條語(yǔ)句或“End If”的下一條語(yǔ)句的下一條語(yǔ)句 .1 If.Then語(yǔ)句語(yǔ)句單行結(jié)構(gòu)單行結(jié)構(gòu)多行多行(塊塊)結(jié)構(gòu)結(jié)構(gòu)主頁(yè)主頁(yè) 格式：格式： If 條件條件 Then 語(yǔ)句塊語(yǔ)句塊1 (A) Else 語(yǔ)句塊語(yǔ)句塊2 (B) End If 功能：功能：首先測(cè)試條件首先測(cè)試條件(E)，如果條件成立，如果條件成立(即值為真

4、即值為真)，則，則執(zhí)行執(zhí)行Then后面的語(yǔ)句塊后面的語(yǔ)句塊1，如果條件不成立，如果條件不成立(即值為假即值為假)，則，則執(zhí)行執(zhí)行Else后面的語(yǔ)句塊后面的語(yǔ)句塊2。而在執(zhí)行。而在執(zhí)行Then或或Else之后的語(yǔ)句塊之后的語(yǔ)句塊后，會(huì)從后，會(huì)從End If之后的語(yǔ)句繼續(xù)執(zhí)行。之后的語(yǔ)句繼續(xù)執(zhí)行。真假AB E .2 If.Then.Else If.Then.Else語(yǔ)句語(yǔ)句主頁(yè)主頁(yè) 實(shí)現(xiàn)一些簡(jiǎn)單的條件判斷分支結(jié)構(gòu)實(shí)現(xiàn)一些簡(jiǎn)單的條件判斷分支結(jié)構(gòu) 格式：格式： IIf(條件，條件為真時(shí)的值，條件為假時(shí)的值條件，條件為真時(shí)的值，條件為假時(shí)的值) 功能：對(duì)條件進(jìn)行測(cè)試，若條件成立功能：對(duì)條

5、件進(jìn)行測(cè)試，若條件成立(為真值為真值)，則，則取第一個(gè)值取第一個(gè)值(即即“條件為真時(shí)的值條件為真時(shí)的值”)，否則取第二個(gè)，否則取第二個(gè)值值(即即“條件為假時(shí)的值條件為假時(shí)的值”)。 例如，將例如，將a、b中的小數(shù)，放入中的小數(shù)，放入Min變量中：變量中： Min=IIf(aMin=IIf(ab,a,b)b,a,b)4.2.3 IIf函數(shù)函數(shù)主頁(yè)主頁(yè) 1. 下列字符中，下列字符中，_字符最大，字符最大，_字符最小。字符最小。 A. 1 B. Z C. * D. a 2. 假設(shè)假設(shè)a=1，b=2，下列邏輯表達(dá)式中其值為真的有，下列邏輯表達(dá)式中其值為真的有 A. a=0 And b2 C. a ab

6、 D. a=0 And Not b0 And b0 請(qǐng)你給出答案請(qǐng)你給出答案想一想想一想最大字符：最大字符：D最小字符：最小字符：CFFTTT主頁(yè)主頁(yè)P(yáng)rivate Sub Form_Load() Show a = 1: b = 3 c = 3 * a - b a = IIf(c a, a - 1, b) + 1 If a * 2 - 1 a Then a = a + 1 c = c - 1 Else a = a - 1 End If Print a, b, cEnd Sub 下列程序的運(yùn)行結(jié)果是？下列程序的運(yùn)行結(jié)果是？想一想想一想2 3 -1例例4.1a主頁(yè)主頁(yè) (1)創(chuàng)建應(yīng)用程序的用戶界面

7、和設(shè)置對(duì)象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼編寫(xiě)程序代碼 功能要求：功能要求：用戶在用戶在“a=”文本框文本框(Text1)、“b=”文本框文本框(Text2)和和“c=”文本框文本框(Text3)中輸入數(shù)據(jù)，單擊中輸入數(shù)據(jù)，單擊“判斷判斷”按按鈕后，則在鈕后，則在“最大數(shù)最大數(shù)”文本框文本框(Text4)中輸出結(jié)果中輸出結(jié)果 例例4.2 輸入三個(gè)數(shù)輸入三個(gè)數(shù)a、b、c，求出其中最大數(shù)，求出其中最大數(shù)例例4.2主頁(yè)主頁(yè) Private Sub Command1_Click() m用來(lái)存放較大值用來(lái)存放較大值 Dim a As Integer, b As Integer

8、 Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = a Else m = b End If If c m Then m = c Text4.Text = m End Sub 程序代碼程序代碼 程序流程圖程序流程圖假假假假真真 開(kāi)始開(kāi)始從從3 3 個(gè)文本框中個(gè)文本框中讀取數(shù)值讀取數(shù)值a, b, c a b m = b c m結(jié)束結(jié)束 m = a真真 m = c在文本框在文本框Text4中顯示中顯示m值值主頁(yè)主頁(yè) Then和和Else后

9、面的語(yǔ)句塊包含另一個(gè)條件語(yǔ)句后面的語(yǔ)句塊包含另一個(gè)條件語(yǔ)句 1.一般格式一般格式 If 條件條件1 Then If 條件條件2 Then End If Else End If 使用條件語(yǔ)句嵌套時(shí)，一定要注意使用條件語(yǔ)句嵌套時(shí)，一定要注意If與與Else，If與與End If的配對(duì)關(guān)系。的配對(duì)關(guān)系。 4.2.4 條件語(yǔ)句的嵌套條件語(yǔ)句的嵌套主頁(yè)主頁(yè) 例如：例如：0時(shí)至?xí)r至12時(shí)，顯示時(shí)，顯示“早上好早上好” 利用窗體裝載利用窗體裝載(Load)事件，采用事件，采用Print直接在窗體上輸出結(jié)果直接在窗體上輸出結(jié)果 Private Sub Form_Load() Dim h As Integer

10、Show 使使print輸出在窗體上的內(nèi)容可見(jiàn)輸出在窗體上的內(nèi)容可見(jiàn) h = Hour(Time) 取系統(tǒng)的時(shí)間取系統(tǒng)的時(shí)間 FontSize = 30 : ForeColor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h 12 Then Print 早上好！早上好！ Else If h 18 Then Print 下午好！下午好！ Else Print 晚上好！晚上好！ End If End If End Sub例例4.4 根據(jù)不同的時(shí)間段發(fā)出問(wèn)候語(yǔ)根據(jù)不同的時(shí)間段發(fā)出問(wèn)候語(yǔ)例例4.4主頁(yè)主頁(yè) If 條件條件1 Then 語(yǔ)句塊語(yǔ)句塊1

11、 ElseIf 條件條件2 Then 語(yǔ)句塊語(yǔ)句塊2 ElseIf 條件條件3 Then 語(yǔ)句塊語(yǔ)句塊3 Else 語(yǔ)句塊語(yǔ)句塊n End If 先測(cè)試條件先測(cè)試條件1，如果為假，就依次測(cè)試條件，如果為假，就依次測(cè)試條件2，依此類(lèi)推，依此類(lèi)推，直到找到為真的條件。直到找到為真的條件。 一旦找到一個(gè)為真的條件時(shí)，一旦找到一個(gè)為真的條件時(shí)，VB會(huì)執(zhí)行相應(yīng)的語(yǔ)句塊，會(huì)執(zhí)行相應(yīng)的語(yǔ)句塊，然后執(zhí)行然后執(zhí)行End If語(yǔ)句后面的代碼。語(yǔ)句后面的代碼。 如果所有條件都是假，那么執(zhí)行如果所有條件都是假，那么執(zhí)行Else后面的語(yǔ)句塊后面的語(yǔ)句塊n，然，然后執(zhí)行后執(zhí)行End If語(yǔ)句后面的代碼。語(yǔ)句后面的代碼。

12、If h 12 Then Print 早上好！早上好！ ElseIf h = b Then If b 5 Then b = b + 1 ElseIf b 2 Then b = b - 1 Else b = b + 2 End If b = IIf(a = b, b + 1, b - 1) Print bEnd Sub 下列程序的運(yùn)行結(jié)果是？下列程序的運(yùn)行結(jié)果是？想一想想一想 2例例4.4a主頁(yè)主頁(yè) 使用多分支語(yǔ)句使用多分支語(yǔ)句Select Case也可以實(shí)現(xiàn)多分支選擇。更也可以實(shí)現(xiàn)多分支選擇。更有效、更易讀，并且易于跟蹤調(diào)試。有效、更易讀，并且易于跟蹤調(diào)試。 Select Case 測(cè)試表達(dá)式

13、測(cè)試表達(dá)式 Case 表達(dá)式表表達(dá)式表1 語(yǔ)句塊語(yǔ)句塊1 Case 表達(dá)式表表達(dá)式表2 語(yǔ)句塊語(yǔ)句塊2 . . . Case Else 語(yǔ)句塊語(yǔ)句塊n End Select 先計(jì)算表達(dá)式的值，然后將該值依次與結(jié)構(gòu)中的每個(gè)先計(jì)算表達(dá)式的值，然后將該值依次與結(jié)構(gòu)中的每個(gè)Case的值進(jìn)行比的值進(jìn)行比較，如果該值符合某個(gè)較，如果該值符合某個(gè)Case指定的值條件時(shí)，就執(zhí)行該指定的值條件時(shí)，就執(zhí)行該Case的語(yǔ)句塊，的語(yǔ)句塊，然后跳到然后跳到End Select，從，從End Select出口。如果沒(méi)有相符合的出口。如果沒(méi)有相符合的Case值，則值，則執(zhí)行執(zhí)行Case Else中的語(yǔ)句塊中的語(yǔ)句塊 4.3

14、 多分支語(yǔ)句多分支語(yǔ)句 示例示例Select Case x Case -1 y=10 Case 1 y=20 Case Else y=30End Select主頁(yè)主頁(yè) 先在窗體上顯示以下考題：先在窗體上顯示以下考題： 雞兔同籠，已知雞和兔總頭數(shù)為雞兔同籠，已知雞和兔總頭數(shù)為h=23，總腳數(shù)為，總腳數(shù)為f=56，求雞兔各有多少只，求雞兔各有多少只? 再提供輸入框由學(xué)生回答問(wèn)題，然后采用輸出框顯示對(duì)答再提供輸入框由學(xué)生回答問(wèn)題，然后采用輸出框顯示對(duì)答案的評(píng)判意見(jiàn)。案的評(píng)判意見(jiàn)。 分析：分析：設(shè)雞數(shù)為設(shè)雞數(shù)為j1，兔雞數(shù)為，兔雞數(shù)為t1，則有，則有 j1 + t1 = h j1 = (4 * h -

15、 f) / 2 2*j1 + 4*t1 = f t1 = (f - 2 * h) / 2 例例4.74.7 求雞數(shù)和兔數(shù)求雞數(shù)和兔數(shù)例例4.7主頁(yè)主頁(yè) 當(dāng)用戶單擊當(dāng)用戶單擊“答題答題”按鈕時(shí)，程序提供輸入對(duì)話框，由用戶按鈕時(shí)，程序提供輸入對(duì)話框，由用戶輸入答案，再通過(guò)輸出框顯示評(píng)判意見(jiàn)。采用的程序代碼如下：輸入答案，再通過(guò)輸出框顯示評(píng)判意見(jiàn)。采用的程序代碼如下： Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9); 考一考你考一考你 FontSize = 13 Print Print Spc(5); 雞兔同籠，已知雞和兔總

16、頭數(shù)為雞兔同籠，已知雞和兔總頭數(shù)為23， Print Spc(3); 總腳數(shù)為總腳數(shù)為56，求雞兔各有多少？，求雞兔各有多少？ End Sub主頁(yè)主頁(yè) Private Sub Command1_Click() “答題答題” h = 23 : f = 56 總頭數(shù)及總腳數(shù)總頭數(shù)及總腳數(shù) j1 = (4 * h - f) / 2 求出的雞數(shù)求出的雞數(shù) t1 = (f - 2 * h) / 2 求出的兔數(shù)求出的兔數(shù) j2 = Val(InputBox(雞的只數(shù)是多少？雞的只數(shù)是多少？, 請(qǐng)回答請(qǐng)回答) t2 = Val(InputBox(兔的只數(shù)是多少？兔的只數(shù)是多少？, 請(qǐng)回答請(qǐng)回答) Selec

17、t Case True 選擇真值選擇真值 Case j1 = j2 And t1 = t2 MsgBox 回答完全正確回答完全正確! Case j1 = j2 MsgBox 雞數(shù)回答正確，但兔數(shù)不對(duì)雞數(shù)回答正確，但兔數(shù)不對(duì)! Case t1 = t2 MsgBox 兔數(shù)回答正確，但雞數(shù)不對(duì)兔數(shù)回答正確，但雞數(shù)不對(duì)! Case Else MsgBox 回答錯(cuò)誤回答錯(cuò)誤! End Select End Sub主頁(yè)主頁(yè) 提供選項(xiàng)讓用戶選擇，如選擇提供選項(xiàng)讓用戶選擇，如選擇“是是”或或“否否”，從列表中選擇某一項(xiàng)等從列表中選擇某一項(xiàng)等 選擇的控件有：選擇的控件有： 單選按鈕、復(fù)選框、列表框和組合框單選

18、按鈕、復(fù)選框、列表框和組合框 4.4 4.4 選擇性控件選擇性控件主頁(yè)主頁(yè) 1. 單選按鈕的用途單選按鈕的用途 單選按鈕單選按鈕(OptionButton)控件由一個(gè)圓圈控件由一個(gè)圓圈“”及緊挨它及緊挨它的文字組成，能提供的文字組成，能提供“選中選中”和和“未選中未選中”兩種可選項(xiàng)兩種可選項(xiàng) 成組形式出現(xiàn)成組形式出現(xiàn) 2. 常用屬性常用屬性 Caption屬性屬性 Value屬性：屬性：表示單選按鈕是否被選中，選中時(shí)表示單選按鈕是否被選中，選中時(shí)Value值值為為T(mén)rue,否則為否則為False。 使用單選按鈕組時(shí)，選中其中一個(gè)，其余就會(huì)自動(dòng)關(guān)閉使用單選按鈕組時(shí)，選中其中一個(gè)，其余就會(huì)自動(dòng)關(guān)閉

19、 Alignment屬性：屬性：設(shè)置單選按鈕標(biāo)題的對(duì)齊方式設(shè)置單選按鈕標(biāo)題的對(duì)齊方式 3. 事件事件 Click事件事件 在應(yīng)用程序中可以創(chuàng)建一個(gè)事件過(guò)程，檢測(cè)控件對(duì)象在應(yīng)用程序中可以創(chuàng)建一個(gè)事件過(guò)程，檢測(cè)控件對(duì)象Value屬性值，再根據(jù)檢測(cè)結(jié)果執(zhí)行相應(yīng)的處理屬性值，再根據(jù)檢測(cè)結(jié)果執(zhí)行相應(yīng)的處理 4.4.1 4.4.1 單選按鈕單選按鈕 單選按鈕組單選按鈕組Caption屬性屬性主頁(yè)主頁(yè) (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 單選按鈕組；單選按鈕組； 初始狀態(tài)：設(shè)置初始狀態(tài)：設(shè)置Option1的的Value屬性值設(shè)置為屬性值設(shè)置為T(mén)rue，或通過(guò)代碼

20、或通過(guò)代碼“Option1.Value=True” 來(lái)實(shí)現(xiàn)來(lái)實(shí)現(xiàn) (2) 編寫(xiě)程序代碼編寫(xiě)程序代碼 功能要求功能要求 例例4.8 用單選按鈕組控制顯示不同的字體用單選按鈕組控制顯示不同的字體例例4.8主頁(yè)主頁(yè) 程序代碼如下：程序代碼如下： Private Sub Option1_Click() Text1.FontName = 宋體宋體 End Sub Private Sub Option2_Click() Text1.FontName = 幼圓幼圓 End Sub Private Sub Option3_Click() Text1.FontName = 楷體楷體_GB2312 End Sub

21、 說(shuō)明：說(shuō)明：程序代碼中所用的字體號(hào)程序代碼中所用的字體號(hào)(如如“宋體宋體”、“幼圓幼圓”等等)必須與系統(tǒng)提供的字體相一致必須與系統(tǒng)提供的字體相一致主頁(yè)主頁(yè) 1. 復(fù)選框的用途復(fù)選框的用途 復(fù)選框復(fù)選框(CheckBox) 控件由一個(gè)四方形小框和緊挨它的文控件由一個(gè)四方形小框和緊挨它的文字組成。提供字組成。提供“選中選中”和和“未選中未選中”兩種可選項(xiàng)兩種可選項(xiàng) 復(fù)選框控件與單選按鈕控件在使用方面的區(qū)別復(fù)選框控件與單選按鈕控件在使用方面的區(qū)別 2. 常用屬性常用屬性 Caption屬性屬性 Value屬性：屬性：表示復(fù)選框的狀態(tài)表示復(fù)選框的狀態(tài) 有三種取值：有三種取值：0未選中未選中(缺省值缺

22、省值) 1選中選中 2不可用不可用(灰色顯示灰色顯示) Alignment屬性；屬性；Style屬性屬性 3. 事件事件 復(fù)選框可響應(yīng)的事件與單選按鈕基本相同復(fù)選框可響應(yīng)的事件與單選按鈕基本相同4.4.2 4.4.2 復(fù)選框復(fù)選框復(fù)選按鈕組復(fù)選按鈕組CaptionCaption屬性屬性ValueValue屬性為屬性為2 2主頁(yè)主頁(yè) (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 多行文本框多行文本框(帶垂直滾動(dòng)條帶垂直滾動(dòng)條)和四個(gè)復(fù)選框和四個(gè)復(fù)選框 (2)編寫(xiě)程序代碼編寫(xiě)程序代碼 功能要求：功能要求：程序開(kāi)始運(yùn)行后，用戶在文本框中輸入一程序開(kāi)始運(yùn)行后，用戶在文

23、本框中輸入一段文字段文字(如如“復(fù)選框應(yīng)用示例復(fù)選框應(yīng)用示例”)，然后按需要單擊各復(fù)選框，然后按需要單擊各復(fù)選框，則文字的字體、字型、字號(hào)及顏色隨之改變則文字的字體、字型、字號(hào)及顏色隨之改變例例4.9 用復(fù)選框來(lái)控制文字的字體、字型、字號(hào)及顏色用復(fù)選框來(lái)控制文字的字體、字型、字號(hào)及顏色例例4.9主頁(yè)主頁(yè)P(yáng)rivate Sub Check1_Click() If Check1.Value = 1 Then 判復(fù)選框判復(fù)選框1是否選中是否選中 Text1.FontName = 楷體楷體_GB2312 Else Text1.FontName = 宋體宋體 End IfEnd SubPrivate S

24、ub Check2_Click() If Check2.Value = 1 Then 判復(fù)選框判復(fù)選框2是否選中是否選中 Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then 判復(fù)選框判復(fù)選框3是否選中是否選中 Text1.FontSize = 25 Else Text1.FontSize = 9 End IfEnd Sub主頁(yè)主頁(yè) Private Sub Check4_Click() If Check4.Val

25、ue = 1 Then 判復(fù)選框判復(fù)選框4是否選中是否選中 Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub 在運(yùn)行中，可以任意設(shè)定這四個(gè)復(fù)選框的狀態(tài)，可以四在運(yùn)行中，可以任意設(shè)定這四個(gè)復(fù)選框的狀態(tài)，可以四項(xiàng)都不選，也可以選擇其中一項(xiàng)至四項(xiàng)項(xiàng)都不選，也可以選擇其中一項(xiàng)至四項(xiàng)主頁(yè)主頁(yè) 計(jì)時(shí)器計(jì)時(shí)器(Timer)每隔一定的時(shí)間間隔產(chǎn)生一次每隔一定的時(shí)間間隔產(chǎn)生一次Timer事件事件(或稱(chēng)或稱(chēng)報(bào)時(shí)報(bào)時(shí))?？梢愿鶕?jù)這個(gè)特性來(lái)定時(shí)控制某些操作，或進(jìn)行計(jì)時(shí)?？梢愿鶕?jù)這個(gè)特性來(lái)定時(shí)控制某些操

26、作，或進(jìn)行計(jì)時(shí) 運(yùn)行時(shí)運(yùn)行時(shí)計(jì)時(shí)器計(jì)時(shí)器不顯示不顯示 Enabled屬性屬性：確定計(jì)時(shí)器是否可用：確定計(jì)時(shí)器是否可用 Interval屬性屬性：設(shè)置兩個(gè)：設(shè)置兩個(gè)Timer事件之間的時(shí)間間隔，其值以事件之間的時(shí)間間隔，其值以毫秒毫秒(1ms=1/1000 s)為單位為單位 例如，如果希望每半秒鐘產(chǎn)生一個(gè)例如，如果希望每半秒鐘產(chǎn)生一個(gè)Timer事件，那么事件，那么Interval屬性值應(yīng)設(shè)置為屬性值應(yīng)設(shè)置為500，這樣每隔，這樣每隔500 ms就會(huì)觸發(fā)一次就會(huì)觸發(fā)一次Timer事件，事件，從而執(zhí)行相應(yīng)的從而執(zhí)行相應(yīng)的Timer事件過(guò)程事件過(guò)程 計(jì)時(shí)器控件只響應(yīng)一個(gè)計(jì)時(shí)器控件只響應(yīng)一個(gè)Timer事

27、件。也就是說(shuō)，計(jì)時(shí)器控件事件。也就是說(shuō)，計(jì)時(shí)器控件對(duì)象在間隔了一個(gè)對(duì)象在間隔了一個(gè)Interval設(shè)定時(shí)間后，便觸發(fā)一次設(shè)定時(shí)間后，便觸發(fā)一次Timer事件事件 4.5 4.5 計(jì)時(shí)器控件計(jì)時(shí)器控件主頁(yè)主頁(yè)例例4.104.10 建立一個(gè)電子時(shí)鐘建立一個(gè)電子時(shí)鐘 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 一個(gè)計(jì)時(shí)器控件和一個(gè)文本框。計(jì)時(shí)器控件一個(gè)計(jì)時(shí)器控件和一個(gè)文本框。計(jì)時(shí)器控件Timer1的的Interval屬性值設(shè)定為屬性值設(shè)定為1000(1秒秒) (2) (2) 編寫(xiě)程序代碼編寫(xiě)程序代碼 Private Sub Timer1_Timer() time

28、r事件過(guò)程事件過(guò)程 Text1.Text = Time Time是時(shí)間函數(shù)是時(shí)間函數(shù) End Sub例例4.10運(yùn)行界面運(yùn)行界面設(shè)計(jì)界面設(shè)計(jì)界面 計(jì)時(shí)器計(jì)時(shí)器(Timer)每隔一定的時(shí)間間隔自動(dòng)每隔一定的時(shí)間間隔自動(dòng)產(chǎn)生一次產(chǎn)生一次Timer事件和執(zhí)行事件和執(zhí)行Timer事件過(guò)程事件過(guò)程 這個(gè)時(shí)間間隔由這個(gè)時(shí)間間隔由Interval屬性設(shè)定屬性設(shè)定 利用這個(gè)特性來(lái)定時(shí)控制某些操作利用這個(gè)特性來(lái)定時(shí)控制某些操作主頁(yè)主頁(yè) 例例4.114.11 實(shí)現(xiàn)字體的放大實(shí)現(xiàn)字體的放大 利用計(jì)時(shí)器可以按指定間隔時(shí)間對(duì)字體進(jìn)行放大利用計(jì)時(shí)器可以按指定間隔時(shí)間對(duì)字體進(jìn)行放大 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬

29、性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 一個(gè)計(jì)時(shí)器控件和一個(gè)標(biāo)簽一個(gè)計(jì)時(shí)器控件和一個(gè)標(biāo)簽 。 標(biāo)簽內(nèi)顯示文字標(biāo)簽內(nèi)顯示文字“放大放大” 計(jì)時(shí)器控件計(jì)時(shí)器控件Timer1的計(jì)時(shí)器采用默認(rèn)的屬性值的計(jì)時(shí)器采用默認(rèn)的屬性值 Enabled屬性值為屬性值為T(mén)rue(真真)，Interval屬性值為屬性值為0例例4.11主頁(yè)主頁(yè) (2)編寫(xiě)程序代碼編寫(xiě)程序代碼 Private Sub Form_Load() Label1.Caption = 放大放大 Label1.Width = Form1.Width 把標(biāo)簽的高度和寬度把標(biāo)簽的高度和寬度 設(shè)置為窗體相同尺寸設(shè)置為窗體相同尺寸 Label1.Heigh

30、t = Form1.Height Timer1.Interval = 800 End Sub Private Sub Timer1_Timer() If Label1.FontSize 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = Format(m, 00) Text2.Text = Format(s, 00) If s = 0 And m = 0 Then Beep 響鈴，即讓喇叭發(fā)一聲響響鈴，即讓喇叭發(fā)一聲響 MsgBox 計(jì)時(shí)結(jié)束計(jì)時(shí)結(jié)束 End End IfEnd Sub主頁(yè)主

31、頁(yè) (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 單選按鈕組單選按鈕組Option1、Option2、Option3及及Option4分別代分別代表表+、-、*(乘乘)和和/(除除)運(yùn)算運(yùn)算 (2) 編寫(xiě)程序代碼編寫(xiě)程序代碼例例4.134.13 輸入兩個(gè)運(yùn)算數(shù)和運(yùn)算符輸入兩個(gè)運(yùn)算數(shù)和運(yùn)算符(+(+、- -、* *或或/)/)，組，組 成算式并計(jì)算結(jié)果，然后顯示出來(lái)成算式并計(jì)算結(jié)果，然后顯示出來(lái)例例4.13主頁(yè)主頁(yè)P(yáng)rivate Sub Command1_Click() “計(jì)算計(jì)算”按鈕按鈕 Dim a As Single, b As Single, t As

32、 Single, s As String a = Val(Text1.Text) b = Val(Text2.Text) Select Case True Case Option1.Value + 運(yùn)算運(yùn)算 s = + t = a + b Case Option2.Value - 運(yùn)算運(yùn)算 s = - t = a - b Case Option3.Value * 運(yùn)算運(yùn)算 s = * t = a * b Case Option4.Value / 運(yùn)算運(yùn)算 s = / t = a / b End Select Text3.Text = a & s & b & = & tEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click() EndEnd Sub Private Sub Form_Load() Option1.Value = True + 運(yùn)算運(yùn)算 End Sub主頁(yè)主頁(yè) (1)分析分析：方程的解有以下幾