VB程序設(shè)計課件第9講-Do循環(huán)講課教案

第九講Do...Loop循環(huán)編程小貼士設(shè)置屬性確定事件；構(gòu)思算法草擬代碼；多寫注釋調(diào)整思路；全面檢查就這一招！編程思想：“初始化－>輸入－>處理－>輸出”1主要內(nèi)容：Do/Loop語句小花：老師，我想交卷了老師：才開考20分鐘，還早呢！再檢查！2對只知道循環(huán)終止條件，可采用Do/Loop循環(huán)Do/Loop（條件循環(huán)）3DimN%,Result#

Dimi%

N=Val(InputBox("n="))

Result=1

Fori=1ToN

Result=Result*i

Nexti

MsgBoxResult

DimN%,Result#

Dimi%

N=Val(InputBox("n="))

Result=1

MsgBox

Result【例】：求n!Do/Loop循環(huán)應(yīng)該在循環(huán)開始前設(shè)置初值DoWhilei<=N

Result=Result*i

Loopi=i+1:i=15例：計算1~100內(nèi)的某數(shù)的倍數(shù)及個數(shù)DoWhile

Loop6【例】求π的值。直到最后一項<0.0000001n=1:Sum=0DoWhile1/(2*n-1)>=0.0000001Sum=Sum+(-1)^(n+1)/(2*n-1)n=n+1Loop7檢查順序：1.求出待加的項2.累加3.將項數(shù)基數(shù)增加，定位于下一項第一步：找出后一項與前一項的關(guān)系，寫出關(guān)系式，將求和過程表示成sum=sum+item的形式第二步：確定初值分?jǐn)?shù)項求和8sum=0:n=1DoWhilesum<10sum=sum+1/n

n=n+1LOOPm=n-2m=3600時，求和項結(jié)果？9【例】輸入兩整數(shù)，求最大公約數(shù)和最小公倍數(shù)。求最大公約數(shù)可用輾轉(zhuǎn)相除法（帶余除法）：(1)已知兩數(shù),A除以B得余數(shù)r(2)若r=0，則B為最大公約數(shù)，結(jié)束；否則執(zhí)行(3)(3)A

B，B

r，再求余數(shù)并重復(fù)執(zhí)行(2)該算法循環(huán)次數(shù)未知，但循環(huán)條件已知10作用是退出Do/Loop循環(huán)，執(zhí)行Loop后面的語句往往與If語句合用如：DoWhile(1)Result=Result*i

i=i+1Ifi>NThenExitDo TextBox1.Text=i

LoopExitDo語句11幾種循環(huán)比較12

1111111111111111111111111打印圖形循環(huán)，借助space、trim、mid、str131．Do…Loop的各種格式，while和until的