【導讀】結(jié)構(gòu)的實現(xiàn)原理，以及簡單變形問題描述的程序設計。件快速地編寫簡單的小程序。類型、函數(shù)、過程等。程序控制結(jié)構(gòu)等語言基礎知識。首先按照下述步驟完成“科學計算器”的界面。Caption屬性設為“科學計算器“。鍵），它們的屬性和要實現(xiàn)的功能如教材表2-15所示。CommandButton控件（用作數(shù)字鍵，其索引號恰與其Caption屬性值一致。看到，這一點將給編程帶來很大方便。6．最后再加上一個單選按鈕控件，整型表示的就是整數(shù)。用于存儲二進制數(shù)據(jù)，其取值范圍為0~255。型，適用于貨幣計算。

　　

【正文】 + X Else X = 5 X Y = 1 X Print Y=。 Y 若 X=2 則打印 Y=2 若 X=2 則打印 Y=6 共同出口 (6)單行結(jié)構(gòu)條件語句可以嵌套 IF ... THEN...IF ... THEN ...ELSE ...ELSE… 授課3VB控制結(jié)構(gòu) 78 if語句嵌套 If 條件 1 Then [語句組 1] [ElseIf 條件 2 Then [語句組 2]] …… [ElseIf 條件 N Then [語句組 N]] [Else [其他 語句組 ]] End If If 條件 1 Then [語句組 1] Else [語句組 2] End If Else子句 ElseIf子句 If語句 End If語句 注意 : 格式書寫、嵌套 授課3VB控制結(jié)構(gòu) 79 塊結(jié)構(gòu)條件語句的功能： T …… T T F 條件 1 語句組 1 語句組 2 條件 2 F 條件 n 語句組 n F 語句組 n+1 授課3VB控制結(jié)構(gòu) 80 注意： (1) ElseIf不能寫成 Else If， 即中間不能有空格。 (2) 在書寫時，可以將 If語句、 ElseIf子句、 Else子句、和 End If語句左對齊，而各語句組向右縮進若干空格，以使程序結(jié)構(gòu)更清楚。 (3) 嚴格按格式要求書寫，不可隨意換行或?qū)尚泻喜⒊梢恍?。例如，對于條件結(jié)構(gòu)： If x = 0 Then y = 1 Else y = 2 End If 以下兩種寫法都是錯誤的： 寫法一： If x=0 Then y=1 Else y = 2 End If 寫法二： If x = 1 Then y = 10 Else y = 20 End If 授課3VB控制結(jié)構(gòu) 81 2) Select Case語句 雖然使用條件語句的嵌套可以實現(xiàn)多分支選擇，但結(jié)構(gòu)不夠簡明。使用多分支語句 Select Case也可以實現(xiàn)多分支選擇，它比起上述條件語句嵌套更有效，更易讀，并且易于跟蹤調(diào)試。 Select Case 測試表達式 Case 表達式表 1 [語句組 1] [Case 表達式表 2 [語句組 2]] … [Case Else [語句組 n]] End Select 授課3VB控制結(jié)構(gòu) 82 2) Select Case語句 功能 根據(jù)測試表達式的值 ,按順序匹配 Case后的表達式 ,如果匹配成功 ,則執(zhí)行該 Case下的語句塊 ,然后轉(zhuǎn)到 End Select語句之后繼續(xù)執(zhí)行。 說明： （ 1） “ 測試表達式 ” 可以是數(shù)值型或字符串表達式 。 （ 2） “ 表達式列表 ” 與 “ 測試表達式 ” 的類型必須相同 。 （ 3） “ 表達式列表 ” 可以是表達式 、 一組用逗號分隔的枚舉值 、 表達式 1 to 表達式 Is關系運算符表達式； （ 4） 并不是所有的多分支結(jié)構(gòu)都可以用 Select Case語句代替的 。 授課3VB控制結(jié)構(gòu) 83 語句組 n+1 T …… T T F 匹配 表達式表 1 語句組 1 語句組 2 F 語句組 n F 匹配表達式表 2 匹配表達式表 n Select Case語句的功能流程圖 : 授課3VB控制結(jié)構(gòu) 84 2) Select Case語句 表達式例 : Case 1 , 3 , 5 Case 10 TO 30 Case A TO Z Case Is = 10 Case Is = 0 與 Case 0 相同 Case Is 5 , 0 , 5 To 100 授課3VB控制結(jié)構(gòu) 85 思考： 語句的嵌套？ If語句的嵌套 Select case語句的嵌套 Select case語句和 if語句的嵌套 授課3VB控制結(jié)構(gòu) 86 例、 設計一個四則運算的自我練習應用程序，界面如下圖所示。 Text1 Text4 Text3 Text2 Label4 Label2 授課3VB控制結(jié)構(gòu) 87 要求 : (1) 執(zhí)行時，當在 Text1中輸入一種運算符后，在標簽 Label2中立即出現(xiàn)該運算符號。 (2) 單擊“出題”按鈕可以產(chǎn)生兩個 [0， 1000]之間的隨機整數(shù)，這時由 Text Label2和 Text3組成一個表達式。 (3) 可以通過單擊“計算”按鈕計算所生成的表達式的值。 (4) 也可以由用戶在文本框 Text4中輸入運算結(jié)果通過單擊“判斷”按鈕可以判斷輸入的運算結(jié)果是否正確，然后在 Label4上顯示“正確”或“錯誤”。 (5) 單擊“退出”按鈕結(jié)束運行。 授課3VB控制結(jié)構(gòu) 88 (1) 在 Text1中輸入加、減、乘、除符號后 ,在 Label2中立即出現(xiàn)相應的運算符號。 Private Sub Text1_Change() = End Sub (2) 單擊“出題”按鈕 Command1,生成兩個 [0，1000]之間的隨機整數(shù)。 Private Sub Command1_Click() Randomize = Int(Rnd * 1001) = Int(Rnd * 1001) = End Sub 授課3VB控制結(jié)構(gòu) 89 (3) 單擊“計算”按鈕 Command2得出 Text4的值。 Private Sub Command2_Click() If = + Then = Val() + Val() ElseIf = Then = Val() Val() ElseIf = * Then = Val() * Val() ElseIf = / Then = Val() / Val() Else MsgBox 運算類型錯 ， 請重輸 , , 警告 : = 0 = Len() End If End Sub 授課3VB控制結(jié)構(gòu) 90 (4) Text4的內(nèi)容也可以由用戶輸入，通過單擊“判斷”按鈕 Command3判斷輸入結(jié)果是否正確。 Private Sub Command3_Click() Select Case Case + If =Val()+Val() Then = 正確 Else = 錯誤 End If 授課3VB控制結(jié)構(gòu) 91 Case If =Val()Val() Then = 正確 Else = 錯誤 End If Case * If =Val()*Val() Then = 正確 Else = 錯誤 End If 授課3VB控制結(jié)構(gòu) 92 Case / If =Val()/Val() Then = 正確 Else = 錯誤 End If Case Else a=MsgBox(運算類型錯，請重輸 , , 警告 ) = 0 = Len() End Select End Sub 注 : 因?qū)崝?shù)的不精確表示，除法判斷條件應寫成 : Abs(Val() Val() / Val()) 授課3VB控制結(jié)構(gòu) 93 循環(huán)結(jié)構(gòu) 在程序設計中 ， 經(jīng)常會遇到按一定的規(guī)則重復執(zhí)行某些運算或操作的情況 ， 例如 ， 統(tǒng)計全校幾千名學生的成績 、 求若干個數(shù)之和等 。 對于這類問題 ， 如果用順序程序來處理 ， 將是十分煩瑣的 ， 有時候也是難以實現(xiàn)的 。 這種情況下就要使用循環(huán)流程控制結(jié)構(gòu)來實現(xiàn) 。 循環(huán)是在指定的條件下多次重復執(zhí)行一組語句。 VB中提供了兩種類型的循環(huán)語句： 計數(shù)型循環(huán)語句 條件型循環(huán)語句 1) For…Next 循環(huán) 2) Do…Loop 循環(huán) 3) 循環(huán)的嵌套 授課3VB控制結(jié)構(gòu) 94 初值 循環(huán)變量 1) For…Next 循環(huán) 1. 格式 For 循環(huán)變量 =初值 To 終值 [Step 步長 ] 語句組 1 [Exit For] 語句組 2 Next [循環(huán)變量 ] 循環(huán)變量值超過終值？ 執(zhí)行循環(huán)體 循環(huán)變量 +步長 循環(huán)變量 后續(xù)語句 Yes No 2. 功能 : 執(zhí)行過程如流程圖所示 授課3VB控制結(jié)構(gòu) 95 3. 說明 (1)循環(huán)變量 ——數(shù)值變量 (2)初值 ,終值 ,步長 ——數(shù)值表達式 (3)步長 ——可正可負 ,但不能為 0,為 1時可以省略 步長 0時，必須 : 初值 =終值 循環(huán)結(jié)束條件 ——循環(huán)變量的值 終值 步長 0時，必須 : 初值 = 終值 循環(huán)結(jié)束條件 ——循環(huán)變量的值 終值 (4)Exit For——退出循環(huán)，常放在條件語句中 (5)Next之 后的循環(huán)變量應與 For語句中的循環(huán)變量一致，也可以省略 授課3VB控制結(jié)構(gòu) 96 思考 : P92 求 12+22+32+42+……+100 2 授課3VB控制結(jié)構(gòu) 97 例 數(shù)字燈謎。有算式 : A B C D ) C D C A B C A、 B、 C、 D為非負一位數(shù)字，要求找出滿足以上算式的 A、 B、 C、 D。 答案 : 1098 1 0 9 8 9 8 9 1 0 9 授課3VB控制結(jié)構(gòu) 98 Private Sub Form_Click() Dim A As Integer, B As Integer, C As Integer, _ D As Integer Dim S1 As Integer, S2 As Integer, S3 As Integer For A = 1 To 9 For B = 0 To 9 For C = 1 To 9 For D = 0 To 9 S1 = A * 1000 + B * 100 + C * 10 + D S2 = C * 100 + D * 10 + C S3 = A * 100 + B * 10 + C If S1 S2 = S3 Then Print A。 B。 C。 D End If Next D, C, B, A En