第5章選擇結(jié)構(gòu)設(shè)計(jì)

1、第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 第第5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.1 選擇結(jié)構(gòu)的概念選擇結(jié)構(gòu)的概念 5.2 條件表達(dá)式條件表達(dá)式 5.3 If語(yǔ)句語(yǔ)句 5.4 多分支條件選擇語(yǔ)句多分支條件選擇語(yǔ)句Select Case 5.5 計(jì)時(shí)器控件計(jì)時(shí)器控件 5.6 選擇性控件選擇性控件 習(xí)題五習(xí)題五 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.1 選擇結(jié)構(gòu)的概念選擇結(jié)構(gòu)的概念 在日常生活和工作中，經(jīng)常需要根據(jù)給定的條件進(jìn)行分析、比較和判斷，以采取相應(yīng)的不同操作。 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 選擇結(jié)構(gòu)是計(jì)算機(jī)科學(xué)用來(lái)描述自然界和社會(huì)生活中分支現(xiàn)象的重要手段。其特點(diǎn)是：根

2、據(jù)所給定的條件為真(即條件成立)與否，而決定從各實(shí)際可能的不同分支中執(zhí)行某一分支的相應(yīng)操作，并且任何情況下總有“無(wú)論分支多寡，必?fù)衿湟?；縱然分支眾多，僅選其一”的特性。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.2 條條 件件 表表 達(dá)達(dá) 式式 5.2.1 關(guān)系運(yùn)算符與關(guān)系表達(dá)式 1. 關(guān)系運(yùn)算符 關(guān)系運(yùn)算符的作用是對(duì)兩個(gè)表達(dá)式的值進(jìn)行比較，若關(guān)系成立，則返回True，否則返回False。VB提供了6種關(guān)系運(yùn)算符，如表5-1所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 表5-1 關(guān)系運(yùn)算符 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 2. 關(guān)系表達(dá)式 關(guān)系表達(dá)式是指用關(guān)系運(yùn)算符將兩個(gè)表達(dá)式連

3、接起來(lái)的式子(例如2 * 3 2 + 3)，關(guān)系表達(dá)式的格式為表達(dá)式1關(guān)系運(yùn)算符表達(dá)式2關(guān)系運(yùn)算符表達(dá)式3.第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.2.2 布爾運(yùn)算符與布爾表達(dá)式 布爾表達(dá)式是指用布爾運(yùn)算符連接若干關(guān)系表達(dá)式或布爾值而組成的式子。如不等式2x3可以表示為2 = x And x 1 + 4 And Not 6 5 And Not 6 = 0 Then y = Sqr(x) Else y = -x 判斷并計(jì)算 Text2.Text = y 輸出結(jié)果 Text2.Locked = TrueEnd Sub程序運(yùn)行結(jié)果如圖5.1所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 圖5.

4、2 輸出兩數(shù)中的較大數(shù) 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-4】 已知兩個(gè)數(shù)x和y，比較它們的大小，輸出較大數(shù)。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如圖5.2所示。 (2) 編寫事件代碼。命令按鈕Command1的單擊(Click)事件代碼為第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Private Sub Command1_Click() Dim x As Single, y As Single 定義變量數(shù)據(jù)類型為單精度數(shù) x = Val(Text1.Text) y = Val(Text2.Text) If x y Then Label3.Caption

5、 = 較大數(shù)為 & Str(x)End Sub第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 或者編寫代碼為Private Sub Command1_Click() Dim x As Single, y As Single 定義變量數(shù)據(jù)類型為單精度數(shù) x = Val(Text1.Text) y = Val(Text2.Text) If x = 0 Then y = Sqr(x) Else y = -x End If Text2.Text = y Text2.Locked = True End Sub第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-6】 將例5-4中命令按鈕Command1的

6、單擊(Click)事件代碼改為多行If語(yǔ)句： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = Val(Text2.Text) If x y Then 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Label3.Caption = 較大數(shù)為 & Str(y) ElseLabel3.Caption = 較大數(shù)為 & Str(x) End IfEnd Sub第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.3.4 If語(yǔ)句的嵌套 1. If語(yǔ)句的嵌套 If語(yǔ)句的嵌套是指If或E

