課件壓縮版vb第二次課第3講

1、本講要點(diǎn)程序控制結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)； 編程舉例。第4章 控制結(jié)構(gòu)與算法4.1 三種基本結(jié)構(gòu)結(jié)構(gòu)化程序設(shè)計有三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)（1）順序結(jié)構(gòu)：各語句按照排列的先后順序依次執(zhí)行。 順序結(jié)構(gòu)是任何程序主體的基本結(jié)構(gòu)，選擇和循環(huán)結(jié)構(gòu)中也常以順序結(jié)構(gòu)作為其子結(jié)構(gòu)。（2）選擇結(jié)構(gòu)：是用于描述分支現(xiàn)象的重要手段。根據(jù)給定條件是否滿足，選擇執(zhí)行分支結(jié)構(gòu)的不同分支代碼。（3）循環(huán)結(jié)構(gòu)：常用來解決需要反復(fù)進(jìn)行相同處理的問題。第4章 控制結(jié)構(gòu)與算法If Then 語句塊End IfIf Then 語句塊1Else 語句塊2 End IfIf Then 語句塊1ElseIf T

2、hen 語句塊2 Else 語句塊n+1 End If行 If 語句： If Then Else If Then 語句塊Else : End IfIf A=100 Then Print “A=100” : Text1=888If A0 Then Text1.Forecolor=vbred : Text1=1234 Else Print “A0 Then Text1.Forecolor=vbred text1=1234Else : Print “A=0” : Text1=“ “End If4.2 選擇結(jié)構(gòu)If 條件判斷語句4.2 選擇結(jié)構(gòu)Select Case 語句Select Case 變量或

3、表達(dá)式 Case 表達(dá)式列表1 語句塊1 Case 表達(dá)式列表2 語句塊2 Case Else 語句塊 n+1 End Select變量或表達(dá)式： 可以是數(shù)值型或字符串表達(dá)式 有四種形式：* 表達(dá)式* 一組枚舉表達(dá)式（用逗號分隔）* 表達(dá)式1 To 表達(dá)式2* Is 關(guān)系運(yùn)算表達(dá)式例如：Case 1 To 10Case 2,4,6,8, Is10例題5-1：設(shè)計程序，回答“天下事有難易乎？”的提問，根據(jù)用戶的不同選擇，現(xiàn)實不同的語句。應(yīng)用舉例例題5-2：已知某書店圖書均九折銷售，一次購書100元以上（包括100元）打八五折。例題5-3：If語句的嵌套在例5-2的基礎(chǔ)上，實現(xiàn)購書金額300元（含

4、）以上打八二折。例題5-4：用塊If的嵌套語句來描述博弈論中的經(jīng)典案例“囚徒困境”。例題5-5：ElseIf語句設(shè)計程序，鑒定成績，輸入百分制成績，顯示相應(yīng)的五級制評定。例題5-6：行 If 語句設(shè)計程序，求最大值：要求可以輸入任意的3個數(shù)，并能找出其中的最大值。例題5-7：用Select Case語句代替ElseIf語句來實現(xiàn)成績評定。 For 循環(huán)變量=初值 To 終值 Step 步長 語句塊 Exit For 語句塊 Next 循環(huán)變量 For Each 元素變量 In 數(shù)組或集合 語句塊 Next 元素變量先判斷后執(zhí)行 先執(zhí)行后判斷Do While 條件 語句塊LoopDo 語句塊Lo

5、op While 條件Do Until 條件 語句塊LoopDo 語句塊Loop Until 條件Exit Do 可退出循環(huán)* 內(nèi)循環(huán)變量與外循環(huán)變量不能同名* 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉4.3 循環(huán)結(jié)構(gòu)程序設(shè)計 While循環(huán) While 條件 語句塊 Wend GOTO語句形式如下： GOTO 標(biāo)號|行號Sub GotoStatementDemo() Dim Number, MyString Number = 1 設(shè)置變量初始值。 判斷 Number 的值以決定要完成那一個程序區(qū)段。 If Number = 1 Then GoTo Line1 Else GoTo Line2Line

6、1: MyString = Number equals 1 GoTo 999 完成最后一行。Line2: 下列的語句根本不會被完成。 MyString = Number equals 2”999 Debug.Print MyString 將“Number equals 1”顯示在“立即”窗口。End Sub例題6-1：編寫程序，實現(xiàn)累加：要求使用For循環(huán)計算從1100的自然數(shù)之和。應(yīng)用舉例例題6-2：編寫程序，實現(xiàn)階乘：要求使用For循環(huán)求N！（N為自然數(shù)）。例題6-3：修改例6-2，要求顯示For循環(huán)語句在執(zhí)行過程中的具體情況。例題6-4：編寫程序，求的近似值。例題6-5：While循環(huán)編寫程序，求總成績，可以實現(xiàn)輸入若干成績，并計算總成績。例題6-8：While循環(huán)編寫程序，判斷用戶輸入的數(shù)是否為素數(shù) 。例題6-11：For循環(huán)嵌套，打印九九乘法表。例題4-1：編程求解一元二次方程ax2+bx+c=0的實根。教材舉例例題4-2：用InputBox函數(shù)和Print方法改寫例4-1的程序。例題4-5：求解一元二次方程ax2+bx+c=0