第5章wif選擇結(jié)構程序設計11

1、Visual Basic 程序設計第5章 選擇結(jié)構程序設計順序程序設計順序程序設計 和其它程序設計語言一樣，Visual Basic語言的語句也是用來向計算機系統(tǒng)發(fā)出操作指令的，一個語句可以產(chǎn)生若干條計算機操作指令，而一個實際的程序又包括若干條語句，每條語句都是用來完成一定的操作任務的。從前面的學習中，我們可以知道用Visual Basic語言設計的程序主體包括界面和事件過程兩部分，事件過程的設計其實就是這里的程序設計的主要部分。在日常的生活和工作中，常常不僅需要簡單的按部就班的處理流程，還需要根據(jù)條件進行分析、比較、判斷、重復等復雜的處理過程。在Visual Basic語言中，對各種實際問題

2、的解決也是通過基本結(jié)構的組合實現(xiàn)的。所以，先來了解一下程序的基本控制結(jié)構。Visual Basic 程序設計 程序控制流程及流程圖程序控制流程及流程圖程序控制流程及流程程序控制流程及流程圖圖 程序的控制流程即程序的控制結(jié)構，指控制程序執(zhí)行的流程。如果沒有任何控制程序流程的語句干涉，程序便按從左至右、由上而下的順序運行其中包含的語句，直到整個程序結(jié)束，常稱這種程序結(jié)構為順序結(jié)構。對于簡單問題，可以只用這種單向的、簡單的順序流程實現(xiàn)，但對復雜問題，會要求程序?qū)Ω鞣N不同的狀況進行不同的處理，那么這種一路到底的模式是遠遠不能滿足需要的。 流程圖是用一些框圖來描述程序的執(zhí)行過程。因為用圖形表示程序結(jié)構直

3、觀形象，并易于理解。美國國家標準化協(xié)會ANSI（American National Standard Institute）規(guī)定了一些常用的流程圖符號的畫法，如圖所示。 或輸入/出框 判斷框 處理框 流程線 連接點 Visual Basic 程序設計 三大類程序控制流程三大類程序控制流程1966年，Bohra 和Jacopini提出了以下三種最基本的程序流程結(jié)構，它們是構成一個好程序的基本單元。(1)、順序結(jié)構如圖5.4所示，是用流程圖表示的順序結(jié)構。其中s1和s2兩個框是順序執(zhí)行的，也即在執(zhí)行完s1框所指定的操作后，必然接著執(zhí)行s2框所指定的操作。順序結(jié)構是最簡單的一種基本結(jié)構。(2)、選擇結(jié)

4、構，或稱選取結(jié)構，或稱分支結(jié)構。如圖5.5所示是一個選擇結(jié)構的流程圖。此結(jié)構中必含一個判斷框。根據(jù)給定的條件c是否成立而選擇執(zhí)行s1框或s2框，然后，繼續(xù)向下進行。(3)當條件當條件P P成立時，執(zhí)行成立時，執(zhí)行A A，再判斷再判斷P P條件是否成立，若成立，再次條件是否成立，若成立，再次執(zhí)行執(zhí)行A A，如此重復直到條件如此重復直到條件P P不成立才停止循環(huán)。不成立才停止循環(huán)。先執(zhí)行先執(zhí)行A A框操作，然框操作，然后判斷條件后判斷條件P P是否成立，若不成立，再次執(zhí)行是否成立，若不成立，再次執(zhí)行A A操作；然后再對操作；然后再對P P進行進行判斷，如此反復直到給定的判斷，如此反復直到給定的P

5、P條件成立為止條件成立為止圖5.55.6所示 Visual Basic 程序設計s1s2s2cs1s2真假圖5.4順序結(jié)構 圖5.5 選擇結(jié)構c假s真cs假真 圖5.6 While型循環(huán) 圖5.7 Until循環(huán) Visual Basic 程序設計本章要點： 1、If.Then (If語句的單行格式,有稱單條件單分支語句)2、塊結(jié)構條件語句IfThenEnd If的使用3多分支條件語句ElseIf的應用 4 多分支選擇語句Select CaseEnd Selec的應用 選擇結(jié)構是一種常用的基本結(jié)構，其特點是根據(jù)所給定的選擇條件為真或假，來決定從不同操作中選擇執(zhí)行一種操作。 Visual Bas

