循環(huán)結(jié)構(gòu)程序設(shè)計(jì)初步Do語句

s=1+1/2+1/3+……+1/n，當(dāng)n=？時(shí)，s第一次大于10。特征：無法預(yù)先知道循環(huán)的次數(shù)，在遞推過程中才能確定是否結(jié)束循環(huán)。循環(huán)結(jié)構(gòu)程序設(shè)計(jì)——麗水第二高級(jí)中學(xué)——《算法與程序設(shè)計(jì)》——Do語句Do語句DoWhiles<=10 i=i+1 s=s+iLoopDo語句一般格式：DoWhile條件表達(dá)式語句1語句2（循環(huán)體）……Loop每次返回重新判斷條件是否成立，成立繼續(xù)循環(huán)。Do語句開始表達(dá)式執(zhí)行循環(huán)體結(jié)束TFDo語句一般格式：DoWhile條件表達(dá)式語句1語句2（循環(huán)體）……Loop每次返回重新判斷條件是否成立，成立繼續(xù)循環(huán)。Do語句編寫步驟（1）確定條件變量的初值（2）確定滿足循環(huán)條件的表達(dá)式（邏輯型）（3）寫循環(huán)體，在循環(huán)體中一定要有能改變循環(huán)條件變量的表達(dá)式。Do語句與For語句的區(qū)別區(qū)別：For循環(huán)只能用在循環(huán)次數(shù)已知的情況。凡是用For循環(huán)的程序都可以用Do循環(huán)來寫。循環(huán)次數(shù)未知時(shí)，只能用Do循環(huán)。Do語句課前問題回顧s=1+1/2+1/3+……+1/n，當(dāng)n=？時(shí)，s第一次大于10。PrivateSubCommand1_Click()DimsAsSingle,nAsIntegers=0n=1Text1.Text=Str(n)EndSubDoWhiles<=10n=n+1s=s+1/nLoopDo語句課前問題回顧PrivateSubCommand1_Click()DimsAsSingle,nAsIntegers=0n=1Text1.Text=Str(n)EndSubs=1+1/2+1/3+……+1/n，當(dāng)n=？時(shí)，s第一次大于10。DoWhiles<=10s=s+1/nn=n+1LoopLongDo語句練習(xí)1s=0：t=1Fort=1To6Step2s=s+tNexttFor–Do改寫：使左右兩邊VB程序段實(shí)現(xiàn)相同功能。s=0：t=1DoWhilet<=6s=s+t11111111111Loopt=t+2Do語句練習(xí)2有如下VB程序段：s=0x=1DoWhilex<=5s=s+xx=x+1Loop該程序段運(yùn)行后，語句s=s+x執(zhí)行的次數(shù)是（）A.1B.2C.3D.5DDo語句練習(xí)3有如下VB程序段：s=0：i=1DoWhiles=s+ii=i+2Loop該程序段運(yùn)行后，變量s的值等于9，則程序中畫線處的語句是（）A.i<5B.i<=5C.i<=7D.i=9BDo語句練習(xí)4有如下VB程序段：s=1：c=0flag=TrueDoWhileflags=s+2Ifs>5Thenflag=Falsec=c+1LoopLabel1.Caption=Str(s+c)該程序段運(yùn)行后標(biāo)簽Label1上顯示的是（）A.3B.7C.10D.12CDo語句課堂任務(wù)編寫“去除前置0”程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)數(shù)據(jù)，單擊“去除”按鈕Command1，在標(biāo)簽Label1上顯示結(jié)果。程序運(yùn)行界面如圖a所示。圖a1234圖b(1)在設(shè)計(jì)程序界面時(shí)，應(yīng)使用圖b所示“控件工具箱”中的（填寫相應(yīng)編號(hào)）添加“Text1”文本框。2Do語句課堂任務(wù)(2)實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)趧澗€處填入合適的代碼。PrivateSubCommand1_Click()DimsAsString,iAsIntegerDimnAsStrings=Text1.Textn=①i=1DoWhilei<=nch=Mid(s,i,1)Ifch="0"Theni=i+1ElseExitDo'退出循環(huán)EndIfLoopLabel1.Caption="結(jié)果為："+②

EndS