2023學(xué)年完整公開(kāi)課版DO循環(huán)語(yǔ)句

程序的循環(huán)結(jié)構(gòu)

—DO…loopuntil循環(huán)語(yǔ)句教者：李學(xué)法安化二中信息技術(shù)教研組1、FOR循環(huán)語(yǔ)句的格式For循環(huán)變量=初值To終值Step步長(zhǎng)語(yǔ)句組Next循環(huán)變量知識(shí)回顧說(shuō)明:1、循環(huán)變量為數(shù)值型變量。2、初值、終值、步長(zhǎng)均為數(shù)值表達(dá)式。3、當(dāng)初值小于終值時(shí)，步長(zhǎng)為正數(shù)；當(dāng)初值大于終值時(shí)，步長(zhǎng)為負(fù)數(shù)。當(dāng)步長(zhǎng)為1時(shí)，Step步長(zhǎng)可以省略。4、語(yǔ)句組可以是一個(gè)或者多個(gè)語(yǔ)句，又稱作循環(huán)體。5、循環(huán)體執(zhí)行的次數(shù)為（終值-初值）/步長(zhǎng)+1的整數(shù)部分。實(shí)踐：閱讀下列程序，跟蹤程序的執(zhí)行過(guò)程，觀察變量i的值的變化，寫出循環(huán)結(jié)束時(shí)變量i的值、循環(huán)次數(shù)和程序的運(yùn)行結(jié)果。知識(shí)回顧PrivateSubCommand1_Click()Dimi,sAsIntegerS=0Fori=1To100s=s+iNextIPrintsEndSubis112336……1005050101退出循環(huán)該程序是計(jì)算1+2+3+…+100的值，共執(zhí)行了100次展示課堂任務(wù)假設(shè)紙的長(zhǎng)度足夠長(zhǎng)，厚度為0.1毫米，對(duì)折一次厚度增加一倍，現(xiàn)在對(duì)折紙張，直到總厚度超過(guò)珠穆朗瑪峰的高度為止（珠穆朗瑪峰的高度為8848.13米),求對(duì)折紙張的次數(shù).編寫程序解決這個(gè)問(wèn)題。任務(wù)分析：前面學(xué)過(guò)的For循環(huán)語(yǔ)句，它適合于知道重復(fù)次數(shù)的循環(huán)。但在上面這個(gè)任務(wù)中不能預(yù)先確定重復(fù)的次數(shù)，這時(shí)不能使用For循環(huán)語(yǔ)句。為此，VB語(yǔ)言還提供了一種稱為Do循環(huán)的語(yǔ)句，使得循環(huán)更加靈活方便。一、Do循環(huán)語(yǔ)句1、Do循環(huán)語(yǔ)句的基本格式

Do

循環(huán)體

LoopUntil

循環(huán)終止條件說(shuō)明：1、循環(huán)體是一組VB語(yǔ)句。2、循環(huán)終止條件是一個(gè)關(guān)系或邏輯表達(dá)式。新課講授2、DO循環(huán)語(yǔ)句的執(zhí)行過(guò)程執(zhí)行循環(huán)體

滿足循環(huán)終止條件嗎？是否新課講授2、如果循環(huán)體中沒(méi)有i=i+1這條語(yǔ)句，程序會(huì)出現(xiàn)什么情況？說(shuō)明：1、DO循環(huán)語(yǔ)句的循環(huán)體中必須有改變循環(huán)終止條件的語(yǔ)句,不然將會(huì)出現(xiàn)無(wú)限次的循環(huán),程序?qū)⒉荒苷＝Y(jié)束。i=1:s=0Dos=s+ii=i+1Loopuntili>100Prints3、閱讀程序1、講述此程序的執(zhí)行過(guò)程。2、Do-loop循環(huán)中的循環(huán)體至少被執(zhí)行一次。新課講授提問(wèn)：（死循環(huán)）二、舉例說(shuō)明PrivateSubCommand1_Click()DimhassingleDimnAsIntegerN=0H=0.1DoN=n+1H=h*2Loopuntilh>8848130Print“對(duì)折紙張的次數(shù)為:”;nEndSub新課講授假設(shè)紙的長(zhǎng)度足夠長(zhǎng)，厚度為0.1毫米，對(duì)折一次厚度增加一倍，現(xiàn)在對(duì)折紙張，直到總厚度超過(guò)珠穆朗瑪峰的高度為止（珠穆朗瑪峰的高度為8848.13米),求對(duì)折紙張的次數(shù).編寫程序解決這個(gè)問(wèn)題。運(yùn)行程序課堂練習(xí)已知S=1+2+3+…+N，找出一個(gè)最大的整數(shù)N，使得S〈3000。編寫程序解決這個(gè)問(wèn)題。PrivateSubCommand1_Click()DimnAsInteger

Dimsasin