6、ic 程序設計5.1 行與塊If條件語句5.4 Select Case 語句5.5 應用舉例返回退出5.2 塊If語句的嵌套5.3 ElseIf條件語句Visual Basic 程序設計 單行結(jié)構條件語句 單行條件語句比較簡單，其格式如下：格式：IF THEN ELSE 功能：根據(jù)“條件”的值，來判斷執(zhí)行哪個語句組。說明： 條件可以是關系表達式或邏輯表達式。 若缺省ELSE語句，即為單分支語句。該命令是單行條件語句，必須放在一行上。 可以利用嵌套解決超過兩個分支以上的情況。Visual Basic 程序設計例例1:1:如果如果X0X0輸出輸出1,1,否則輸出否則輸出-1-1。Private S

7、ub Form_Click() X = InputBox(X=, X) X = Val(X) If X 0 Then text1.text= “1” Else text1.text= “1”End SubVisual Basic 程序設計Private Sub Form_Click() Intage = InputBox(X=, intage) intager = Val(intage) If intager =60 Then Print “退休” Else Print “在職”End Sub例例2:2:Visual Basic 程序設計由鍵盤輸入三個數(shù)，輸出其中由鍵盤輸入三個數(shù)，輸出其中最大

8、的數(shù)。最大的數(shù)。分析：用A、B、C 表示這三個數(shù)。MAX表示最大的數(shù)。首先把MAX=A，然后把MAX與B比較，如果MAX B ，則MAX 與B互換。再把MAX與C比較，如果MAX C ，則MAX 與C互換。這樣三個數(shù)中MAX最大，輸出MAX即可。Private Sub Form_Click()a = InputBox(a, a)a = Val(a)b = InputBox(b, b)b = Val(b)c = InputBox(c, c)c = Val(c)Max = aIf Max b Then Max = bIf Max c Then Max = cPrint MAX=; MaxEnd S

9、ubVisual Basic 程序設計塊塊If語句（語句（If.Then語句）語句）塊If語句是用來判斷條件成立與否，然后決定下一步怎么執(zhí)行的一種控制語句，這種選擇結(jié)構是最常用的雙選擇結(jié)構，即只有兩種操作可以選擇。如果條件為真，執(zhí)行其中一個操作；如果條件為假，則執(zhí)行另外一個操作。塊結(jié)構if語句語法格式如下：If Then Else End IfVisual Basic 程序設計說明：為必選項，它可以是關系表達式、布爾表達式、數(shù)值表達式或字符串表達式，但總的說來它是一個邏輯值的表達式，其返回結(jié)果必須是True或False。對于數(shù)值表達式，VB將0作為False，非0作為True 來處理；對于字符

10、串表達式，VB只允許出現(xiàn)包含數(shù)字的字符串，當字符串中的數(shù)字值為0時，則認為是False，否則認為是True。和可以是一條語句，也可以是多條語句。Visual Basic 程序設計單行結(jié)構If語句的執(zhí)行過程是這樣的：首先計算的值，如果結(jié)果為True，則執(zhí)行，否則，執(zhí)行。T（真）F（假）條件滿足？語句塊1語句塊2End If之后的語句選擇結(jié)構流程圖Visual Basic 程序設計例例 對任意的三個數(shù)，按從小到大的順序輸出對任意的三個數(shù)，按從小到大的順序輸出 Private Sub Form_Click() a = InputBox(a, a) a = Val(a) b = InputBox(b,

11、 b) b = Val(b) c = InputBox(c, c) c = Val(c) If ab Then x=a a=b b=x End If If ac Then x=a a=c c=x End If If bc Then x=b b=c c=x End If PRINT A,B,CEnd Sub借用第三個變量借用第三個變量交換交換a、b的值的值借用第三個變量借用第三個變量交換交換a、c的值的值借用第三個變量借用第三個變量交換交換b、c的值的值解題步驟：解題步驟： 交換交換A、B的值的值 交換交換A、C的值的值 交換交換B、C的值的值Visual Basic 程序設計【例】設計界面如圖

12、所示，用文本框Text1輸入x的值，單擊按鈕時，在標簽Label1中顯示出x的絕對值。 運行界面“求絕對值”按鈕Command1的單擊事件過程如下：Private Sub Command1_Click() x = Val(Text1.Text) 將文本框中的字符內(nèi)容轉(zhuǎn)換成數(shù)值 If x 0 Then Label1.Caption = x Else Label1.Caption = -x 根據(jù)x的正負確定顯示結(jié)果 End ifEnd SubVisual Basic 程序設計使用該語句時，應該注意以下問題：（1）整個塊結(jié)構必須以If開始，以End If結(jié)束。（2）塊結(jié)構If 語句中Then后面的語

