1、第三章結(jié)構(gòu)化程序設(shè)計(jì)與數(shù)組.3 循環(huán)結(jié)構(gòu)1 循環(huán)概述在實(shí)際工作中，常遇到一些操作過程不太復(fù)雜，但又需要反復(fù)進(jìn)行相同處理的問題，比如，統(tǒng)計(jì)本單位所有人員的工資，求全班同學(xué)各科的平均成績等等。這些問題的解決邏輯上并不復(fù)雜，但如果單純用順序結(jié)構(gòu)來處理，那將得到一個(gè)非常乏味且冗長的程序。思考：怎樣在窗體form1上顯示如下圖案：*解決方案1:Print *Print *Print *Print *Print *Print *Print *Print * 解決方案2:語言描述：重復(fù)執(zhí)行print *語句，一共執(zhí)行8次。計(jì)算機(jī)描述:Dimiasintegeri=1當(dāng)i8時(shí)，停止執(zhí)行print *語句 Di

2、m I as integerFor i=1 to 8 Print *Next i通過上面的對比可知，循環(huán)結(jié)構(gòu)非常適合于解決處理的過程相同、處理的數(shù)據(jù)相關(guān)，但處理的具體值不同的問題。我們把能夠處理這類問題的語句稱為循環(huán)語句。循環(huán)在程序設(shè)計(jì)中，有規(guī)律地反復(fù)執(zhí)行某一程序塊的現(xiàn)象。循環(huán)體 被重復(fù)執(zhí)行的程序塊 。乒乓球比賽循環(huán)的三種形式（1）ForNext語句；（2）WhileWend語句；（3）DoLoop語句。2 For循環(huán)格式：For = To Step 循環(huán)體 Next 說明： 循環(huán)變量：亦稱為循環(huán)控制變量，必須為數(shù)值型。 初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。 步長： 循環(huán)體：在For語句

3、和Next語句之間的語句序列。 Next后面的循環(huán)變量與For語句中的循環(huán)變量必須相同。 For語句和Next語句必須成對出現(xiàn)，缺一不可，且For在Next之前。 循環(huán)次數(shù)由初值、終值和步長確定，計(jì)算公式為： 循環(huán)次數(shù)=Int（終值初值）/步長）+10 : 初值終值 =1 時(shí),可省略終值=0 : 死循環(huán)For.Next語句結(jié)構(gòu)流程圖步長步長自動(dòng) For n=1 To 10 Step 3 Print n， Next n具體執(zhí)行情況如下：第幾次循環(huán)n與終值比較執(zhí)行循環(huán)體否1110執(zhí)行2410執(zhí)行3710停止執(zhí)行上面程序的執(zhí)行結(jié)果為： 1 4 7 10n=1n=10Print n,n=n+3步長=3

4、 T F例：for流程注意：1Exit For 循環(huán)出口語句，中斷此次循環(huán)，執(zhí)行到Next后的語句。2循環(huán)正常結(jié)束（未執(zhí)行Exit For）后，循環(huán)變量的值為最后1次取值加步長。循環(huán)變量取值不合理，則不執(zhí)行循環(huán)。For n=99 to 1 step 2 s=s+n Next n 例：exit for探索：如何在窗體form1上，顯示如下數(shù)據(jù)12345678Dim I as integerFor i=1 to 8 Print iNext i例1 求S = 12 + 32 + 52 + + 992i=1i=99s=s+i2i=i+2步長=2 T Fi=1 S=0+12=S+i2i=i+2=3 S=

5、S+32=S+i2i=i+2=5 S=S+52=S+i2i=i+2=99 S=S+992=S+i2初值循環(huán)體 步長循環(huán)變量初值 采用Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Click（） End Sub例1 求S = 12 + 32 + 52 + + 992語句s=s+k也稱加法器。先將s置0。累加算法i=1i=99s=s+i2i=i+2步長=2 T FDim s as double，i% s = 0 For i = 1 To 99 Step 2 s = s + i 2 Next i Print 1100所有奇數(shù)的平方和=；s思考題：1編程求s=1+2+3

6、+1002編程求s=23+43+63+ 3 任意輸入10個(gè)數(shù)，求他們的和。Dim s as integer, I as integerS=0For i= 1 to 100 s=s+INext IDim s as single, I as integerS=0For i= 2 to 100 step 2 s=s+I3Next IDim s as single, I as integerDim x as singleS=0For i= 1 to 10 x=inputbox(“輸入數(shù)”) s=s+xNext I 采用Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Cli

