vb選擇結(jié)構(gòu)程序設(shè)計-wenkub
2023-01-28 00:59:28 本頁面
【正文】 可以是多條語句 。 選擇結(jié)構(gòu)程序設(shè)計 塊 If條件語句 Select Case 語句 應(yīng)用舉例 返回 退出 塊 If語句的嵌套 ElseIf條件語句 If語句（ If...Then語句） 塊 If語句是用來判斷條件成立與否 ， 然后決定下一步怎么執(zhí)行的一種控制語句 ， 這種選擇結(jié)構(gòu)是最常用的雙選擇結(jié)構(gòu) ， 即只有兩種操作可以選擇 。 如果條件為真 ， 執(zhí)行其中一個操作；如果條件為假 ， 則執(zhí)行另外一個操作 。 單行結(jié)構(gòu) If語句的執(zhí)行過程是這樣的：首先計算 條件表達式 的值 ， 如果結(jié)果為 True， 則執(zhí)行 語句塊 1， 否則 ， 執(zhí)行 語句塊2。根據(jù) x的正負確定顯示結(jié)果 End Sub 使用該語句時 ， 應(yīng)該注意以下問題： （ 1） 整個塊結(jié)構(gòu)必須以 If開始 ， 以 End If結(jié)束 。 當(dāng)條件成立時 ， 根據(jù) 語句塊 完成的一定的操作；而當(dāng)條件不成立時不做任何處理 ， 直接執(zhí)行下條語句 。 返回 在實際應(yīng)用中，經(jīng)常會遇到 “ 多分支 ” 選擇的程序，即從多種情況中選擇執(zhí)行其中一種情況，這時，就要使用塊 if語句的嵌套。 在書寫時 ， 可以將同一層的 If子句和 Else子句左對齊 ， 內(nèi)層的各語句塊相對于外層向右縮進若干空格 ， 以使程序結(jié)構(gòu)更加清楚 ， 便于閱讀和查錯 。 （ 5） 利用塊 If語句的嵌套可以解決 “ 多分支 ” 選擇的問題 。 Private Sub Command1_Click() x = Val() y = Val() 39。 方程的根有以下三種情況： 當(dāng) b^24ac0時 ， 方程有兩個不相等的實根； 當(dāng) b^24ac=0時 ， 方程有兩個相等的實根； 當(dāng) b^24ac0時 ， 方程有兩個復(fù)根 。判斷 a是否為 0， 如果為 0， 則退出過程 If a = 0 Then MsgBox a不能為 0: Exit Sub b = Val() c = Val() dert = b * b 4 * a * c p = b / (2 * a) If dert = 0 Then If dert 0 Then r = Sqr(dert) / (2 * a) x1 = p + r x2 = p r Else x1 = p x2 = p End If = x1= amp。 x2 Else r = Sqr(dert) / (2 * a) = x1= amp。 i amp。 amp。 ElseIf子句的功能：依次判斷條件 ， 如某一條件成立 ，則執(zhí)行其下面的語句塊；如果所有條件均不成立 ， 則執(zhí)行 Else后面的語句 。 因此 ， 在使用 ElseIf語句時 ， 要特別注意各判斷條件的前后次序 。程序代碼如下： Private Sub Command1_Click() Dim score As Single score = Val() If score 60 Then Print 不及格 ElseIf score = 60 And score = 70 Then Print 一般 ElseIf score 70 And score = 80 Then Print 中等 ElseIf score 80 And score = 90 Then Print 良好 ElseIf score 90 And score = 100 Then Print 優(yōu)秀 Else Print 成績有問題 End If End Sub 因為只有在前一個條件不成立的情況下 ， 才有可能繼續(xù)判斷下一個條件是否成立 ， 所以 ， 上例中的條件部分也可以進一步簡化 ， 改成如下形式： If score 60 Then Print 不及格 ElseIf score = 70 Then Print 一般 ElseIf score = 80 Then Print 中等 ElseIf score = 90 Then Print 良好 Elseif score = 100 Then Print 優(yōu)秀 Else Print 成績有問題 End If 【 例 】 設(shè)計一個口令檢測程序 ， 當(dāng)用戶輸入的口令正確時 ，顯示 “ 你已成功進入本系統(tǒng) ” ， 否則 ， 顯示 “ 口令錯 ！ 請重新輸入 ” ?；剀囨I的代碼為 13，所以程序首先判斷用戶是否在 Text1中按下了回車鍵，若 KeyCode＝ 13，表示口令輸入完。 （ 2） “ 表達式列表 ” 與 “ 測試表達式 ” 的類型必需相同 。 Select Case語句的執(zhí)行過程是：先求 “ 測試表達式 ”的值 ， 然后順序測試該值符合哪一個 Case子句中情況 ，如果找到了 ， 則執(zhí)行該 Case子句下面的語句塊 ， 然后執(zhí)行 End Select后面的語句；如果沒找到 ， 則執(zhí)行 Case Else后面的語句塊 ， 然后執(zhí)行 End Selec
電大資料相關(guān)推薦
鄂ICP備17016276號-1