1、在第5章中，環(huán)路結(jié)構(gòu)計(jì)程儀程序的設(shè)計(jì)可以通過(guò)采用環(huán)路計(jì)程儀程序來(lái)解決按照一定規(guī)則反復(fù)執(zhí)行的問(wèn)題。 例如，合計(jì)班級(jí)數(shù)十名學(xué)生，甚至學(xué)校數(shù)千名學(xué)生的學(xué)期成績(jī)，分為平均分、不合格等本章的主要內(nèi)容，第5章循環(huán)構(gòu)造方案設(shè)計(jì)，Do.Loop，F(xiàn)or.Next，退出，循環(huán)出口文(Exit )，循環(huán)文，多重循環(huán)，列表框和組合框，常用算法， 所謂堆計(jì)程儀例循環(huán)，是指由循環(huán)體VB提供在指定的條件下多次反復(fù)執(zhí)行的一系列語(yǔ)句的循環(huán)語(yǔ)句For.Nextdo.loop while.wenddforeach.next中最常見(jiàn)的是for.next和do.loop語(yǔ)句， for.next循環(huán)主要在知道循環(huán)次數(shù)時(shí)使用。如果事先不

2、知道循環(huán)次數(shù)，則為正規(guī)循環(huán)Do.Loop 1. For.Next循環(huán)語(yǔ)句(計(jì)數(shù)控制) For循環(huán)變量初始值To結(jié)束值Step步進(jìn)值環(huán)體Next環(huán)變量2. Do While.Loop語(yǔ)句(條件控制) Do While|Until條件環(huán)體Loop 5.1環(huán)語(yǔ)句的示例S=1 2 3 8，s=0 For k=1 To 8 s=s k Next k Print s=s普通堆計(jì)程儀的執(zhí)行結(jié)果是s36，n=13360 s=0dowhilin=8s=snn=n 1循環(huán)打印=； s、5.2和k是循環(huán)變量，設(shè)置變量n以控制循環(huán)，5.2獲得S=1 2 3 8，并在表單上表示結(jié)果。 s=0個(gè)累加器的初始值是0 For

3、 k=1 To 8 s=s k個(gè)累加器，其中，根據(jù)原始和，每次幾個(gè)Next Print s=； s plum計(jì)程儀程序的執(zhí)行結(jié)果在s36分析中，算法：通常，為了使用反復(fù)運(yùn)算來(lái)解決問(wèn)題的累積、累積等，按照級(jí)數(shù)/41 - 1/3 1/5 - 1/7設(shè)定循環(huán)變量，求出每個(gè)運(yùn)算變量值有不同的控制循環(huán)計(jì)數(shù)控制和條件控制，實(shí)現(xiàn)循環(huán)結(jié)構(gòu)程序計(jì)程儀程序s將長(zhǎng)式加8次，使用打印直接輸出到表格中，private subform _ load () showt=1forc=1to8t=t * cnextcprintt=； T40320語(yǔ)句t=t*c作為t End Sub堆計(jì)程儀程序的執(zhí)行結(jié)果被稱(chēng)為乘法器。 先t為1

4、 (不能為0 )。 循環(huán)計(jì)程儀計(jì)劃經(jīng)常使用累積和累積來(lái)完成各種計(jì)算塔斯克。 求例5.3 t=8=1238、例5.3、例5.3t=8！=123 8、在網(wǎng)頁(yè)上顯示結(jié)果。 t=1累計(jì)器的初始值是For c=1 To 8 t=t * c累計(jì)器，根據(jù)原來(lái)的積，一次累計(jì)幾個(gè)Next Print T=； 在T40320分析中，t形計(jì)程儀程序的執(zhí)行結(jié)果使用打印直接輸出到表單。 在該計(jì)程儀柱查詢(xún)密碼中，專(zhuān)用子加載()短整數(shù)和零整數(shù)整數(shù)pi=1s是其中for c=1to 10000步驟2 pi=pi s/c s=-s被交替相加的負(fù)整數(shù)pi * 4 End Sub計(jì)程儀柱的執(zhí)行結(jié)果為3.141397，例子5.4是用