13、句不能與其寫在同一行上，否則，必須加上分隔符。（3）塊結(jié)構中的是可以省略的。省略后即簡化為以下形式： If Then End If 這種形式的If語句主要用來判斷一些操作是否執(zhí)行。當條件成立時，根據(jù)完成的一定的操作；而當條件不成立時不做任何處理，直接執(zhí)行下條語句。Visual Basic 程序設計例如，上例也可以采用下列程序段來實現(xiàn)。x = Val(Text1.Text)If x 0 Then x = -x 取負數(shù)x的相反數(shù)End If Label1.Caption = x （4）在塊結(jié)構中，If后面顯式的給出了判斷條件，Else后面雖然沒有顯式的給出一個條件，但相當于存在一個與If部分相反的

14、隱含條件。返回Visual Basic 程序設計 在實際應用中，經(jīng)常會遇到“多分支”選擇的程序，即從多種情況中選擇執(zhí)行其中一種情況，這時，就要使用塊if語句的嵌套。 塊結(jié)構If語句可以嵌套，即在上述結(jié)構中的和部分仍然可以包含另外一個塊結(jié)構If語句。如果在條件成立或不成立的情況下要繼續(xù)判斷其他條件，則可以在語句塊的位置上再使用另外一個塊結(jié)構條件語句。5.2 塊塊ifif語句的嵌套語句的嵌套If子句部分的嵌套結(jié)構Else子句部分的嵌套結(jié)構內(nèi)內(nèi)層層外層外層中層中層Visual Basic 程序設計使用嵌套語句時應注意以下問題：（1）如果存在嵌套時，語句中的每一個Else必須和一個If相對應，應避免產(chǎn)

15、生混亂。在書寫時，可以將同一層的If子句和Else子句左對齊，內(nèi)層的各語句塊相對于外層向右縮進若干空格，以使程序結(jié)構更加清楚，便于閱讀和查錯。（2）每一個塊結(jié)構都必須以If開始，以End If結(jié)束。（3）內(nèi)層嵌套的塊結(jié)構中除了滿足該層規(guī)定的條件外，還必須首先滿足外層結(jié)構中相應位置的條件。（4）VB中對塊嵌套的層數(shù)沒有限制，在嵌套的塊結(jié)構中仍然可以繼續(xù)嵌套其他的塊結(jié)構，但嵌套時外層的塊結(jié)構必須完全“包住”內(nèi)層的塊結(jié)構，不能相互“騎跨”。（5）利用塊If語句的嵌套可以解決“多分支”選擇的問題。Visual Basic 程序設計【例】建立如圖所示的界面，輸入任一點的坐標（X，Y），判斷該點位于哪個象

16、限。在平面直角坐標系中，點所在的象限有以下4種情況： X0 ，Y0 點位于第一象限內(nèi) X0， Y0 點位于第四象限內(nèi) X0 點位于第二象限內(nèi) X0， Y 0 Then If y 0 Then Print 該點位于第一象限 Else Print 該點位于第四象限 End If Else If y 0 Then Print 該點位于第二象限 Else Print 該點位于第三象限 End If End IfEnd Sub程序代碼如下：程序運行界面Visual Basic 程序設計【例】編程序求一元二次方程ax2+bx+c=0的根（a不等于零）。分析：根據(jù)數(shù)學知識，要求一元二次方程的根，必須知道方程

17、的三個系數(shù)a、b、c的值，然后根據(jù)判別式b2-4ac的值的情況判斷方程的根。方程的根有以下三種情況：當b2-4ac0時，方程有兩個不相等的實根；當b2-4ac=0時，方程有兩個相等的實根；當b2-4ac= 0 Then If dert 0 Then r = Sqr(dert) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p End If Label5.Caption = x1= & x1 & str & x2= & x2Else r = Sqr(-dert) / (2 * a) Label5.Caption = x1= & p & + &

18、r & i & str & x2= & p & - & r & iEnd IfEnd Sub返回Visual Basic 程序設計5.3 ElseIf語句語句ElseIf子句的格式：If 條件1 then 語句塊1ElseIf 條件2 then 語句塊2Else 語句塊n+1End IfVisual Basic 程序設計對ElseIf子句的格式說明：（1）可以放置任意多個ElseIf子句。（2）關鍵字ElseIf中間沒有空格，不能寫成Else If。ElseIf子句的功能：依次判斷條件，如某一條件成立，則執(zhí)行其下面的語句塊；如果所有條件均不成立，則執(zhí)行Else后面的語句。在相應語句塊執(zhí)行完后，

