[工學(xué)]b學(xué)習(xí)教程第四章(編輯修改稿)
2024-11-14 23:33 本頁面
【文章內(nèi)容簡介】 Else If c b Then = a 39。CB成立， C最小 = b = c Else = a 39。C處于中間 = c = b End If End If End Sub 39。退出 按鈕代碼 Private Sub Command2_Click（） End End Sub Else If語句 格式： If 條件 1 then 語句塊 1 ElseIf 條件 2 then 語句塊 2 …… [Else 語句塊 n+1] End If 功能： （ 1）依次判斷條件，如果找到一個滿足的條件，則執(zhí)行其下面的語句塊，然后跳過 End If，執(zhí)行后面的程序。 （ 2）如果所列出的條件都不滿足，則執(zhí)行 Else語句后面的語句塊；如果所列出的條件都不滿足，又沒有 Else子句，則直接跳過 End If，不執(zhí)行任何語句塊。 ElseIf結(jié)構(gòu)的執(zhí)行過程如圖 46所示。 【 例 】 輸入一個學(xué)生的一門課分?jǐn)?shù) x（ 百分制 ） ，當(dāng) x≥90時 ， 輸出 “ 優(yōu)秀 ” ；當(dāng) 80≤x＜ 90 時 ， 輸出 “ 良好 ” ；當(dāng) 70≤x＜ 80 時 ， 輸出 “ 中 ” ；當(dāng) 60≤x＜ 70 時 ，輸出 “ 及格 ” ， 當(dāng) x＜ 60 時 ， 輸出 “ 不及格 ” 。 算法分析：本例適合用多路分支結(jié)構(gòu)來解決 。 運(yùn)行界面如圖 47所示 。 程序代碼如下： 39。 鑒定 按鈕代碼 Private Sub Command1_Click（ ） Dim score! score = If score = 90 Then = 優(yōu)秀
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1