7、ck() Dim t as single, I as Integer t = 1 n=val(Inputbox(請輸入n的值) For i = 1 To n t = t * i Next i Print t=; t End Sub例2 求t = n! = 123(n-1) n語句t=t*c也稱乘法器。先將t置1(不能置0)。T=1,i=1imax then max=x end ifNext iEnd sub思考：若求最小值，程序怎樣改？ 語句格式 While 循環(huán)體 Wend 3 While.Wend循環(huán)語句 功能：當(dāng)條件成立(為真)時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立(為假)時(shí)，終止循環(huán)。常用于編制

8、循環(huán)次數(shù)預(yù)先未知的程序循環(huán)體條件真假結(jié)合下面的程序段，我們做進(jìn)一步的說明： x=1 While x5 Print x， x=x+1 Wend該程序段的執(zhí)行結(jié)果是： 1 2 3 4x=1x0an=x *an-1/na3=x *a2/3a2=x *a1/2寫成代碼為：a=1 級數(shù)a第1項(xiàng)為1y=a 將第1項(xiàng)存入累加和y中i=0 變量i記錄當(dāng)前已累加的項(xiàng)數(shù)While a = 1e-5 i=i+1 a=a*x/i y=y+aWenda=1:y=a:i=0a=1e-5i=i+1a=a*x/iy=y+a假真級數(shù)各項(xiàng)的遞推公式a0=1 ai=x* ai-1 /i i0思考題：1利用下述公式計(jì)算圓周率的近似值

9、：當(dāng)最后一項(xiàng)的絕對值小于0.000 001時(shí)停止計(jì)算。2計(jì)算e的值，直到前后兩項(xiàng)之差小于104為止 For.Next循環(huán)主要是用在知道循環(huán)次數(shù)的情況下，若事先不知道循環(huán)次數(shù)，可以使用當(dāng)型循環(huán)Do.Loop Do.Loop兩種格式：當(dāng)型循環(huán)結(jié)構(gòu) Do While|Until Loop 和直到型循環(huán)結(jié)構(gòu) Do.LoopWhile|Until . 4 Do.Loop循環(huán)語句 格式： Do While|Until 循環(huán)體 Exit Do Loop1. 當(dāng)型循環(huán)Do While|Until.Loop假循環(huán)體真條件while循環(huán)體真假條件until 語句格式如下： Do 循環(huán)體Exit Do Loop W

10、hile|Until2. 直到型Do. While|Until Loop循環(huán)循環(huán)體真假條件while循環(huán)體假真條件until當(dāng)型Do While|Until Loop與直到型Do While|Until Loop的區(qū)別1. 兩者區(qū)別在于判斷條件的先后次序不同.2. 直到型DoWhile|Until Loop執(zhí)行循環(huán)的最少次數(shù)為1，而當(dāng)型Do While|Until.Loop語句的最少次數(shù)為0(即一次都不執(zhí)行循環(huán)). i=9:s=0 Do s=s+i i=i+1Loop While i=8 i=9:s=0 Do While i=8 s=s+i i=i+1Loop多種循環(huán)語句比較 求和s = 12

11、 + 22 + 32 + + 102ForNext Dim s as singleDim k as single s=0 For k=1 to 10 s=s+k*k Next k Print s當(dāng)型WhileDim s as singleDim k as single s=0:k=1 Do While k10 s=s+k*k k=k+1LoopPrint s直到型UntilDim s as singleDim k as integers=0:k=1 Do s=s+k*k k=k+1Loop Until k10直到型WhileDim s as singleDim k as integer s=0

12、:k=1 Do s=s+k*k k=k+1Loop While k=10While.WendDim s as singleDim k as integers=0:k=1While ksqr(i) then print spc(6-Len(trim(i);trim(str(I); k=k+1 if k Mod 10 =0 then print end if Next i e3-14 以每行10個(gè)輸出21000內(nèi)的素?cái)?shù)。例：判斷素?cái)?shù)For i = 1 To n Picture1.Print Tab(n - i + 1); For j = 1 To 2 * i - 1 Picture1.Print

13、Trim(Str(i); Next j Picture1.Print next ie3-18 編一程序，輸出下列所示的圖形采用雙重循環(huán)，外層循環(huán)用于控制行數(shù)，內(nèi)層循環(huán)用于輸出每行的信息。利用tab函數(shù)設(shè)置每行的起始位置。每行的字符個(gè)數(shù)與行序的關(guān)系為2*i-1常見錯(cuò)誤1. 不循環(huán)或死循環(huán)的問題 主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長的設(shè)置有問題。2循環(huán)結(jié)構(gòu)中缺少配對的結(jié)束語句 For 少 配對的Next 3.循環(huán)嵌套時(shí),內(nèi)外循環(huán)交叉4累加、連乘時(shí)，存放累加、連乘結(jié)果的變量賦初值問題 (1)一重循環(huán) 在一重循環(huán)中,存放累加、連乘結(jié)果的變量初值設(shè)置應(yīng)在循環(huán)語句前。（2）多重循環(huán) 這要視具體問題分別對待。作業(yè)：1自己看沒有講的例題、習(xí)題三。2 書面作業(yè)：p79四、五3編程P834,54九九乘法表（下半角、上半角）5利用下述公式計(jì)算圓周率的近似值：當(dāng)最后一項(xiàng)的絕對值小于0.000 001時(shí)停止計(jì)算。輸入n提高題：For i = 1