【文章內(nèi)容簡(jiǎn)介】
isual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 16 If語(yǔ)句 ——If結(jié)構(gòu) If 表達(dá)式 Then 語(yǔ)句塊 End If 說(shuō)明: If結(jié)構(gòu)用于處理觸發(fā)型情況,一旦觸發(fā)某個(gè)條件,則會(huì)引發(fā)后續(xù)的動(dòng)作。 是 否 表達(dá)式為真 語(yǔ)句塊 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 17 例 按升序輸出兩個(gè)整數(shù)。 Private Sub Command2_Click() Dim a%, b%, t% a=Val(InputBox(請(qǐng)輸入第 1個(gè)整數(shù) )) b=Val(InputBox(請(qǐng)輸入第 2個(gè)整數(shù) )) If ab Then t=a a=b b=t End If Print a。b End Sub 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 18 If語(yǔ)句 ——ElseIf結(jié)構(gòu) If 表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2 Then 語(yǔ)句塊 2 … ElseIf 表達(dá)式 n Then 語(yǔ)句塊 n Else 語(yǔ)句塊 n+1 End If 是 語(yǔ)句塊 n+1 是 否 表達(dá)式 1為真 語(yǔ)句塊 1 否 表達(dá)式 n為真 語(yǔ)句塊 n 是 否 表達(dá)式 2為真 語(yǔ)句塊 2 …… 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 19 說(shuō)明: ? 判斷某個(gè)條件時(shí)存在一個(gè)前提,即前面的所有條件都不成立。 ? 盡管 ElseIf結(jié)構(gòu)有多個(gè)分支,但是仍然只有一個(gè)分支的語(yǔ)句塊會(huì)被執(zhí)行。這種結(jié)構(gòu)特別適合處理有多個(gè)互相排斥的條件存在的情況,例如計(jì)算分段函數(shù)的值。 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 20 例 計(jì)算分段函數(shù)的值 Private Sub Command3_Click() Dim x As Single, y! x=Val(InputBox(請(qǐng)輸入 x的值 )) If x2 Then 39。判斷 x是否小于 2 y=2*x+1 ElseIf x8 Then 39。判斷 x是否在 2和 8之間 y=x3 Else 39。前面兩個(gè)條件都不滿(mǎn)足 y=3*x1 End If Print y=。y End Sub 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 21 If語(yǔ)句 ——If語(yǔ)句的嵌套 If 表達(dá)式 1 Then If 表達(dá)式 1_1 Then 語(yǔ)句塊 1_1 Else 語(yǔ)句塊 1_2 End If Else If 表達(dá)式 2_1 Then 語(yǔ)句塊 2_1 Else 語(yǔ)句塊 2_2 End If End If 是 否 是 否 是 表達(dá)式 1_1為真 語(yǔ)句塊 1_1 語(yǔ)句塊 1_2 語(yǔ)句塊 2_1 表達(dá)式 2_1為真 語(yǔ)句塊 2_2 否 表達(dá)式 1為真 2021/11/11 《 Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程 》 22 例 用 If語(yǔ)句的嵌套實(shí)現(xiàn) 例 。 Private Sub Command4_Click() Dim x As Si