課件壓縮版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è)計(jì)有三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)（1）順序結(jié)構(gòu)：各語(yǔ)句按照排列的先后順序依次執(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)：常用來(lái)解決需要反復(fù)進(jìn)行相同處理的問(wèn)題。第4章 控制結(jié)構(gòu)與算法If Then 語(yǔ)句塊End IfIf Then 語(yǔ)句塊1Else 語(yǔ)句塊2 End IfIf Then 語(yǔ)句塊1ElseIf T

2、hen 語(yǔ)句塊2 Else 語(yǔ)句塊n+1 End If行 If 語(yǔ)句： If Then Else If Then 語(yǔ)句塊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 條件判斷語(yǔ)句4.2 選擇結(jié)構(gòu)Select Case 語(yǔ)句Select Case 變量或

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

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

5、op While 條件Do Until 條件 語(yǔ)句塊LoopDo 語(yǔ)句塊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è)計(jì) While循環(huán) While 條件 語(yǔ)句塊 Wend GOTO語(yǔ)句形式如下： GOTO 標(biāo)號(hào)|行號(hào)Sub GotoStatementDemo() Dim Number, MyString Number = 1 設(shè)置變量初始值。 判斷 Number 的值以決定要完成那一個(gè)程序區(qū)段。 If Number = 1 Then GoTo Line1 Else GoTo Line2Line

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