【正文】 x = 2 True False y = (1 x) * (2 x) y = (2 x) 圖 414 多分支結(jié)構(gòu)流程實(shí)例 True False y = 1 x 例 46：大學(xué)錄取新生時(shí)，根據(jù)學(xué)生總分情況給與獎(jiǎng)勵(lì)，條件如下： （ 1）四門總分不低于 700分，特等獎(jiǎng)。 根據(jù)題意，在窗體上添加一個(gè)文本控件 Text1和標(biāo)簽控件 label1，代碼應(yīng)包含在Text1_change事件中。如果它為 False， Visual Basic就測(cè)試 表達(dá)式 2，依次類推，直到找到一個(gè)為 True 的條件。這里選擇 x≥0作為條件。 End If 表達(dá)式 True False 語句 空 todayDate Now True False todayDate = Now 空 = False 圖 412 單分支條件語句 圖 413 單分支條件語句實(shí)例 2. 雙分支結(jié)構(gòu)（ If...Then...Else語句） 可以用 If...Then...Else 塊定義幾個(gè)語句塊，執(zhí)行其中一個(gè)語句。單行語法和多行塊語法都可以使用： （ 1） If 表達(dá)式 Then 語句塊 （ 2） If 表達(dá)式 Then 語句塊 End If 下面兩個(gè)例子等價(jià)： （ 1） If todayDate Now Then todayDate = Now （ 2） If todayDate Now Then todayDate = Now End If 注意： If...Then 的單行格式不用 End If 語句。 圖 46 MsgBox 對(duì)話框的應(yīng)用（ a） 例 44：在上例中，如果要求在單擊 InputBox對(duì)話框中的“確定”按鈕后，彈出一個(gè)如圖 46所示的對(duì)話框，以便用戶進(jìn)行審查并作出如下選擇： 圖 47 MsgBox 對(duì)話框的應(yīng)用 圖 48 MsgBox 對(duì)話框的應(yīng)用 修改的 Command1_click事件代碼為： Private Sub Command1_Click() Dim intMsgin As Integer Dim strmsg As String strText = 請(qǐng)輸入您的身份證號(hào)并單擊“確定” + Chr(13) + Chr(10) + 重新填寫請(qǐng)單擊“取消” strIDcard = InputBox$(strText, 身份證號(hào) , , 100, 100) strmsg = 請(qǐng)確認(rèn)您的身份證號(hào)碼： + Chr(13) + Chr(10) + strIDcard 39。 vbSystemModal 4096 系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。 默認(rèn)按鈕 vbDefaultButton1 0 第一個(gè)按鈕是缺省值。 圖標(biāo)類型 VbCritical 16 顯示 Critical Message 圖標(biāo)。 VbAbortRetryIgnore 2 顯示 Abort、 Retry 及 Ignore 按鈕。整型表達(dá)式，指定顯示按鈕的數(shù)目及形式，使用的圖標(biāo)類型，缺省按鈕的種類以及消息框的強(qiáng)制回應(yīng)等。 增添的代碼為： Private Sub Command1_Click() Dim strIDcard As String, strText As String strText = 請(qǐng)輸入您的身份證號(hào)并單擊“確定” + Chr(13) + Chr(10) + 重新填寫請(qǐng)單擊“取消” strIDcard = InputBox$(strText, 身份證號(hào) , , 100, 100) End Sub 如果單擊“確定”按鈕，則 strIDcard的值為輸入值“ 123456789”，否則為空字符串。 Command1始終在 Text3之下 該代碼使得 Command1控件始終保持在 Text3控件之下。 在窗體的合適位置增加一個(gè) Command命令按鈕，調(diào)整其大小。 （ 3）在代碼中使用 SetFocus 方法使得某一控件獲得焦點(diǎn)。 Text3的寬度為窗口寬度 = Height / 2 39。 設(shè)計(jì)步驟如下： （ 1）建立應(yīng)用程序用戶界面 單擊“文件 |新建工程”，進(jìn)入窗體設(shè)計(jì)器。 Private Sub Command1_Click() = True = True = 1 = amp。清除圖片框中的文本 End Sub 如果將代碼由 .Cls，將無法清除圖片框中的文本。 TextWidth()為求文本寬度的函數(shù)。輸出垂直位置 str1 39。圖片框中文字的字號(hào) = (ScaleWidth ) / 2 39。這兩個(gè)屬性分別表示當(dāng)前輸出位置的橫坐標(biāo)與縱坐標(biāo)。 如果 n 小于輸出行的寬度，則下一個(gè)打印位置將緊接在數(shù)個(gè)已打印的空白之后。注意這里 106當(dāng)前位置 5，故換行顯示； 2015當(dāng)前位置 4，故同行顯示 End Sub 程序執(zhí)行結(jié)果見圖 41。 4。 8, 39。格式： Tab[(n)] 當(dāng)在一個(gè) Print方法中有多個(gè) Tab函數(shù)時(shí)，每個(gè) Tab函數(shù)對(duì)應(yīng)一個(gè)輸出項(xiàng)，各輸入項(xiàng)之間用分號(hào)隔開。 順序結(jié)構(gòu) 選擇結(jié)構(gòu)程序設(shè)計(jì) 循環(huán)結(jié)構(gòu) 第 4章 基本的控制結(jié)構(gòu) 退出 綜合實(shí)例 順序結(jié)構(gòu) 數(shù)據(jù)輸出 數(shù)據(jù)輸入 返回 退出 .1 數(shù)據(jù)輸出 1 Print方法 2 與 Print方法有關(guān)的函數(shù) 3 使用位置屬性 4 清除方法 CLS 5 使用“標(biāo)簽”控件的輸出 1 Print方法 Print方法的語法格式為： {Spc(n) | Tab(n)} expression charpos 其中： object：窗體、圖片框、打印機(jī)等對(duì)象。 2. 與 Print方法有關(guān)的函數(shù) 與 Print相配合的函數(shù)： （ 1） Tab函數(shù) 與 Print 語句或 Print 方法一起使用，對(duì)輸出進(jìn)行定位。 Tab(10 2)。 Tab(10 6)。 39。 Spc函數(shù)與輸出項(xiàng)之間用分號(hào)隔開。 3. 使用位置屬性 位置屬性 CurrentX和 CurrentY常用來把文本精確地輸出到窗體、圖片框或打印頁上。圖片框中文字的字體 = 16 39。輸出水平位置 = + / 2 (str1) / 2 39。無論怎樣調(diào)整窗體，只要單擊窗體，都會(huì)按題目要求調(diào)整圖片框和文本的位置。 語法： [〈 對(duì)象名稱 〉 .]Cls 例如，為了在運(yùn)行時(shí)雙擊窗體時(shí)清除圖片框中的文本，編寫的程序?yàn)椋? Private Sub Form_DblClick() 39。加入如下代碼，運(yùn)行程序。要求在運(yùn)行時(shí)，雙擊填寫意見的文本框，可以將該文本框放大至窗口的 1/2。 （ 3）編寫代碼 雙擊 Text3文本框，打開 Text3的代碼窗口，在過程下拉列表框中選擇“ DblClick”，編寫 Text3的 DblClick事件的代碼： Private Sub Text3_DblClick() = 0 = Width 39。 （ 2）按 Tab鍵（或 Tab+Shfit組合鍵）按規(guī)定的次序在各控件之間移動(dòng)焦點(diǎn)。 （ 1）增加 Command命令按鈕。 （ 3）編寫 Command1的 Click事件的代碼 Private Sub Command1_Click() = = = End Sub 并在上例代碼的后面增加一行如下代碼： = + + 100 39。 語法格式 [變量 [%]]=MsgBox(提示 [, 按鈕 ] [, 標(biāo)題 ] [, helpfile, context]) 例 43：在上述實(shí)例中，要求單擊“發(fā)送”命令按鈕后，顯示如下對(duì)話框，提示您輸入身份證號(hào)，并將輸入內(nèi)容保存在變量strIDcard中。 按鈕 可選項(xiàng)。 VbOKCancel 1 顯示 OK 及 Cancel 按鈕。 VbRetryCancel 5 顯示 Retry 及 Cancel 按鈕。 VbInformation 64 顯示 Information Message 圖標(biāo)。 模式 vbApplicationModal 0 應(yīng)用程序強(qiáng)制返回；應(yīng)用程序一直被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。 單擊“取消”：沒有提交操作，顯示如圖 48對(duì)話框，單擊“確定”結(jié)束程序。 重新執(zhí)行 Command1_Click 事件 Case 2 MsgBox 您已經(jīng)放棄提交意見，歡迎下次參加！ , vbOKOnly + vbCritical, 放棄提交 End Select End End Sub 選擇結(jié)構(gòu)程序設(shè)計(jì) If條件語句 Select Case 條件函數(shù) 返回 退出 If條件語句 1．單分支條件結(jié)構(gòu)（ If...Then語句） 2．雙分支結(jié)構(gòu)（ If...Then...Else語句） 3．多分支結(jié)構(gòu)（ If…Then…ElseIf 語句） 4． If語句的嵌套 1．單分支條件結(jié)構(gòu)（ If...Then語句） 用 If...Then 結(jié)構(gòu)有條件地執(zhí)行一個(gè)或多個(gè)語句。 定時(shí)器控制失效。 y= 表達(dá)式 True False 語句塊 1 語句塊 2 圖 414 雙分支結(jié)構(gòu)流程 0,543 0,314si n22 22??? ???? xxx xxx