




版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、精選優(yōu)質(zhì)文檔-傾情為你奉上循環(huán)結(jié)構(gòu)是指在一定條件下多次重復(fù)執(zhí)行一組語(yǔ)句。VB中提供了兩種循環(huán)語(yǔ)句,它們是For語(yǔ)句和Do語(yǔ)句。 1. For循環(huán)語(yǔ)句 如果己知某一段代碼需要重復(fù)執(zhí)行的次數(shù),可以使用For循環(huán)語(yǔ)句。該語(yǔ)句的一般形式如下: For<循環(huán)變量>=<初值>To<終值>Step<步長(zhǎng)> <語(yǔ)句塊> Exit ForNext<循環(huán)變量>例如:For i=l To 8 Step1 Print “這是文本”&iNext i
2、; 該段代碼的功能是在窗體上顯示8行文本,如圖3.16所示。如果不采用循環(huán)結(jié)構(gòu),則需要使用8條Print語(yǔ)句來(lái)實(shí)現(xiàn)相同的功能。For語(yǔ)句中的循環(huán)變量必須是數(shù)值型,初值、終值以及步長(zhǎng)則是具體的數(shù)值Fornext步長(zhǎng)用來(lái)指定循環(huán)變量每次的增量,當(dāng)所有循環(huán)體中的語(yǔ)句都執(zhí)行后,循環(huán)變量就會(huì)自動(dòng)增加一個(gè)步長(zhǎng)。默認(rèn)的步長(zhǎng)為1.For語(yǔ)句的執(zhí)行流程如圖3.17所示。 具體執(zhí)行流程為: (1)將初值賦給循環(huán)變量。 (2)判斷循環(huán)變量的取值是否在終值范圍內(nèi)否則結(jié)束循環(huán),執(zhí)行Next
3、的下一條語(yǔ)句。 (3)將循環(huán)變量的取值自動(dòng)增加一個(gè)步長(zhǎng),然后回轉(zhuǎn)到步驟(2)繼續(xù)執(zhí)行。 若是則執(zhí)行循環(huán)體內(nèi)的語(yǔ)句,循環(huán)中可以在任何位置放置任意個(gè)Exit FOr語(yǔ)句,該語(yǔ)句的作用是退出循環(huán),轉(zhuǎn)到Next語(yǔ)句的下一條語(yǔ)句。Exit For語(yǔ)句經(jīng)常在條件判斷之后使用,例如在IfThen語(yǔ)句之后。 例如,修改上例如下: For I=1 To 10 For J=1 To 10 For K= 1 To 10 . Next K Next JNext I實(shí)例3.3打印九九乘法表
4、 本例講解怎樣打印九九乘法表,如圖3.18所示。九九乘法表的打印看起來(lái)很煩瑣,但是如果使用嵌套循環(huán),則問(wèn)題變得非常簡(jiǎn)單。 打開(kāi)【代碼】窗口,編寫(xiě)窗體的Click事件過(guò)程如下: Private Sub form_Click()Print“-九九乘法表-”P(pán)rintFor i=1 To 9 For j=1 To i s=i*j Print j & “X”& i & “=” & s Next j Print Next iEnd Sub 在該段代碼中,首先使用Pr
5、int方法打印出標(biāo)題和一個(gè)空行。然后使用了一個(gè)兩重的嵌套循環(huán)結(jié)構(gòu)。關(guān)于Print方法的使用細(xì)節(jié)請(qǐng)參見(jiàn)下一章。2.Do循環(huán)語(yǔ)句 如果不知道某一段代碼需要重復(fù)執(zhí)行的次數(shù),可以使川Do循環(huán)語(yǔ)句0該語(yǔ)句有兩種基本形式: (1)Do While<表達(dá)式> 循環(huán)體 Exit Do Loop 這種格式的Do循環(huán)先判斷條件,后執(zhí)行循環(huán)體。與IfThen語(yǔ)句類(lèi)似,While子句的<
6、表達(dá)式>一般是關(guān)系表達(dá)式或邏輯表達(dá)式,也可以是算術(shù)表達(dá)式。如果表達(dá)式的值不為零(True),即條柞為真,則執(zhí)行循環(huán)體。如果表達(dá)式的值為零False) ,即條件為假,則終止循環(huán)。其流程如圖3.19所示。 例如,通過(guò)下列代碼,可以求出2460和345的最大公約數(shù)。 Private Sub Form_Click()m=2460:n=345Dim s As SingleDo while(n<>0) s=m Mod n m=n n=sLoop Print“最大公約數(shù)=” & mEnd Sub 在
7、DoLoop中可以在任何位置放置任意個(gè)數(shù)的Exit Do語(yǔ)句,隨時(shí)跳出Do-Loop循環(huán)。Exit Do通常用于條件判斷之后,例如Ifthen,在這種情況下,Exit Do語(yǔ)句將控制權(quán)轉(zhuǎn)移到緊接在Loop命令之后的語(yǔ)句。如果Exit Do使用在嵌套的DoLoop語(yǔ)句中,則Exit Do會(huì)將控制權(quán)轉(zhuǎn)移到Exit Do所在位置的外層循環(huán)。 While子句也可以出現(xiàn)在Loop語(yǔ)句后,形式如下: Do. 循環(huán)體。 Exit Do. Loop While<表達(dá)式>. 這種格式的特點(diǎn)是先執(zhí)行循環(huán)體,后判斷條件。也就是說(shuō)第一次進(jìn)入循環(huán)是無(wú)條件的。循環(huán)體至少會(huì)被執(zhí)行一次,其流程如圖3.20所示。而如果While子句出現(xiàn)在Do后,則可能一次也不執(zhí)行。 (2) Do Until<表達(dá)式>. 循環(huán)體。 Exit Do. Loop. 將Whi
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 城六區(qū)中考試題及答案解析
- 2025年金融科技企業(yè)估值方法深度解析與應(yīng)用場(chǎng)景研究報(bào)告
- 2025年金融機(jī)構(gòu)風(fēng)險(xiǎn)管理數(shù)字化轉(zhuǎn)型中的金融犯罪預(yù)防策略報(bào)告
- 2025年金融服務(wù)行業(yè)金融科技風(fēng)險(xiǎn)控制與安全防護(hù)研究報(bào)告
- 2025年金融AI倫理與監(jiān)管政策在銀行風(fēng)險(xiǎn)管理中的應(yīng)用報(bào)告
- 2025至2030隱形眼鏡行業(yè)產(chǎn)業(yè)運(yùn)行態(tài)勢(shì)及投資規(guī)劃深度研究報(bào)告
- 2025年航空航天高精度加工技術(shù)在航空航天器零部件制造中的鋁合金電鍍涂層技術(shù)報(bào)告
- 2025年高效太陽(yáng)能熱利用技術(shù)在太陽(yáng)能照明系統(tǒng)中的應(yīng)用報(bào)告
- 寧夏銀川市興慶區(qū)長(zhǎng)慶高級(jí)中學(xué)2025屆高一下化學(xué)期末監(jiān)測(cè)試題含解析
- 2025屆福建省霞浦縣第一中學(xué)化學(xué)高二下期末預(yù)測(cè)試題含解析
- 廣東省申請(qǐng)?jiān)O(shè)立出版物零售單位登記表-空白表
- 欣賞《嘎達(dá)梅林》-課件
- GB/T 4074.8-2009繞組線(xiàn)試驗(yàn)方法第8部分:測(cè)定漆包繞組線(xiàn)溫度指數(shù)的試驗(yàn)方法快速法
- GB/T 28575-2020YE3系列(IP55)三相異步電動(dòng)機(jī)技術(shù)條件(機(jī)座號(hào)63~355)
- 國(guó)際公法學(xué) 馬工程課件 4 第四章
- 青海省西寧市《職業(yè)能力測(cè)試》事業(yè)單位國(guó)考真題
- 溝通中的提問(wèn)技巧課件
- 2023年浙江黃龍?bào)w育發(fā)展有限公司招聘筆試模擬試題及答案解析
- 外科學(xué)骨折概論課件
- 阿片類(lèi)藥物鎮(zhèn)痛機(jī)制課件
- 產(chǎn)品成本核算流程圖
評(píng)論
0/150
提交評(píng)論