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