第4章流程控制語(yǔ)句

1、目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nl 學(xué)會(huì)編制條件判斷語(yǔ)句nl 掌握Select Case控制語(yǔ)句nl 熟悉循環(huán)語(yǔ)句nl 熟悉跳轉(zhuǎn)控制 目標(biāo)要求目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nl 條件判斷語(yǔ)句nl Select Case控制語(yǔ)句nl 循環(huán)語(yǔ)句nl 跳轉(zhuǎn)控制講課提綱目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句4.1 條件結(jié)構(gòu) Visual Basic

2、6.0的過(guò)程能夠測(cè)試條件表達(dá)式，然后根據(jù)測(cè)試結(jié)果執(zhí)行不同的操作。Visual Basic 6.0支持的條件結(jié)構(gòu)有：nIfThennIf.ThenElsenIIfnSelect Case 4.1 選擇結(jié)構(gòu) 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nIf.Then 用If.Then結(jié)構(gòu)有條件地執(zhí)行一個(gè)或多個(gè)語(yǔ)句。單行語(yǔ)法和多行塊語(yǔ)法都可以使用：If condition Then statementIf condition Then statementsEnd If “condition”通常是比較式，但它可以是任何計(jì)算數(shù)

3、值的表達(dá)式。Visual Basic 6.0 將這個(gè)值解釋為“True”或“False”。一個(gè)為零的數(shù)值為“False”，而任何非零數(shù)值都被看作“True”。若“condition”為“True”，則Visual Basic 6.0執(zhí)行“Then”關(guān)鍵字后面的所有“statements”。 . 4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句例如：設(shè)計(jì)一個(gè)求數(shù)a的絕對(duì)值命令按鈕。Private Sub Command1_Click()Dim a As Integer定義變量a = Val(Text1.Text

4、)將文本框中輸入的值賦給變量aIf a 0 Then 當(dāng)a為負(fù)數(shù)時(shí)取其相反數(shù)a = -aEnd IfText2.Text = Str$(a)End Sub 4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句 在Visual Basic 6.0中可以使用單行或多行語(yǔ)法有條件地執(zhí)行一個(gè)語(yǔ)句（下面兩個(gè)例子是等價(jià)的）：語(yǔ)句1：If a 0 Then a = -1語(yǔ)句2：If a 0 Theny = 1ElseIf x = 0 Theny = 0Elsey = -1End IfText2.Text = Str$(y)En

5、d Sub 4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句例如：判斷某年是否為閏年。閏年的條件是：n能被4整除，但不能被100整除的年份都是閏年。n能被100整除，又能被400整除的年份是閏年。Dim x As IntegerPrivate Sub Command1_Click()x = Val(Text1.Text)4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句If (x Mod 100) Then如果X不能被100整

6、除If (x Mod 4 = 0) Then如果x能被4整除但不能被100整除Text2.Text = yesElse如果x不能被4和100整除Text2.Text = noEnd If ElseIf (x Mod 400 = 0) Then如果x能被100整除，又能被400整除Text2.Text = yes“ElseText2.Text = no“End IfEnd Sub4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nIIf函數(shù) 實(shí)現(xiàn)一些簡(jiǎn)單的條件判斷分支結(jié)構(gòu)，其格式如下：IIf(條件，條件為真時(shí)的值

7、，條件為假時(shí)的值) 其作用是對(duì)條件進(jìn)行測(cè)試，若條件成立（為真值），則取第一個(gè)值（即“條件為真時(shí)的值”），否則取第二個(gè)值（即“條件為假時(shí)的值”）。 例如：將a、b中的小數(shù)，放入Min變量中。Min=IIf(ab,a,b)4.1 選擇結(jié)構(gòu)目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nSelect Case Visual Basic 6.0提供Select Case結(jié)構(gòu)替代If.Then.Else，從而可在多個(gè)語(yǔ)句塊中有選擇地執(zhí)行其中一個(gè)。Select Case語(yǔ)句的能力與If.Then.Else語(yǔ)句類似，但對(duì)多重選擇的情況，

8、Select Case語(yǔ)句使代碼更加易讀。Select Case在結(jié)構(gòu)的上方便處理一個(gè)測(cè)試表達(dá)式并只計(jì)算一次。然后，Visual Basic 6.0將表達(dá)式的值與結(jié)構(gòu)中的每個(gè)Case的值進(jìn)行比較。如果相等，就執(zhí)行與該Case相關(guān)聯(lián)的語(yǔ)句塊。 4.2 Select Case控制語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句Select Case test expressionCase expressionlist1statementblock-1Case expressionlist2statementblock-2.

9、Case Elsestatementblock-nEnd Select4.2 Select Case控制語(yǔ)句目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句 每一個(gè)“expressionlist”是一個(gè)或幾個(gè)值的列表。如果在一個(gè)列表中有多個(gè)值，就用逗號(hào)把值隔開。每一個(gè)“statementblock”中含有0個(gè)或多個(gè)語(yǔ)句。如果不止一個(gè)Case與測(cè)試表達(dá)式相匹配，則只對(duì)第一個(gè)匹配的Case執(zhí)行與之相關(guān)聯(lián)的語(yǔ)句塊。如果在表達(dá)式列表中沒(méi)有一個(gè)值與測(cè)試表達(dá)式相匹配，則Visual Basic 6.0執(zhí)行Case Else子句（此項(xiàng)是可

