1、,選擇結(jié)構(gòu),If語(yǔ)句英譯漢： If the weather is good tomorrow ，then I go to the park. Ifthen(如果那么) If the weather is good tomorrow ,then I go to the park，else I have to stay at home. Ifthenelse (如果那么否則),VB中的選擇語(yǔ)句 if語(yǔ)句,用來(lái)解決有關(guān)選擇結(jié)構(gòu)的問(wèn)題！,選擇結(jié)構(gòu)和選擇語(yǔ)句,If 條件 then 語(yǔ)句塊End if,If 和 end if 要成對(duì)出現(xiàn),選擇結(jié)構(gòu)和選擇語(yǔ)句,If 條件 then 語(yǔ)句A Else 語(yǔ)句B

2、End if,If 和 end if 要成對(duì)出現(xiàn),If/then/else語(yǔ)句包含兩個(gè)分支: 當(dāng)條件成立時(shí)，執(zhí)行then分支后面的語(yǔ)句塊1； 當(dāng)條件不成立時(shí)，執(zhí)行else分支后面的語(yǔ)句塊2. 使用if/then/else語(yǔ)句，可以根據(jù)條件的成立和不成立指定不同的操作。,選擇結(jié)構(gòu)和選擇語(yǔ)句-雙分支語(yǔ)句,If then Else End if,text1.text=”123456”,t1 = MsgBox(恭喜你，密碼輸入正確！, vbOKOnly + vbExclamation, 系統(tǒng)提示),t1 = MsgBox(密碼輸入不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamatio

3、n, 系統(tǒng)提示),選擇結(jié)構(gòu)和選擇語(yǔ)句-雙分支語(yǔ)句,If then Else End if,text1.text=”123456”,t1 = MsgBox( , , ),t1 = MsgBox(密碼輸入不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 系統(tǒng)提示),消息框顯示的內(nèi)容,消息框圖示按鈕樣式,消息框標(biāo)題,恭喜你，密碼輸入正確！,vbOKOnly + vbExclamation,系統(tǒng)提示,選擇結(jié)構(gòu)和選擇語(yǔ)句-雙分支語(yǔ)句,Text1.Text = Text1.SetFocus,SetFocus屬性，使Text1獲得焦點(diǎn),選擇結(jié)構(gòu)和選擇語(yǔ)句-多分支語(yǔ)句,選擇結(jié)構(gòu)和選

4、擇語(yǔ)句-多分支語(yǔ)句,用嵌套if語(yǔ)句實(shí)現(xiàn)多分支結(jié)構(gòu)，它的應(yīng)用原理就是在if語(yǔ)句內(nèi)部嵌套if語(yǔ)句?；靖袷綖椋?If 條件 then 最外層if語(yǔ)句 if 條件2 then 內(nèi)層if語(yǔ)句1 語(yǔ)句1 else 語(yǔ)句2 end if Else 最外層if語(yǔ)句 if 條件3 then 內(nèi)層if語(yǔ)句2 語(yǔ)句3 else 語(yǔ)句4 end if End if 上面是一個(gè)外層if語(yǔ)句內(nèi)，嵌套了兩個(gè)內(nèi)層if語(yǔ)句，其中藍(lán)色的if語(yǔ)句出現(xiàn)在外層if語(yǔ)句的條件if部分，表示當(dāng)條件1滿足時(shí)，才執(zhí)行藍(lán)色if語(yǔ)句，同理。當(dāng)條件1不滿足時(shí)，才執(zhí)行綠色if語(yǔ)句。其實(shí)內(nèi)層if語(yǔ)句不是必須的，如果內(nèi)層沒(méi)有if嵌套，那只是一個(gè)普通的i

5、f語(yǔ)句。,當(dāng)條件1滿足，條件2也滿足時(shí)，就會(huì)執(zhí)行語(yǔ)句1 當(dāng)條件1滿足，條件2不滿足時(shí)，就會(huì)執(zhí)行語(yǔ)句2 當(dāng)條件1不滿足，條件3滿足時(shí)，就會(huì)執(zhí)行語(yǔ)句3 當(dāng)條件1不滿足，條件3也不滿足時(shí)，就會(huì)執(zhí)行語(yǔ)句4,選擇結(jié)構(gòu)和選擇語(yǔ)句-多分支語(yǔ)句,If Text1.Text = Or Text2.Text = Then t1 = MsgBox(用戶名或者密碼不能為空, vbOKOnly + vbExclamation, 系統(tǒng)提示) Else If Text1.Text = 123456 And Text2.Text = 張三 Then t1 = MsgBox(恭喜你,登錄成功！, vbOKOnly + vbExclamation, 系統(tǒng)提示) Else If Text1.Text 123456 And Text2.Text = 張三 Then t1 = MsgBox(密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 系統(tǒng)提示) Else If Text1.Text = 123456 And Text2.Text 張三 Then t1 = MsgBox(用戶名不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 系統(tǒng)提示) Else If Text1.Text 123456 And Text2.Text 張三 Then t1 =