1、visual basic 控制結(jié)構(gòu),選擇結(jié)構(gòu)程序設(shè)計(jì),龍 亢 農(nóng) 場(chǎng) 中 學(xué) 陳 瓊,Private Sub form_Click() Dim x As Single被除數(shù) Dim y As Single除數(shù) Dim q As Single商 x = Val(InputBox(請(qǐng)輸入被除數(shù):) y = Val(InputBox(請(qǐng)輸入除數(shù):) q = x / y Print q End Sub,y=0會(huì)怎樣?,分析：當(dāng)除數(shù)為0時(shí)，程序提示出錯(cuò)！,我們?cè)趺茨鼙苊饽兀?If y 0 Then q = x / y Print q Else Print 不能求值 End If,visual basic

2、的選擇結(jié)構(gòu)通過(guò)條件語(yǔ)句來(lái)實(shí)現(xiàn)。條件語(yǔ)句也稱IF語(yǔ)句，它有兩種格式： 1、單行結(jié)構(gòu) 2、塊結(jié)構(gòu),如果 y 不等于0 則 計(jì)算 x/y 否則 顯示 不能求值,我們?cè)谇笾登皯?yīng)該對(duì)Y進(jìn)行判斷：,在VB中，這樣的問(wèn)題可以通過(guò)選擇結(jié)構(gòu)程序來(lái)解決，可以用下面的語(yǔ)句來(lái)處理：,小結(jié)： 單行結(jié)構(gòu)與塊結(jié)構(gòu)條件語(yǔ)句的主要區(qū)別，就是看then后面的語(yǔ)句（注釋語(yǔ)句除外）是否和then在同一行上。如果在同一行上則為單行結(jié)構(gòu)，否則為塊結(jié)構(gòu)。對(duì)于塊結(jié)構(gòu)，必須以End f 結(jié)束，單行結(jié)構(gòu)沒(méi)有End f。,拓展 中秋節(jié)前夕，商店月餅促銷，購(gòu)滿3盒（含）即可享受八折優(yōu)惠。根據(jù)輸入的購(gòu)買盒數(shù)，計(jì)算出應(yīng)付金額。 Private Sub

3、form_Click() Dim qty As Integer 購(gòu)買盒數(shù) Dim price As Single Dim sum As Single應(yīng)付金額 price = 80 qty = Val(InputBox(購(gòu)買盒數(shù):) 如果購(gòu)買盒數(shù)低于3盒，不打折 購(gòu)滿3盒（含）享受八折優(yōu)惠 _ Print 應(yīng)付金額:; sum; 元 End Sub,IF 條件 then 部分 【else 部分】,選擇結(jié)構(gòu),塊,單行,IF 條件1 Then 語(yǔ)句塊1 【else IF 條件 2 Then 語(yǔ)句塊2】 【else IF 條件 2 Then 語(yǔ)句塊2】 . 【else 語(yǔ)句塊n】 End IF,思維導(dǎo)

4、圖，復(fù)習(xí)鞏固,單行結(jié)構(gòu)條件語(yǔ)句： 格式：IF 條件 then 部分 【else 部分】 該語(yǔ)句的功能是：如果“條件”為TRUE，則執(zhí)行“then部分”，否則執(zhí)行“else部分”。,邏輯表達(dá)式，邏輯表達(dá)式的值（true或false),“else部分”是可選的,例： 輸入兩個(gè)數(shù)x和y，比較他們的大小，并輸出最大值 Private Sub form_Click() Dim x As Single,y As Single x = Val(InputBox(輸入x的值:) y = Val(InputBox(輸入y的值:) If_Then print y else print x End Sub,Priv

5、ate Sub form_Click() Dim x As Single,y As Single x = Val(InputBox(輸入x的值:) y = Val(InputBox(輸入y的值:) If_Then print y Print x End Sub,xy,xy,返回,塊結(jié)構(gòu)條件語(yǔ)句: 格式：IF 條件1 Then 語(yǔ)句塊1 【else IF 條件 2 Then 語(yǔ)句塊2】 【else IF 條件 3 Then 語(yǔ)句塊3】 . 【else 語(yǔ)句塊n】 End IF,如果“條件1”成立，執(zhí)行”語(yǔ)句塊1“,否則,如果“條件2”成立，執(zhí)行“語(yǔ)句塊2”否則,。,否則執(zhí)行”語(yǔ)句塊n“,Priv

6、ate Sub from_Click() Dim x As Single,y As Single x = Val(InputBox(輸入x的值:) If x0 then print “y=1” Else if x=0 then Print “y=0” Else Print”y=-1” End if End sub,要求：輸入X，要求輸出y的值,設(shè)有如下函數(shù)：,當(dāng)嵌套多的時(shí)候，應(yīng)注意嵌套的正確性。一般原則是：每一個(gè)“else部分”都與它前面的、且未被配對(duì)的IF-then”配對(duì),”語(yǔ)句塊“可以是一個(gè)語(yǔ)句，也可以是多個(gè)語(yǔ)句，如果是多個(gè)語(yǔ)句時(shí)，可以分別寫在多行里，如果寫在一行中，則各語(yǔ)句之間用冒號(hào)隔開。,If xy Then t = x x = y y = t Print x的值為