循环结构VB程序设计.pptx

3.3 3.3 循环结构循环结构2.2.条件型循环条件型循环 DoDoLoopLoop 用于在一定的条件下多次重复执行用于在一定的条件下多次重复执行一组语句一组语句,共分为两类共分为两类:1.1.计数型循环计数型循环 ForForNextNext3.3.1 3.3.1 ForFor循环语句循环语句 (一般用于循环次数已知一般用于循环次数已知)形式如下：形式如下：For For 循环变量初值循环变量初值 to 终值终值 Step 步长步长 语句块语句块 Exit For 语句块语句块Next 循环变量循环变量循环变量循环变量:必须是数值型必须是数值型语句块语句块:可以是一条或多条语句可以是一条或多条语句,称之为称之为循环体循环体 For For 循环流程图循环流程图有Exit ForFTTF循环变量得到初值循环变量在终值内语句块循环变量加步长Exit for:Exit for:当遇到该语句当遇到该语句,退出循环退出循环,执行执行NextNext的下一条语句的下一条语句步长步长0 初值初值 终值终值 =1 =1 时时,可省略可省略 终值终值=0 死循环死循环循环次数循环次数intint（终值终值-初值）初值）/步长步长+1+1）例例:For I=2 To 13 Step 3 Print I,Next I Print :Print“I=“;I结果：结果：输出输出I I的值分别为的值分别为:2 5 8 11循环执行次数：循环执行次数：循环结束输出为循环结束输出为:I=14I=14(初值初值+循环次数循环次数*步长步长)思考：若初值和终值颠倒，循环执行几次？若初值和终值颠倒，循环执行几次？若步长若步长Step为为-3，循环几次？，循环几次？下面程序的作用是什么？下面程序的作用是什么？Private Sub Form_Load()Dim i As Integer,s As Integer Show 加载窗体时，显示数据加载窗体时，显示数据s=0For i=2 To 100 Step 2 s=s+iNext iPrint s=;sEnd Sub例：例：求自然数求自然数1-301-30的乘积的乘积(即即3030的阶乘的阶乘)Private Sub Form_Click()s=1For i=1 To 10 s=s*i Print i;的阶乘是：的阶乘是：;sNext iEnd Sub习题1、计算下列循环的次数、计算下列循环的次数 （1）For I=-3 To 20 Step 4 （2）For I=-3.5 To 5.5 Step 0.5 （3）For I=-3.5 To 5.5 Step -0.5 （4）For I=-3 To 20 Step 02119不循环不循环无数次无数次2、要使下列、要使下列For语句循环执行语句循环执行20次，循环变量的次，循环变量的初值应当是：初值应当是：For k=_ To 5 Step-2333、以下、以下_是正确的是正确的ForNext结构。结构。A.For x=1 Next xC.For x=3 To 10 Step 3 Next yB.For x=3 To 3 Step 3 Next xB3.3.2 3.3.2 DoDoLoopLoop循环语句循环语句 (用于控制循环次数未知用于控制循环次数未知)形式形式1：形式形式2：Do While|Until 语句块语句块 Exit Do 语句块语句块LoopDo 语句块语句块 Exit Do 语句块语句块Loop While|Until Do While Do While Loop Loop 流程图流程图Do Do While Loop While Loop 流程图流程图条件语句块语句块TF语句块语句块条件TF有Exit DoFT有Exit DoFT注意：注意：1.1.形式形式1 1先判断后执行，有可能一次也不执行；先判断后执行，有可能一次也不执行；形式形式2 2先执行后判断，最少执行一次循环体。先执行后判断，最少执行一次循环体。2.2.WhileWhile用于指明条件为真时执行循环体；用于指明条件为真时执行循环体；UntilUntil刚好相反。刚好相反。3.3.当省略了当省略了 While|UntilWhile|Until 子句，表示子句，表示 无条件循环，循环体中应有无条件循环，循环体中应有Exit DoExit Do语句，语句，否则为否则为死循环死循环。4.4.遇到遇到Exit DoExit Do语句时退出循环，执行语句时退出循环，执行LoopLoop下一下一 条语句。条语句。例例:我国有我国有13.213.2亿人口亿人口,按出生率为按出生率为0.5%0.5%的增长的增长率率,多少年后超过多少年后超过2020亿亿Private Sub Form_Load()Dim m As DoubleDim yearr As IntegerShowm=1320000000#:yearr=0Do While m 200000000000#m=m+m*0.0005 yearr=yearr+1LoopPrint yearr;年后我国的人口为：年后我国的人口为：;mEnd SubDoLoop循环循环解决算术运算解决算术运算 例例3-13DoLoop与 ForNext的转换 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为最大公约数结束；为最大公约数结束；否则执行否则执行(4)(4)；(4)(4)m mn n，n nr r，再重复执行再重复执行(2)(2)。思考题思考题 m n r 14 6 2 6 2 0求求 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 2,输入一个数，判断该数是否为素数。输入一个数，判断该数是否为素数。素数只能被素数只能被1和他本身整除的数（例：和他本身整除的数（例：5，7，11）。）。Dim a As Integer,ii As Integera=Val(InputBox(“请输入一个数请输入一个数”)For ii=1 to a-1 Step 1 If a mod ii=0 Then Exit ForNext iiIf ii=a then Print a;“是素数是素数”else Print a;”不是素数不是素数”用用DoLoop 做呢？做呢？书书P93