19、會跳過End If，執(zhí)行其后面的語句。Visual Basic 程序設計 Else If結(jié)構執(zhí)行過程Visual Basic 程序設計功能說明：（1）不管有幾個ElseIf子句，程序執(zhí)行完一個語句塊后，其余ElseIf子句不再執(zhí)行。（2）當多個ElseIf子句中的條件都成立時，只執(zhí)行第一個條件成立的子句中的語句塊。因此，在使用ElseIf語句時，要特別注意各判斷條件的前后次序。【例】輸入一個學生的成績score，根據(jù)其所在分數(shù)段給出他的考試等級。score60時，打印“不及格”；60=score=70時，打印“一般”；70score=80時，打印“中等”； 80score=90時，打印“良好”

20、；90score100時，打印“成績有問題”。 Visual Basic 程序設計該程序就是一個多分支選擇的問題，可以使用ElseIf語句實現(xiàn)。程序代碼如下：Private Sub Command1_Click() Dim score As Single score = Val(Text1.Text) If score = 60 And score 70 And score 80 And score 90 And score = 100 Then Print 優(yōu)秀 Else Print 成績有問題 End IfEnd SubVisual Basic 程序設計因為只有在前一個條件不成立的情況下，

21、才有可能繼續(xù)判斷下一個條件是否成立，所以，上例中的條件部分也可以進一步簡化，改成如下形式：If score 60 Then Print 不及格ElseIf score = 70 Then Print 一般ElseIf score = 80 Then Print 中等ElseIf score = 90 Then Print 良好Elseif score = 100 Then Print 優(yōu)秀Else Print 成績有問題End IfVisual Basic 程序設計【例】設計一個口令檢測程序，當用戶輸入的口令正確時，顯示“你已成功進入本系統(tǒng)”，否則，顯示“口令錯！請重新輸入”。如果連續(xù)三次輸入

22、了口令仍不正確，則提示“你無權使用本系統(tǒng)”。分析：假設使用一個文本框Text1來接收口令，運行時用戶輸入完口令并按回車鍵后系統(tǒng)才對輸入的口令進行檢查，因此本例使用了Text1的KeyUp事件。當焦點位于文本框內(nèi)，按下鍵盤上任一鍵后會產(chǎn)生KeyUp事件，同時返回按鍵代碼KeyCode。回車鍵的代碼為13，所以程序首先判斷用戶是否在Text1中按下了回車鍵，若KeyCode13，表示口令輸入完。 說明：在程序中是使用了一個靜態(tài)變量I，用于統(tǒng)計輸入錯誤口令的次數(shù)。靜態(tài)變量I只在第一次判斷口令時被初始化為0，以后每次執(zhí)行該過程時，如果口令錯誤，則I的值累加1，因此，當I的值為3時，表示用戶已經(jīng)連續(xù)三次

23、輸入了錯誤口令。Visual Basic 程序設計程序代碼如下：Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Static I As IntegerIf KeyCode = 13 Then If LCase(Text1.Text) = abcd Then Label2.Caption = 你已成功進入本系統(tǒng) ElseIf I 20 測試表達式 20Visual Basic 程序設計Select Case語句功能：根據(jù)“測試表達式”的值，選擇第一個符合條件的語句塊執(zhí)行。Select Case語句的執(zhí)行過程是：先求“測試表

24、達式”的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行End Select后面的語句；如果沒找到，則執(zhí)行Case Else后面的語句塊，然后執(zhí)行End Select后面的語句。Visual Basic 程序設計【例】用Select Case語句代替ElseIf語句來實現(xiàn)成績的鑒定。保持界面不變，雙擊“鑒定”按鈕，修改代碼如下：Private Sub Command1_Click() 單擊“鑒定”按鈕 Dim x! x = val(Text1.Text) Select Case x Case Is = 90 Text2.Text = 優(yōu)秀

25、 Case Is = 80 在x90不成立時，再判斷x80是否成立 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End SelectEnd SubVisual Basic 程序設計【例】某交易中介公司按交易雙方成交額收取中介費用，收費標準如下：交易額=10000 5%5000=交易額10000 3%1000=交易額5000 2%500=交易額1000 1%交易額500 免費假設交易額通過文本框Text1輸入，則“計算費用”按鈕Command

26、1的事件代碼如下：Private Sub Command1_Click() Trade=Val(Text1.Text) Select Case Trade Case Is500 Discount=0Visual Basic 程序設計 Case Is1000 Discount=0.01 Case Is5000 Discount=0.02 Case Is10000 Discount=0.03 Case Else Discount=0.05 End Select Fee = Trade * Discount Print FeeEnd Sub在解決多分支選擇情況的程序時，采用Select Case語句

