《03 多分支結(jié)構(gòu) - 數(shù)據(jù)的分支處理.pdf》由會(huì)員分享，可在線閱讀，更多相關(guān)《03 多分支結(jié)構(gòu) - 數(shù)據(jù)的分支處理.pdf（11頁珍藏版）》請(qǐng)?jiān)趨R文網(wǎng)上搜索。

1、VB.NETVB.NET程序設(shè)計(jì)程序設(shè)計(jì)數(shù)據(jù)的分支數(shù)據(jù)的分支處理處理多分支結(jié)構(gòu)多分支結(jié)構(gòu)(1)(1)2多分支結(jié)構(gòu)多分支結(jié)構(gòu)表達(dá)式1語句塊1語句塊2表達(dá)式2表達(dá)式n語句塊n語句塊n+1TFTFTF不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。elseElseifElseifThenIf3多分支結(jié)構(gòu)多分支結(jié)構(gòu)語法格式：If 表達(dá)式1Then語句塊1ElseIf 表達(dá)式2 Then語句塊2ElseIf 表達(dá)式nThen語句塊nElse語句塊n+1End If注:ElseIf 不能寫成Else If4多分支

2、結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（1 1）某商場促銷采用購物打折的優(yōu)惠辦法，即每位顧客一次購物金額：在1000元以上者（含1000元），按7折優(yōu)惠。在500元以上者（含500元），按8.5折優(yōu)惠。在200元以上者（含200元），按9.5折優(yōu)惠。低于200元，不打折。要求：（1）在文本框txtInput中輸入購物金額（2）在標(biāo)簽lblMsg中顯示打折扣的情況以及最終應(yīng)該支付的金額5多分支結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（1 1）Private Sub Button1_Click()Handles Button1.Click Step 1:定義變量Dim sglX!,sglY!,s$Step 2：獲取輸入sglX

3、=txtInput.Text Step 3：邏輯處理判斷折扣情況存儲(chǔ)在字符串s中，并計(jì)算最終費(fèi)用 如果 sglX=1000,則 打7折 如果 sglX=500,則 打8.5折 如果 sglX=200,則 打9.5折 否則，不打折 Step 4：輸出結(jié)果將打折情況及最終費(fèi)用在lblMsg中顯示End Sub6多分支結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（1 1）Private Sub Button1_Click()Handles Button1.ClickDim sglX!,sglY!,s$sglX=txtInput.Text If sglX=1000 Then sglY=sglX*0.7 :s=打7折Els

4、eIf sglX=500 ThensglY=sglX*0.85 :s=打8.5折ElseIf sglX=200 ThensglY=sglX*0.95 :s=打9.5折ElsesglY=sglX :s=不打折End IflblMsg.Text=s&,應(yīng)該支付金額為&Format(sglY,#,#.#)End Sub7多分支結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（2 2）已知變量chX中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。要求：（1）在文本框txtInput中輸入字符（2）在標(biāo)簽lblMsg中顯示輸入的字符及其類型8多分支結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（2 2）Private Sub Butt

5、on1_Click()Handles Button1.Click Step 1:定義變量Dim chX As Char,s As String Step 2：獲取輸入chX=txtInput.Text Step 3：邏輯處理判斷字符的類型，并把結(jié)果存儲(chǔ)在字符串s中 如果Z=chX=A 或者 z=chX=a ,則為 字母字符 如果 9=chX=0，則為數(shù)字字符 否則，為其他字符 Step 4：輸出結(jié)果將存儲(chǔ)結(jié)果的字符串s的內(nèi)容在lblMsg中顯示End Sub9多分支結(jié)構(gòu)舉例（多分支結(jié)構(gòu)舉例（2 2）Private Sub Button1_Click()Handles Button1.ClickDim chX As Char,s As StringchX=txtInput.TextIf （chX=“A”And chX=“a”And chX=0 And chX=A And UCase(chX)=0 And chX=9 Thens=chX&是數(shù)字字符Elses=chX&是其他字符End IflblMsg.Text=sEnd SubVB.NETVB.NET程序設(shè)計(jì)程序設(shè)計(jì)謝謝觀看！謝謝觀看！