循环结构VB程序设计实用教案

1、会计学1循环循环(xnhun)结构结构VB程序设计程序设计第一页，共18页。3.3.1 For3.3.1 For循环语句循环语句 ( (一般一般(ybn)(ybn)用于循环次数已知用于循环次数已知) )形式形式(xngsh)如下：如下：For For 循环变量循环变量(binling)(binling)初值初值 toto 终值终值 Step Step 步长步长 语句块语句块 Exit For Exit For 语句块语句块Next Next 循环变量循环变量(binling)(binling)循环变量循环变量: :必须是数值型必须是数值型语句块语句块: :可以是一条或多条语句可以是一条或多条语

2、句, , 称之为称之为循环体循环体 第1页/共18页第二页，共18页。For For 循环循环(xnhun)(xnhun)流程图流程图有Exit ForFTTF循环变量得到初值循环变量在终值内语句块循环变量加步长第2页/共18页第三页，共18页。Exit for :Exit for :当遇到该语句当遇到该语句, ,退出退出(tuch)(tuch)循环循环, , 执行执行NextNext的下一条语句的下一条语句步长步长0 初值初值终值终值 =1 时时,可省略可省略(shngl) 终值终值=0 死循环死循环循环循环(xnhun)(xnhun)次数次数intint（终值（终值- -初值）初值）/ /

3、步长步长+1+1）第3页/共18页第四页，共18页。例例: :For I=2 To 13 Step 3 Print I , Next I Print : Print “I=“; I结果：结果： 输出输出I I的值分别为的值分别为: : 2 5 8 11循环执行次数：循环执行次数：4) 1(3213Int循环结束输出为循环结束输出为: : I=14I=14( (初值初值+ +循环次数循环次数* *步长步长) )思考：若初值和终值颠倒，循环(xnhun)执行几次？ 若步长Step为-3，循环(xnhun)几次？第4页/共18页第五页，共18页。下面程序下面程序(chngx)(chngx)的作用是的

4、作用是什么？什么？Private Sub Form_Load()Dim i As Integer, s As Integer Show 加载窗体时，显示加载窗体时，显示(xinsh)数数据据s = 0For i = 2 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub第5页/共18页第六页，共18页。例：求自然数例：求自然数1-301-30的乘积的乘积(chngj)(chngj)(即即3030的阶的阶乘乘) )Private Sub Form_Click()s = 1For i = 1 To 10 s = s * i Print i; 的阶乘的阶乘

5、(ji chn)是：是：; sNext iEnd Sub第6页/共18页第七页，共18页。（4）For I= -3 To 20 Step 02119不循环不循环(xnhun)无数次无数次第7页/共18页第八页，共18页。333、以下、以下_是正确是正确(zhngqu)的的ForNext结构。结构。 A. For x = 1 Next xC.For x=3 To 10 Step 3 Next yB. For x=3 To 3 Step 3 Next xB第8页/共18页第九页，共18页。3.3.2 DoLoop3.3.2 DoLoop循环语句循环语句(yj)(yj) ( (用于控制循环次数未知用

6、于控制循环次数未知) )形式形式(xngsh)1：形式形式(xngsh)2：Do While|Until 语句块语句块 Exit Do 语句块语句块LoopDo 语句块语句块 Exit Do 语句块语句块Loop While|Until 第9页/共18页第十页，共18页。Do While Do While Loop Loop 流程图流程图Do Do While Loop While Loop 流程图流程图条件(tiojin)语句(yj)块语句(yj)块TF语句块语句块条件TF有Exit DoFT有Exit DoFT第10页/共18页第十一页，共18页。注意注意(zh y)： 1. 1.形式形式

7、1 1先判断后执行先判断后执行(zhxng)(zhxng)，有可能一次，有可能一次也不执行也不执行(zhxng)(zhxng)； 形式形式2 2先执行先执行(zhxng)(zhxng)后判断，最少执行后判断，最少执行(zhxng)(zhxng)一次循环体。一次循环体。 2.While 2.While用于指明条件为真时执行用于指明条件为真时执行(zhxng)(zhxng)循环体循环体； Until Until刚好相反。刚好相反。 3. 3.当省略了当省略了 While|UntilWhile|Until 子句，表示子句，表示 无条件循环，循环体中应有无条件循环，循环体中应有Exit DoExit

8、Do语句，语句， 否则为否则为死循环死循环。 4. 4.遇到遇到Exit DoExit Do语句时退出循环，执行语句时退出循环，执行LoopLoop下一下一 条语句。条语句。第11页/共18页第十二页，共18页。例例: :我国有我国有13.213.2亿人口亿人口, ,按出生率为按出生率为0.5%0.5%的增的增长率长率, ,多少多少(dusho)(dusho)年后超过年后超过2020亿亿Private Sub Form_Load()Dim m As DoubleDim yearr As IntegerShowm = 1320000000#: yearr = 0Do While m 200000

9、000000# m = m + m * 0.0005 yearr = yearr + 1LoopPrint yearr; 年后我国的人口年后我国的人口(rnku)为：为：; mEnd SubDoLoop循循环解决算术环解决算术(sunsh)运运算算 例例3-13第13页/共18页第十四页，共18页。DoLoop与 ForNext的转换(zhunhun) For I=1 to 10 I=1 Do Next I=I+1 Loop While Inmn；(2) (2) m m除以除以n n得余数得余数r r；(3)(3)若若r=r=0 0，则则n n为最大公约数结束；为最大公约数结束； 否则执行否则

10、执行(4)(4)；(4)(4)m mn n，n nr r，再重复执行再重复执行(2)(2)。 m n r 14 6 2 6 2 0第15页/共18页第十六页，共18页。求求 m=14 ,n=6m=14 ,n=6 的最大公约数。的最大公约数。If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公约数最大公约数=, n 第16页/共18页第十七页，共18页。Dim a As Integer , ii As Integera=Val ( InputBox(“请输入一个请输入一个(y