5、/41 - 1/3 1/5 - 1/7級(jí)數(shù)求出的近似值(取前面的5000項(xiàng)進(jìn)行計(jì)算)，例子5.4，fort=1to3ift=1thena=3ift=2thena=2 nexttprinta.333b.123c.314d.114，下一個(gè)計(jì)程儀程序的執(zhí)行結(jié)果是什么？ 請(qǐng)考慮一下。 思考問(wèn)題，d，fort=1to3ift=1thena=3ift=2thena=2ift=3thena=1打印機(jī)； nexttprinta.33334 b.123 c.314 d.114，下一個(gè)計(jì)程儀程序的執(zhí)行結(jié)果是什么？ 仔細(xì)想想，思考問(wèn)題，c，在執(zhí)行了下一個(gè)計(jì)劃之后，循環(huán)體執(zhí)行了_次。I=03360 n=1Dow hi

6、li關(guān)3.2字I=(I1) * (I1) n=n1loopprintna.2 b.3 c.4 d.5，請(qǐng)回答問(wèn)題并考慮一下s=abcdefgh hij : c=fork=2托爾恩(s ) step 33 請(qǐng)考慮一下。 思考問(wèn)題，使用c，Do While.Loop語(yǔ)句使用Print直接在表單上輸出結(jié)果。 普拉姆查詢(xún)密碼：私有輔助加載() dimansinteger，銷(xiāo)售額=1: s=0美元=100 s=sn * n=n 1循環(huán)打印=； s end sub plum的執(zhí)行結(jié)果： S338350、例5.5求出s3382221002、例5.5，通過(guò)上述式，對(duì)/4的近似值，即按項(xiàng)進(jìn)行累計(jì)，累計(jì)到某項(xiàng)的1

7、/n * (1/2 n 1/3 n)=10(-5 )的條件t10(-5 )為止，pi=。 t將累計(jì)當(dāng)前項(xiàng)的s=-s交替為正，在負(fù)的n=n 2變動(dòng)值n上加上2 t=1/n * (1/2 n 1/3 n )，得到當(dāng)前項(xiàng)的絕對(duì)值Loop Print=； pi * 4普拉姆執(zhí)行結(jié)果：3.141562、例5.6用級(jí)數(shù)、求出的近似值。 在最后一項(xiàng)的絕對(duì)值小于10-5的情況下，停止計(jì)算，例如5.6，“反相除法”算法：求出m/n馀數(shù)p，如果p0，n為最大公約數(shù)，p不為0，則將原來(lái)的分母n設(shè)為新的分子m，將馀數(shù)p設(shè)為新的分母n，繼續(xù)求出設(shè)計(jì)步驟： (1) 示例5.7“計(jì)算”按鈕Click上通告過(guò)程查詢(xún)密碼為：創(chuàng)

8、建應(yīng)用程序的用戶(hù)界面和要設(shè)置的屬性，并輸入兩個(gè)示例5.7正整數(shù)，以確定它們的最大公約數(shù)。 隱私子命令1 _ click () dimmsassainteger， ncassainteger psascintegerm=val (text1. text ) : n=val (text2. text ) IFM0text3. text=mbendsub輸入的m和n的值為8.5和6.8的情況下，執(zhí)行結(jié)果如上圖所示語(yǔ)句的格式： While條件循環(huán)Wend功能：條件成立(真)時(shí)執(zhí)行循環(huán)體，語(yǔ)句的格式： While條件循環(huán)體Wend功能：條件成立(真)時(shí)執(zhí)行循環(huán)體，條件不成立(假)時(shí)，結(jié)束循環(huán)。 此語(yǔ)句類(lèi)