7、lse后面的語(yǔ)句塊中又包含If語(yǔ)句。語(yǔ)句形式如下： If條件1Then If條件2Then End If End If第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-7】 鍵盤輸入3個(gè)不同的數(shù)，將它們從大到小排序。 (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如圖5.3所示。 (2) 編寫事件代碼。命令按鈕Command1的單擊(Click)事件代碼為 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 圖5.3 從大到小排序第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Private Sub Command1_Click() Dim x As Single, y As Single, z As Sing

8、le x = Val(Text1.Text) 輸入數(shù)據(jù) y = Val(Text2.Text) z = Val(Text3.Text) If x y Then 將第1個(gè)數(shù)與第2個(gè)數(shù)進(jìn)行比較，使大數(shù)在前t = x : x = y : y = t 交換數(shù)據(jù)第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) End If If y zIf x y，此時(shí)的x、y已不再是原x、y的值 t = x : x = y : y = tEnd If End If Label4.Caption = 從大到小排序結(jié)果： & Str(x) & Str(y) & Str(z)End Sub第第5 5章章 選

9、擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-8】 某百貨公司為了促銷，采用購(gòu)物打折扣的優(yōu)惠辦法，即每位顧客一次購(gòu)物： (1) 在1000元以上2000元以下者，按九五折優(yōu)惠； (2) 在2000元以上3000元以下者，按九折優(yōu)惠； (3) 在3000元以上5000元以下者，按八五折優(yōu)惠； (4) 在5000元以上者，按八折優(yōu)惠。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如圖5.4所示。 (2) 編寫事件代碼。命令按鈕Command1的單擊(Click)事件代碼為第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 圖5.4 計(jì)算優(yōu)惠價(jià)第第5 5章章 選擇結(jié)構(gòu)

10、設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 1000 Theny = x 不打折 ElseIf x 2000 Then 九五折 y = 0.95 * xElse If x 3000 Then第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) y = 0.9 * x 九折 ElseIf x 5000 Then y = 0.85 * x 八五折Else y = 0.8 * x 八折End If 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) End IfEnd If End

11、If Text2.Text = y Text2.Locked = TrueEnd Sub程序運(yùn)行結(jié)果如圖5.4所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 2. If語(yǔ)句的嵌套格式ElseIf 如果出現(xiàn)多層If語(yǔ)句嵌套，將使程序冗長(zhǎng)，不便閱讀。為此VB提供了帶ElseIf的塊If語(yǔ)句來(lái)處理當(dāng)條件為假時(shí)又內(nèi)嵌塊If語(yǔ)句的情形，以使程序簡(jiǎn)化易寫。其語(yǔ)法結(jié)構(gòu)為第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) If條件1Then 語(yǔ)句列1ElseIf條件2Then 語(yǔ)句列2 Else 其他語(yǔ)句列End If第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-9】 在例5-8中使用帶ElseIf的塊If語(yǔ)句來(lái)計(jì)

12、算出優(yōu)惠價(jià)。將命令按鈕Command1的單擊(Click)事件代碼改為 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 1000 Then y = x 不打折 ElseIf x 2000 Then y = 0.95 * x 九五折第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) ElseIf x 3000 Theny = 0.9 * x 九折 ElseIf x 5000 Theny = 0.85 * x 八五折 Elsey = 0.8 * x 八折 End If Text2.Text