10、選的）中的語(yǔ)句。例如，假定在If.Then.Else的例子中要向【編輯】菜單添加命令。為此可以另加一個(gè)Else If子句，或用Select Case來(lái)寫函數(shù)。 例如：根據(jù)一個(gè)同學(xué)的成績(jī)，判斷他的優(yōu)、良、中、差等級(jí)。4.2 Select Case控制語(yǔ)句目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句Private Sub Command1_Click()Dim m As Longm = Val(Text1.Text)Select Case mCase 80 To 10080=m=100Text2.Text = 優(yōu)Case 7

11、0 To 7970=m=79Text2.Text = 良Case 60 To 6960=m=69Text2.Text = 中Case 0 To 590=m=59Text2.Text = 差End SelectEnd Sub 4.2 Select Case控制語(yǔ)句目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句循環(huán)結(jié)構(gòu) 循環(huán)結(jié)構(gòu)允許重復(fù)執(zhí)行一行或數(shù)行代碼。Visual Basic 6.0支持的循環(huán)結(jié)構(gòu)有：nDoLoopnForNextnFor Each.Next 4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提

12、綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nDo.Loop 用Do循環(huán)重復(fù)執(zhí)行一語(yǔ)句塊，且重復(fù)次數(shù)不定。Do.Loop語(yǔ)句有幾種演變形式，但每種都計(jì)算數(shù)值條件以決定是否繼續(xù)執(zhí)行。如同If.Then condition必須是一個(gè)數(shù)值或者值為“True”（非零）或“False”（零）的表達(dá)式。在下面的Do.Loop循環(huán)中，只要“condition”為“True”就執(zhí)行“statements”。Do While（condition）statements Loop 當(dāng)Visual Basic 6.0執(zhí)行這個(gè)Do循環(huán)時(shí)會(huì)首先測(cè)試“condition”。如果“conditio

13、n”為“False”（零），則跳過(guò)所有語(yǔ)句。如果“condition”為“True”（非零），則Visual Basic 6.0執(zhí)行語(yǔ)句，然后退回到Do While語(yǔ)句再測(cè)試條件。因此，只要“condition”為“True”或非零，循環(huán)可以隨意執(zhí)行多少次。如果“condition”一開始便為“False”，則不會(huì)執(zhí)行語(yǔ)句。 4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句例如：我國(guó)現(xiàn)有人口約為12億，設(shè)年增長(zhǎng)率為1%，計(jì)算多少年后增加到20億。Private Sub Form_Click()Dim a A

14、s DoubleDim r As SingleDim i As Integera = 12r = 0.01i = 0Do While a 20 當(dāng)人口數(shù)大于等于20億時(shí)結(jié)束循環(huán)a = a * (1 + r)i = i + 1Loop4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句Print i ;”年后中國(guó)人口達(dá)到20億”End Sub運(yùn)行程序，單擊窗體，程序輸出為：52年后中國(guó)人口達(dá)到20億4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社

15、第四章 流程控制語(yǔ)句 Do.Loop語(yǔ)句的另一種演變形式是先執(zhí)行語(yǔ)句，然后再在每次執(zhí)行后測(cè)試“condition”。這種形式保證“statements”至少執(zhí)行一次：DostatementsLoop While condition 其他兩種演變形式類似于前兩個(gè)，所不同的是，只要“condition”為“False”而不是“True”，它們就執(zhí)行循環(huán)。 將上例改寫成這種格式如下： 4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句Private Sub Form_Click()Dim a As DoubleDi

16、m r As SingleDim i As Integera = 12r = 0.01i = 0Do a = a * (1 + r)i = i + 1Loop While a 20 當(dāng)人口數(shù)超過(guò)20億時(shí)結(jié)束循環(huán)Print i ；” i年后中國(guó)人口達(dá)到20億”End Sub4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句nFor.Next For循環(huán)的語(yǔ)法如下：For counter = start To end Step incrementStatementsNext counter 參數(shù)“Counter”

17、、“Start”、“end”和“increment”都是數(shù)值型的。 “increment”參數(shù)可正可負(fù)。如果“increment”為正，則“Start”必須小于等于“end”，否則不能執(zhí)行循環(huán)內(nèi)的語(yǔ)句。如果“increment”為負(fù)，則“Start”必須大于等于“end”，這樣才能執(zhí)行循環(huán)體。如果沒(méi)有設(shè)置“Step”（步長(zhǎng)），則“increment”缺省值為1。每執(zhí)行一個(gè)循環(huán)，“counter= counter+step”。 4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句在執(zhí)行For循環(huán)時(shí)，其執(zhí)行過(guò)程如下

18、： 設(shè)置“counter”等于“start”。 測(cè)試“counter”是否在“start”和“end”之間。若不是的話，則Visual Basic 6.0退出循環(huán)。若是的話執(zhí)行語(yǔ)句。 執(zhí)行完“Statements”語(yǔ)句，執(zhí)行Next counter，counter= counter+step。 重復(fù)步驟到步驟。4.3 循環(huán)語(yǔ)句 目標(biāo)要求目標(biāo)要求課后作業(yè)課后作業(yè)講課提綱講課提綱講課內(nèi)容講課內(nèi)容退出上課實(shí)驗(yàn)上課實(shí)驗(yàn)中國(guó)鐵道出版社第四章 流程控制語(yǔ)句例如：求m=1+2+3+4+100的值。Private Sub Command1_Click()m = 0For i = 1 To 100步長(zhǎng)省略，墨認(rèn)為1m = m + iNext iText1.Text