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