13、= y Text2.Locked = TrueEnd Sub第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-10】 編制命令按鈕代碼，要求每單擊一次命令按鈕，就會(huì)依次在窗體上顯示下面詩(shī)詞中的詩(shī)句。 靜夜思 床前明月光， 疑是地上霜。 舉頭望明月， 低頭思故鄉(xiāng)。 (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如圖5.5所示。 (2) 編寫事件代碼。命令按鈕Command1的單擊(Click)事件代碼為第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Private Sub Command1_Click() Label1.FontName = 隸書 Label1.FontSize = 14 Label1.

14、ForeColor = QBColor(4) Label1.Caption = 靜夜思 設(shè)置標(biāo)簽Label1的標(biāo)題 Command1.Caption = 顯示 設(shè)置命令按鈕的標(biāo)題屬性第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Static i As Integer 聲明靜態(tài)變量i為整型數(shù) i = i + 1 Mytext1 = 床前明月光， Mytext2 = Mytext1 + Chr(13) + 疑是地上霜。 Chr(13)表示換行 Mytext3 = Mytext2 + Chr(13) + 舉頭望明月， Mytext4 = Mytext3 + Chr(13) + 低頭思故鄉(xiāng)。If i =

15、1 ThenLabel2.Caption = Mytext1 ElseIf i = 2 Then第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Label2.Caption = Mytext2 ElseIf i = 3 ThenLabel2.Caption = Mytext3 ElseLabel2.Caption = Mytext4i = 0 End IfEnd Sub程序運(yùn)行結(jié)果如圖5.5所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 圖5.5 顯示詩(shī)句 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.4 多分支條件選擇語(yǔ)句多分支條件選擇語(yǔ)句Select Case 雖然使用嵌套的辦法可以利用If語(yǔ)句

16、實(shí)現(xiàn)多分支選擇，但是最好還是使用VB提供的多分支選擇結(jié)構(gòu)(Select Case語(yǔ)句)來(lái)實(shí)現(xiàn)。根據(jù)單一表達(dá)式來(lái)執(zhí)行多種可能的動(dòng)作時(shí)，Select Case更為簡(jiǎn)捷。多分支選擇結(jié)構(gòu)的特點(diǎn)是：從多個(gè)選擇結(jié)構(gòu)中，選擇第一個(gè)條件為真的路線作為執(zhí)行的路線。Select Case語(yǔ)句的語(yǔ)法格式為第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Select Case測(cè)試條件 Case表達(dá)式表1 語(yǔ)句列1 Case表達(dá)式表2 語(yǔ)句列2 Case Else 其他語(yǔ)句列End Select第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 【例5-11】 在例5-8中使用Select Case語(yǔ)句來(lái)計(jì)算優(yōu)惠價(jià)，只需將其中命令按鈕

17、Command1的單擊(Click)事件代碼改為 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) Select Case x Case Is 1000 y = x Case Is 2000 y = 0.95 * x 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Case Is 3000 y = 0.9 * xCase Is 0 Then Label1.Move Label1.Left - 20 當(dāng)標(biāo)簽右邊位置0時(shí)，標(biāo)簽向左移 ElseLabel1.Left = Form1.ScaleWidt

18、h 標(biāo)簽從頭開(kāi)始 End IfEnd Sub第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 依次編寫單選鈕Option1Option4的Click事件代碼：Private Sub Option1_Click() Label1.FontName = 宋體End SubPrivate Sub Option2_Click() Label1.FontName = 隸書End SubPrivate Sub Option3_Click() 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Label1.FontName = 黑體End SubPrivate Sub Option4_Click() Label1.Font

19、Name = 楷體_GB2312End Sub程序運(yùn)行結(jié)果如圖5.14所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.6.2 復(fù)選框 1. 復(fù)選框的常用屬性 復(fù)選框的常用屬性與單選鈕基本相同，如復(fù)選框的Caption屬性可以指定出現(xiàn)在復(fù)選框旁邊的文本，而Picture屬性用來(lái)指定當(dāng)復(fù)選框被設(shè)計(jì)成圖形按鈕時(shí)的圖像。 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 2. 復(fù)選框的使用 【例5-17】 用復(fù)選框控制文本輸入是否加上“下劃線”和“斜體顯示”。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面。建立3個(gè)控件：一個(gè)文本框和兩個(gè)復(fù)選框。在文本框中顯示文本，由兩個(gè)復(fù)選框決定顯示的文本是否加下劃線或用

20、斜體顯示。 (2) 設(shè)置對(duì)象屬性。3個(gè)控件的屬性設(shè)置如圖5.15所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 圖5.15 復(fù)選框應(yīng)用示例第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) (3) 編寫事件代碼。編寫的事件代碼為Private Sub Text1_Change() If Check1.Value = 1 ThenText1.FontUnderline = True ElseIf Check2.Value = 1 ThenText1.FontItalic = True End IfEnd SubPrivate Sub Check1_Click() If Check1.Value = 1 T

21、henText1.FontUnderline = True Else第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) Text1.FontUnderline = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 ThenText1.FontItalic = True ElseText1.FontItalic = False End IfEnd Sub程序運(yùn)行結(jié)果如圖5.15所示。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 習(xí)習(xí) 題題 五五 5.1 寫出下列VB表達(dá)式的值。(1) 4 * 10 = 65 (2) ABCDE