27、比較方便，并且程序結(jié)構清楚，便于閱讀和修改。 Visual Basic 程序設計 IIf 函數(shù)VB中還提供了一個選擇函數(shù)IIf 函數(shù)，用來實現(xiàn)簡單的選擇結(jié)構。其功能是根據(jù)表達式的值，來返回兩部分中的一個。其語法格式為：IIf(, , )0,340, 32xxxx例如，求分段函數(shù)：y= 函數(shù)值的語句可以簡單地表示為：y=Iif(x0,2*x+3,4-3*x)返回Visual Basic 程序設計5.5 應用舉例應用舉例【例】：猜數(shù)游戲。由計算機任意設置一個1100之間的整數(shù)，然后讓用戶猜出這個數(shù)是多少。說明：為了引導用戶猜中由計算機設置的隨機數(shù)，可以在猜數(shù)的過程中給以適當?shù)奶崾?。即在每次猜完之?/p>

28、，計算機顯示相應的提示信息，用戶可以根據(jù)這些信息繼續(xù)猜，逐步接近要猜的數(shù)，直至猜中。當用戶猜的數(shù)與目標數(shù)之間相差不超過2時，提示“接近了”；相差不超過10時，提示“有些遠”；相差超過10時，提示“太遠了”。Visual Basic 程序設計Private Sub Form_Load() Cls Randomize number = Int(Rnd * 100) + 1 MsgBox 計算機設置了一個1100之間的整數(shù)， & vbCrLf & _ 請您猜出這個數(shù)是多少。 & vbCrLf & _ 如果輸入-1，則停止猜數(shù)，并輸出要猜的數(shù)。End SubPrivate Sub Text1_KeyU

29、p(KeyCode As Integer, Shift As Integer)Dim guess, diff, k As IntegerIf KeyCode = 13 Then guess = Val(Text1.Text) If guess = -1 Then MsgBox 要猜的數(shù)是 & number: Exit Sub diff = Abs(number - guess)Visual Basic 程序設計 If diff = 0 Then k = 0 ElseIf diff = 2 Then k = 1 ElseIf diff = 10 Then k = 2 Else k = 3 End

30、 If Select Case k Case 0 MsgBox 恭喜你，猜對了！ Case 1 MsgBox 接近了，再努力！ Case 2 MsgBox 有些遠，再努力！ Case 3 MsgBox 太遠了，繼續(xù)努力！ End SelectEnd IfEnd SubVisual Basic 程序設計【例】：編程計算某年某月某日是星期幾。分析：該程序大致可分為三部分：（1）輸入部分：輸入年、月、日，可通過InputBox函數(shù)來實現(xiàn)。（2）計算部分：用來完成對輸入的日期是星期幾的計算，因此它是本題的關鍵。在這一部分應解決以下幾個問題：判斷平年、閏年。凡是能被4 整除但不能被100整除的年份為閏年

31、，如1980年。凡是能被400整除的年份為閏年，如2000年。除以上兩種情況以外的其余年份都是平年。計算總天數(shù)?？偺鞌?shù)的計算公式為：總天數(shù)=平年累積值+閏年累積值+月累積值+日期計算星期幾。查閱有關資料可知，1899年12月31日是星期日，因此可把week的值定為1；week的初值加上總天數(shù)并對7取模，所得的余數(shù)即為星期幾。（3）輸出部分：把計算結(jié)果以適當?shù)母袷捷敵?。Visual Basic 程序設計程序如下 ：Private Sub Form_Click()輸入部分Dim Y, M, D, Month2, day0, day1, daysum, week As IntegerY = Inpu

32、tBox(請輸入當前日期 & 先輸入年份(1901-2100)M = InputBox(請輸入月份（112）：)D = InputBox( 請輸入日（131）：)計算部分If (Y Mod 100 0) And (Y Mod 4 = 0) Or (Y Mod 100 = 0) And (Y Mod 400 = 0) Then Month2 = 29Else Month2 = 28End IfVisual Basic 程序設計Select Case M Case 1 day0 = 31 day1 = 0 Case 2 day0 = Month2 day1 = 31 Case 3 day0 = 31 day1 = Month2 + 31 Case 4 day0 = 30 day1 = Month2 + 62 Case 5 day0 = 31 day1 = Month2 + 92 Case 6 day0 = 30 day1 = Month2 + 123 Case 7 day0 = 31 day1 = Month2 + 153 Case 8 day0 = 31 day1 = Month2 + 184 Case 9 day0 = 30 day1 = Month2 + 215 C