9、似于上面的Do While.Loop循環(huán)語(yǔ)句，但是While.Wend語(yǔ)句不能使用Exit語(yǔ)句脫離循環(huán)。5.1.3 While.Wend循環(huán)語(yǔ)句，提前結(jié)束循環(huán)形式： Exit For|Do功能：從For循環(huán)或Do循環(huán)直接執(zhí)行結(jié)束程序時(shí)發(fā)生Exit語(yǔ)句時(shí)，不執(zhí)行循環(huán)體中的語(yǔ)句而直接結(jié)束，循環(huán)語(yǔ)句(Next，Loop )的鍵入-1時(shí)終止的程序執(zhí)行創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性寫(xiě)入器查詢(xún)密碼private subform _ load () show sum=0dowhiletrue條件為真， 循環(huán)不結(jié)束，x=val (請(qǐng)輸入inputbox (-1結(jié)束)輸入數(shù)據(jù)) ifx=-1 thenex

10、itdomendifsum=sumxtext1. text=sumloopmsgbox (累計(jì)運(yùn)算結(jié)束) End Sub 示例5.8設(shè)計(jì)“加法器”計(jì)程儀程序的示例5.8多重循環(huán)是指在循環(huán)中包含循環(huán)語(yǔ)句的示例5.9多重循環(huán)計(jì)程儀程序的執(zhí)行結(jié)果privatesubform_load () 1show1fori=1to3外環(huán)1 7 For j=5 To 7內(nèi)環(huán)25 print ij 26 next j 27 next I 35 end sub 3637注意內(nèi)外循環(huán)層次明確且不能交叉，5.2多重循環(huán)，例5.9，本例可以通過(guò)雙重循環(huán)實(shí)現(xiàn)。 外環(huán)控制輸出7行，內(nèi)環(huán)控制輸出每行的請(qǐng)求字符數(shù)。 進(jìn)入內(nèi)循環(huán)之前

11、，使用Print Tab ()放置起始輸出位置，退出內(nèi)循環(huán)后，使用Print控制換行符。建立例子5.10的堆計(jì)程儀項(xiàng)，輸出如下所示的圖，例子5.10，使用打印直接將結(jié)果輸出到表單，堆計(jì)程儀項(xiàng)查詢(xún)密碼定義為private subform _ load () show fori=1to7print tab (1.0-I )； nextjprintnextiendsubprintchr (I 4.8 )與Print i不同，(1)分析：一元硬幣為a枚，二元硬幣為b枚，五元硬幣為c枚， 公式a b c=10 a 2b 5c=25并采用雙循環(huán)，外循環(huán)變量a從010，內(nèi)循環(huán)變量b從010生成應(yīng)用程序的交互

12、界面，例子5.11有多少不同的方法支付一元、二元、五元硬幣共計(jì)十枚，2.5元的錢(qián)，例子5.11、(3) private subform _ load () showcurrenctx=03360 currency=1500開(kāi)始顯示的坐標(biāo)Print，5元，2元單元n=0勒查詢(xún)密碼解析的組數(shù)fora=0to 1.0 forb=0to 1.0 c=1.0-b-a FIFA2* bb n； c，b，a End If Next b，a End Sub，如果執(zhí)行以下段，則變量t的值為 t=0forx=2to3n=1dowhilin=xtt=tnn=n1 loopnextxa.8b.9c.10d.1.1，回答問(wèn)題，思考，思考，思考，思考，結(jié)果1.6 執(zhí)行以下步驟后，顯示的結(jié)果為： _ _ _ _ _ _ _ _ _ _ s=0form=1to4step2n=1dowhilin=MSN=n1loopnextmprint，示例5.12a， 在5.3列表框和組合框中，列表框和組合框是可以為用戶(hù)提供多種選項(xiàng)的用戶(hù)可以任意選擇的5.3.1列表框(listbox )列表膩?zhàn)臃郏鹤址?lèi)型數(shù)組，存儲(chǔ)列表框的表項(xiàng)目數(shù)組例如，List1.List(0)的值是“教授”，而List1.List(1)的值是“副教授”。 list count property :表項(xiàng)目數(shù)text property :當(dāng)前選定表項(xiàng)目的