【正文】 一 設(shè)計(jì)用戶(hù)界面 操作步驟三 編寫(xiě)代碼 ? 交換兩個(gè)圖像框的 Picture屬性值的代碼： Private Sub tmrexchange_Timer() = = = End Sub 操作步驟三 編寫(xiě)代碼 ? ―Stop‖按鈕代碼 Private Sub Cmdstop_Click() = False End Sub ? ―Start‖按鈕代碼 Private Sub Cmdstart_Click() = True End Sub 案例 ——電子備忘錄 操作步驟一 設(shè)計(jì)用戶(hù)界面 操作步驟三 ——編寫(xiě)代碼 ? ―星期一 ? 保存代碼： Private Sub Imgb1_Click() b1 = answer = MsgBox(星期一備忘錄已保存, 0 + 64 + 0, 備忘錄 ) End Sub 操作步驟三 ——編寫(xiě)代碼 ? 查看 ? 星期一 ? 備忘錄代碼： Private Sub txtmon_Click() = b1 answer = MsgBox(單擊左邊按鈕保存修改 , 0 + 64 + 64, 備忘錄 ) End Sub 操作步驟三 ——編寫(xiě)代碼 ? 時(shí)鐘與動(dòng)畫(huà)代碼 Private Sub Timer1_Timer() = Time() – 100 If = 0 Then = 5880 39。設(shè)置圖像框的左邊距為初始邊距（ 5880為此圖像框的 End If End Sub 操作步驟三 ——編寫(xiě)代碼 Dim key As String 39。定義字符型變量 key Const password = memo123 39。定義字符型常量 password值為密碼 memo123 key = InputBox(請(qǐng)輸入密碼： , 備忘錄 ) If key = password Then = True 39。設(shè)置文本響應(yīng)事件（單擊事件），初始屬性設(shè)置為不響應(yīng)事件 …… = True = True ?設(shè)置圖像響應(yīng)事件（單擊事件），初始屬性設(shè)置為不響應(yīng)事件 …… 第 3 章 選擇結(jié)構(gòu)程序設(shè)計(jì) 本章內(nèi)容 ? 基本概念及語(yǔ)法 –邏輯運(yùn)算符與表達(dá)式 – If語(yǔ)句 –情況語(yǔ)句 Select Case –條件函數(shù) ? 控件 –復(fù)選框（ CheckBox） –單選按鈕（ OptionButton） –框架（ Frame） 選擇結(jié)構(gòu) 表 達(dá) 式 1表 達(dá) 式 2表 達(dá) 式 n語(yǔ) 句 塊 1 語(yǔ) 句 塊 2 語(yǔ) 句 塊 n 語(yǔ) 句 塊 n + 1? ?FFFTTT表 達(dá) 式語(yǔ) 句 塊FT表 達(dá) 式語(yǔ) 句 塊 1 語(yǔ) 句 塊 2TFNot：當(dāng)操作數(shù)為 True時(shí)，結(jié)果為 False， 當(dāng)操作數(shù)為 False時(shí)，結(jié)果為 True And: 兩操作數(shù)同時(shí)為 True時(shí)，結(jié)果為 True，否則為 False。 Or： 兩操作數(shù)同時(shí)為 False時(shí)，結(jié)果為 False，否則為 True。 邏輯運(yùn)算符 ? 邏輯運(yùn)算符 Not（取反，優(yōu)先級(jí) 1）、 And（與，優(yōu)先級(jí) 2）、Or（或，優(yōu)先級(jí) 3） 、 Xor（異或，優(yōu)先級(jí) 3） ? 邏輯表達(dá)式 ? 邏輯表達(dá)式的值 優(yōu)先級(jí)： 當(dāng)一個(gè)表達(dá)式中出現(xiàn)了多種不同類(lèi)型的運(yùn)算符時(shí)， 不同類(lèi)型的運(yùn)算符的優(yōu)先級(jí)如下： 算術(shù)運(yùn)算符 關(guān)系運(yùn)算符 邏輯運(yùn)算符。 If語(yǔ)句的一般格式 ——單分支結(jié)構(gòu) ? 單分支結(jié)構(gòu) If語(yǔ)句 ? 語(yǔ)句形式： – If 表達(dá)式 Then 語(yǔ)句 – If表達(dá)式 Then 語(yǔ)句塊 End If ? 語(yǔ)句功能 ： –當(dāng) ? 表達(dá)式 ? 的值為真時(shí)執(zhí)行語(yǔ)句（或語(yǔ)句塊），否則執(zhí)行后繼操作。 為關(guān)系表達(dá)式、邏輯表達(dá)式或算術(shù)表達(dá)式。若為算術(shù)表達(dá)式，其值是非零為真，零為假 一條語(yǔ)句或多條，且為多條時(shí)語(yǔ)句間用冒號(hào)分隔，并必須寫(xiě)在一行上 一條或多條語(yǔ)句?！?Then”不能與其后的語(yǔ)句寫(xiě)在同一行上，否則必須加上分隔符 If語(yǔ)句的一般格式 ——單分支結(jié)構(gòu) ? 【 實(shí)例 】 制作簡(jiǎn)單的邏輯運(yùn)算符與表達(dá)式示例器，其功能是輸入邏輯表達(dá)式，輸出運(yùn)算結(jié)果及其說(shuō)明。 操作步驟一 設(shè)計(jì)用戶(hù)界面 操作步驟二 編寫(xiě)代碼 Private Sub cmdequal_Click() Dim b1 As Boolean, b2 As Boolean, b3 As Boolean If txtoperand1 Then b1 = CBool(txtoperand1) b2 = CBool(txtoperand2) If txtoperator = Not Or txtoperator = not Then b3 = Not b2 = 單目運(yùn)算，當(dāng)操作數(shù)為假時(shí)，結(jié)果為真，反之為假。 End If If語(yǔ)句的一般格式 ——雙分支結(jié)構(gòu) ? 雙分支結(jié)構(gòu) If… Then… Else語(yǔ)句 ? 語(yǔ)句形式： 1. If 表達(dá)式 Then 語(yǔ)句 1 Else 語(yǔ)句 2 2. If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If ? 語(yǔ)句功能： – 當(dāng)表達(dá)式的值為真時(shí)，執(zhí)行 Then 后的 ? 語(yǔ)句塊 1‖（或 ? 語(yǔ)句 1‖），否則執(zhí)行 Else后面的 ? 語(yǔ)句塊 2‖（或 ? 語(yǔ)句 2‖） If語(yǔ)句的一般格式 ——雙分支結(jié)構(gòu) ? 【 實(shí)例 】 在窗體所示的第一個(gè)文本框（ txtin）中輸入字符串，當(dāng)輸入字符句號(hào) ? .‖時(shí)表示輸入結(jié)束，第二個(gè)文本框（ txtcount）動(dòng)態(tài)統(tǒng)計(jì)字符串中字符的個(gè)數(shù)（不可以用求字符串長(zhǎng)度的函數(shù)）。 操作步驟一 設(shè)計(jì)用戶(hù)界面 操作步驟二 編寫(xiě)代碼 Dim n As Integer 39。窗體級(jí)變量 Private Sub txtin_Change() If Right$(, 1) . Then n = n + 1 = n Else = False End If End Sub If語(yǔ)句的一般格式 ——多分支結(jié)構(gòu) ? 語(yǔ)句形式： If表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2 語(yǔ)句塊 2 …… [Else 語(yǔ)句塊 n+1 ] End If ? 語(yǔ)句功能： 表達(dá)式 i為真時(shí)，執(zhí)行 語(yǔ)句塊 i If語(yǔ)句的一般格式 ——多分支結(jié)構(gòu) 表 達(dá) 式 1表 達(dá) 式 2表 達(dá) 式 n語(yǔ) 句 塊 1 語(yǔ) 句 塊 2 語(yǔ) 句 塊 n 語(yǔ) 句 塊 n + 1? ?FFFTTTIf語(yǔ)句的一般格式 ——多分支結(jié)構(gòu) ? 【 實(shí)例 】 建立如圖 37所示的窗體界面。在窗體左邊的文本框（ txtinput）中輸入字符串，字符串以 ? *? 為結(jié)束標(biāo)志；右邊的三個(gè)文本框 (txtletter、 txtdigital、txtother)中分別顯示字母字符、數(shù)字字符和其他符號(hào)字符的個(gè)數(shù)。 操作步驟一 設(shè)計(jì)用戶(hù)界面 操作步驟二 編寫(xiě)代碼 Dim n1 As Integer, n2 As Integer, n3 As Integer 39。窗體級(jí)變量 Private Sub txtinput_Change() Dim s As String s = Right$(, 1) If s ―* Then 操作步驟二 編寫(xiě)代碼 If UCase(s) = A And UCase(s) = Z Then n1 = n1 + 1 = n1 ElseIf s = 0 And s = 9 Then n2 = n2 + 1 = n2 Else n3 = n3 + 1 = n3 End If 操作步驟二 編寫(xiě)代碼 Else = False 39。文本框不響應(yīng)事件 End If End Sub If語(yǔ)句的一般格式 ——If語(yǔ)句的嵌套 ? 語(yǔ)句形式： If表達(dá)式 1 Then …… If表達(dá)式 11 Then …… End If …… Else …… End If If語(yǔ)句的一般格式 ——If語(yǔ)句的嵌套 例 : 寫(xiě)出輸出結(jié)果 。 a=1: b=3: c=5:d=4 if ab then if cd then x=1 else if ac then if bd then x=2 else x=3 else x=6 else x=7 print x 情況語(yǔ)句 Select Case ? 語(yǔ)句形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語(yǔ)句塊 1 Case表達(dá)式列表 2 語(yǔ)句塊 2 …… [Case Else 語(yǔ)句塊 n+1] End Select 情況語(yǔ)句 Select Case ? 語(yǔ)句功能： –根據(jù) Select Case 變量或表達(dá)式中的結(jié)果與各 Case子句中的值比較決定執(zhí)行哪一組語(yǔ)句塊。如果 有多個(gè) Case短語(yǔ)中的值與 Select Case 變量或表達(dá)式中的結(jié)果匹配，則執(zhí)行第一個(gè)與之匹配的語(yǔ)句塊 。 其流程圖見(jiàn)圖 . 情況語(yǔ)句 Select Case 表達(dá)式列表 1表達(dá)式列表 2表達(dá)式列表 n語(yǔ)句塊 n + 1語(yǔ)句塊 1語(yǔ)句塊 2語(yǔ)句塊 n?TTTFFF??情況語(yǔ)句 Select Case ? 語(yǔ)句說(shuō)明： – ? 變量或表達(dá)式 ? 可以是數(shù)值型數(shù)據(jù)或字符串表達(dá)式。 – ? 表達(dá)式列表 ? 與 ? 變量或表達(dá)式 ? 的類(lèi)型必須相同。 – ? 表達(dá)式列表 ? 可以是下面四種形式之一： ? 表達(dá)式 ? 一組用逗號(hào)分隔的枚舉表達(dá)式（如 Case 1， 2， 4， 6） ? 表達(dá)式 1 To 表達(dá)式 2（如 Case 1 to 5） ? Is 關(guān)系表達(dá)式（如 Case Is 6） –其中，前一種形式與某個(gè)值比較，后三種形式與設(shè)定的范圍比較。 條件函數(shù) ? IIf函數(shù) – IIf (條件，表達(dá)式 1，表達(dá)式 2) – 當(dāng)條件為真時(shí)，函數(shù)的返回值為 ? 表達(dá)式 1‖，反之為 ? 表達(dá)式 2‖ – 例如 : grade=IIf（ score=60,‖及格 ? ,‖不及格 ? ） If score=60 then grade=‖及格 ? Else grade=‖ 不及格 ? End if 條件函數(shù) ? Choose函數(shù) – Choose（數(shù)值類(lèi)型變量 ,數(shù)值表達(dá)式 1,數(shù)值表達(dá)式 2,… 數(shù)值表達(dá)式 I,… ） –數(shù)值類(lèi)型變量的值為 i時(shí)函數(shù)的返回值為 ? 數(shù)值表達(dá)式 i‖的值 條件函數(shù) ? 例： color1=choose(numc,‖紅 ? ,‖黃 ? ,‖藍(lán) ? ,‖綠 ? ) Select case numc Case 1 Color1=‖紅 ? Case 2 Color1=‖黃 ? Case 3 Color1=‖藍(lán) ? Case 4 Color1=‖綠 ? End select 1~4 控件 ? 復(fù)選框（ CheckBox） ? 單選按鈕（ OptionButton） ? 框架（ Frame） 控件 ——復(fù)選框 ? 復(fù)選框主要屬性 – Caption屬性 – Value屬性 0（ VbUnchecked）：未選定，默認(rèn)值。 1（ VbChecked）：被選定。 2（ VbGrayed）：灰色，復(fù)選框顯示選中標(biāo)記，但不允許修改。 ? 復(fù)選框常用事件是 Click（單擊） 控件 ——單選按鈕 ? 單選按鈕的常用屬性： 1. Caption屬性，單選按鈕的標(biāo)題。 2. Value屬性，單項(xiàng)按鈕的狀態(tài)。 – True表示選中 – False表示未選中。 ? 單選按鈕常用事件是 Click（單擊