22、ABCDF(3) 456 456 & xyz (4) Not 10 * 20 256(5) 10 = 10 And 10 4 + 3 (6) 10 2 Or Not 5 20 + 5(7) 103 10 And 2 20 And 12 = 20第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.2 將下列命題用VB布爾表達(dá)式表示。(1) z比x，y都大 (2) | a | | b +2 | 或a b+2(3) p是q的倍數(shù) (4) x ( -5，-2，并且x ( 2，5(5) x，y其中有一個(gè)小于z (6) a是小于正整數(shù)b的偶數(shù)第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.3 根據(jù)下面所給

23、的條件，列出相應(yīng)的VB布爾表達(dá)式。 (1) 分房的條件為：已婚(married)，年齡(age)在26歲以上，工作年限(working_age)在5年以上。 (2) 征兵的條件是：男性(sex)年齡(age)在1820歲之間，身高(size)在1.65米以上；或者女性(sex)年齡(age)在1618歲之間，身高(size)在1.60米以上。 5.4 已知下面的分段函數(shù)，要求輸入x，計(jì)算y的值：1(0)12(0)xxyxx第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.5 為鐵路編寫計(jì)算運(yùn)費(fèi)的程序。假設(shè)鐵路托運(yùn)行李，規(guī)定每張客票托運(yùn)費(fèi)計(jì)算方法是：行李重量不超過(guò)50 kg時(shí)，每千克0.25元；超過(guò)

24、50 kg而不超過(guò)100 kg時(shí)，其超過(guò)部分每千克0.35元；超過(guò)100 kg時(shí)，其超過(guò)部分每千克0.45元。要求輸入行李重量，計(jì)算并輸出托運(yùn)的費(fèi)用。 5.6 編寫程序，任給3個(gè)實(shí)數(shù)，求其中間數(shù)(即其值大小居中者)。 5.7 編寫程序，輸入一個(gè)數(shù)字(06)，用中英文顯示星期幾。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.8 編寫程序，求一元二次方程的根。 5.9 編寫程序，任意輸入一個(gè)整數(shù)，判定該整數(shù)的奇偶性。 5.10 編寫程序，鍵盤輸入a、b、c的值，判斷它們能否構(gòu)成三角形的3個(gè)邊。如果能構(gòu)成一個(gè)三角形，則計(jì)算三角形的面積。 5.11 編寫程序，利用文本框檢查用戶口令。提示：可以利用文本

25、框的PasswordChar屬性來(lái)隱蔽用戶通過(guò)鍵盤輸入的字符。第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.12 學(xué)校對(duì)學(xué)習(xí)成績(jī)優(yōu)良的學(xué)生將進(jìn)行獎(jiǎng)勵(lì)，只要滿足如下條件之一就可獲獎(jiǎng)。獲獎(jiǎng)的條件如下： (1) 所考5門課的總分超過(guò)450分。 (2) 每門課的成績(jī)都在88分以上。 (3) 前3門(主課)的成績(jī)都在95分以上，其他兩門(非主課)的成績(jī)都在80分以上。輸入某學(xué)生5門課的成績(jī)s1、s2、s3、s4、s5，判斷他是否能夠獲獎(jiǎng)。 5.13 利用輸入框函數(shù)輸入3個(gè)不同的數(shù)，選出其中最大的數(shù)。 第第5 5章章 選擇結(jié)構(gòu)設(shè)計(jì)選擇結(jié)構(gòu)設(shè)計(jì) 5.14 為某航空公司計(jì)算票價(jià)的優(yōu)惠率。假設(shè)優(yōu)惠規(guī)定如下： (1) 在旅游的旺季5月份、78月份和10月份，如果訂票數(shù)超過(guò)20張，票價(jià)優(yōu)惠15%，20張以下，優(yōu)惠5%； (2) 在旅游的淡季13月份和12月份，如果訂票數(shù)超過(guò)20張，票價(jià)優(yōu)惠30%，20張以下，優(yōu)惠20%； (3) 其他情況一律優(yōu)惠10%。 試設(shè)計(jì)程序，根據(jù)月份和訂票張數(shù)決定票價(jià)的優(yōu)惠率。第第5