VBA程序流程控制语句

1、1本节内容及要求：本节内容及要求： 1.1.熟练掌握行熟练掌握行ifif语句、块语句、块ifif结构、结构、select caseselect case情况选择情况选择结构有使用，掌握选择的嵌套结构；结构有使用，掌握选择的嵌套结构； 2.2.熟练掌握实现循环结构的熟练掌握实现循环结构的for/nextfor/next循环结构及循环结构及exit exit forfor语句、语句、do/loopdo/loop循环结构的使用，掌握多重循环。循环结构的使用，掌握多重循环。本章重点：本章重点： 选择结构及循环结构的实现及其应用选择结构及循环结构的实现及其应用本章难点：本章难点： 选择的嵌套及多重循环结

2、构选择的嵌套及多重循环结构vbavba程序流程控制语句程序流程控制语句2执行语句分为执行语句分为3种结构：种结构：顺序结构：顺序结构：顺序结构是最基本的程序结构，按程序中语句编写的先后顺序逐条执行。条件结构：条件结构：根据条件选择运行的结果。循环结构：循环结构：对程序中的某段代码重复执行时，可以使用循环结构。3分支语句分支语句goto goto 语句语句 形式形式: : go to go to 标号标号| |行号行号 作用是无条件地转移到标号或行号指定的那行语句作用是无条件地转移到标号或行号指定的那行语句. . 标号是一个字符序列标号是一个字符序列, ,行号是一个数字序列。行号是一个数字序列。

3、例如：例如： lp: lp: goto lp goto lp 4条件测试语句条件测试语句1.1. ififthenthen语句语句( (单分支结构单分支结构) ) if if then then 语句块语句块 end ifend if 或或 if if then then 例例: :已知两个数已知两个数x x和和y y，比较它们的大小，比较它们的大小， 使得使得x x大于大于y.y. if xy thenif xy then t=x : x=y: y=t t=x : x=y: y=t end if end if 或或 if xy then t=x: x=y: y=tif xy then t=x

4、: x=y: y=tn条件语句序列end ify5条件测试语句条件测试语句2. if2. ifthenthenelseelse语句语句( (双分支结构双分支结构) ) if if then then 1 else else 2 end if end if if if then then else else 2 双分支选择结构执行过程双分支选择结构执行过程 条件n语句序列1end if后面的语句y语句序列26条件测试语句条件测试语句例如：输出例如：输出x,yx,y两个中值较大的一个值。两个中值较大的一个值。if x y thenif x y then print x print xelseels

5、e print y print yend ifend if也可以写成如下的单行形式：也可以写成如下的单行形式： iif (x y ,print x , print y)iif (x y ,print x , print y)7条件测试语句条件测试语句ififthenthenelseifelseif语句语句( (多分支结多分支结构构) ) 形式形式: : if if then1 then 1 elseif elseif then2then 2 else else 语句块语句块 n+1n+1 end if end if8条件测试语句条件测试语句 例：输入一学生成绩，评定其等级。方法是：例：输入一学

6、生成绩，评定其等级。方法是：9010090100分为分为“优秀优秀”，80898089分为分为“良好良好”，70797079分为分为“中等中等”，60696069分为分为“及格及格”，6060分以为分以为“不合格不合格”使用使用ifif语句实现的程序段如下：语句实现的程序段如下：if x=90 thenif x=90 then print print 优秀优秀 elseif x=80 thenelseif x=80 then print print 良好良好 elseif x=70 then elseif x=70 then print print 中等中等 elseif x=60 then

7、elseif x=60 then print print 及格及格 else else print print 不及格不及格 end ifend if9条件测试语句条件测试语句4 . select case4 . select case语句（情况语句）语句（情况语句）形式：形式：select case select case 变量或表达式变量或表达式case case 表达式列表表达式列表1 1语句块语句块1 1case case 表达式列表表达式列表2 2语句块语句块2 2case elsecase else语句块语句块n+1n+1end selectend select数值型或字符串表达式

8、数值型或字符串表达式10条件测试语句条件测试语句例如：将例例如：将例 使用使用select caseselect case.语句来实现的程序段如下：语句来实现的程序段如下：select case x select case x case 90 to 100 case 90 to 100 print print 优秀优秀 case 80 to 89 case 80 to 89 print print 良好良好 case 70 to 79 case 70 to 79 print print 中等中等 case 60 to 69 case 60 to 69 print print 及格及格 case

9、 else case else print print 不及格不及格 end selectend select11条件测试语句条件测试语句5. 5. 选择结构的嵌套选择结构的嵌套下面是两种正确的嵌套形式：下面是两种正确的嵌套形式：（1 1） if if then 1 then . if if then2 then else else . end if end if . . else else . . if if then3 then . else else . end if end if . end if end if（2 2）if if then 1 then . select case s

10、elect case case case if if then2 then else else . end if end if case case. . . end select end select . .end ifend if12（1）iif函数函数形式：iif（表达式，当条件为true时的值，当条件为false时的值例：求x、y中大的数，并放入变量tmax中：tmax=iif（xy,x,y）（2）choose函数函数形式：choose（整数表达式，选项列表）如果整数表达式的值是1，则选择列表中的第1项，依次类推；如果小于1或大于列表项数时，则返回null。例：根据nub为1-4的值，换

11、算成不同的运算符：op=choose（nub,“”，“”，“”，“”）13条件测试语句条件测试语句 注意：只要在一个分支内嵌套，不出现交叉，满足结注意：只要在一个分支内嵌套，不出现交叉，满足结构规则，其嵌套的形式将有很多种，嵌套层次也可以任意构规则，其嵌套的形式将有很多种，嵌套层次也可以任意多。对于多层多。对于多层ifif嵌套结构中，要特别注意嵌套结构中，要特别注意ifif与与elseelse的配对的配对关系，一个关系，一个elseelse必须与必须与ifif配结，配对的原则是：在写含有配结，配对的原则是：在写含有多层嵌套的程序时，建议使用缩进对齐方式，这样容易阅多层嵌套的程序时，建议使用缩进

12、对齐方式，这样容易阅读和维护。读和维护。14循环语句循环语句循环结构循环结构 1. for1. for循环语句循环语句 ( (一般用于循环次数已一般用于循环次数已知知) )形式：形式： for for 循环变量初值循环变量初值 to to 终值终值 step step 步长步长 语句块语句块exit forexit for 语句块语句块 next next 循环变量循环变量 0 0 初值初值 终值终值 =1 =1 时时, ,可可省略省略0 终值终值=0 =0 死循环死循环 步长步长 循环变量在终值内 语句块 exit for 语句块 循环变量加步长 t f 循 环 变 量 得 初值 15循环语

13、句循环语句循环次数循环次数) 1(步长初值终值int例例: for i=2 to 13 step 3 : for i=2 to 13 step 3 print i , print i , next i next i print “i=“, i print “i=“, i 循环执行次数循环执行次数 ： 4 4输出输出i i的值分别为的值分别为: : 2 5 8 11 2 5 8 11 出了循环输出为出了循环输出为: i=14: i=1416循环语句循环语句例例 编程计算：编程计算：s=1+2+3+s=1+2+3+100+100dim s%, i%dim s%, i%s=0 s=0 累加前变量累加

14、前变量s s为为0 0for i=1 to 100 for i=1 to 100 s=s+i s=s+inext inext iprint s=,s print s=,s 当n=100n=n+1打印ss=0,n=1s=s+n17【例】求阶乘【例】求阶乘n n！循环语句循环语句18 编写程序代码。编写程序代码。private sub command1_click()private sub command1_click() dim n as integer,i as integer dim n as integer,i as integer dim result as long dim resul

15、t as long result=1 result=1 n=cint(text1.text) n=cint(text1.text) if n=0 then if n=0 then label2.caption= label2.caption=请输入正整数！请输入正整数！ exit sub exit sub 结束过程结束过程 end ifend if for i=1 to n for i=1 to n result=result result=result* *i i next i next i label2.caption=str(n)+!=+str(result) label2.captio

16、n=str(n)+!=+str(result)end subend sub循环语句循环语句19循环语句循环语句dodolooploop循环语句循环语句 形式形式1 1：（当型循环）：（当型循环） do while|until do while|until 语句块语句块 exit doexit do 语句块语句块 looploop 条 件 f t exit d o 语 句 块 语 句 块 d o w hile loop 执 行 过 程 20循环语句循环语句形式形式2 2：( (直到循环）直到循环）do do 语句块语句块 exit doexit do 语句块语句块loop while|until

17、 loop while|until t f exit d o 语 句 块 语 句 块 条 件 d o loop w hile 的 执 行 过 程 21循环语句循环语句条 件语句块语句块tfexit do条 件语句块语句块tfexit do do untildo untillooploop执行过程执行过程 dodoloop loop untiluntil执行过程执行过程 22循环语句循环语句说明：说明： （1 1）当使用）当使用whilewhile 构成循环时，当条件为构成循环时，当条件为“真真”，则反复执行循环体，当条件为则反复执行循环体，当条件为“假假”，则退出循环。，则退出循环。 （2 2

18、）当使用）当使用until until 构成循环时，当条件为构成循环时，当条件为“假假”，则反复执行循环体，直到条件成立，即为则反复执行循环体，直到条件成立，即为“真真”时，则退出循时，则退出循环环。 （3 3）在循环体内一般应有一个专门用来改变条件表达式中）在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立（或成变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。立），最后达到退出循环。 （4 4）语句）语句exit doexit do的作用是退出它所在的循环结构，它的作用是退出它所在的循环结构，它只能用在只能用在do/loo

19、pdo/loop结构中，并且常常是同选择结构一起出现在结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环循环结构中，用来实现当满足某一条件时提前退出循环。 23【例】用【例】用dodolooploop循环结构实现求和循环结构实现求和sum=1+2+3+sum=1+2+3+100+100。 编写代码如下：编写代码如下：24 解法一：采用当型循环解法一：采用当型循环do whiledo whilelooploopprivate sub command1_click()private sub command1_click() dim i as integer,su

20、m as integer dim i as integer,sum as integer i=1 i=1 计数器初值置为计数器初值置为1 1 sum=0 sum=0 累加器初值置为累加器初值置为0 0 do while i=100 do while i100 do until i100 sum=sum+i sum=sum+i i=i+1 i=i+1 loop loop label2.caption=str(sum) label2.caption=str(sum)end subend sub26循环结构（续3）【例】利用do循环求1+2+100和。dimsumasinteger,iasinteg

21、ersum=0i=1dountili100sum=sum+ii=i+1loopdebug.printsum27循环语句循环语句whilewhilewendwend语句语句使用格式如下：使用格式如下：while while wendwend 说明：说明：该语句的功能与该语句的功能与do while do while .loop.loop实现实现的循环完全相同。的循环完全相同。28循环语句循环语句例（补充）例（补充） 求两个整数的最大公约数、最小公倍数求两个整数的最大公约数、最小公倍数dim n%,m%,nm%,r%dim n%,m%,nm%,r%m=val(inputbox(m=)m=val(i

22、nputbox(m=)n=val(inputbox(n=)n=val(inputbox(n=)nm=nnm=n* *m mif mn then t=m: m=n: n=tif mn then t=m: m=n: n=t r=m mod n r=m mod n do while (r 0) do while (r 0) m=n m=n n=r n=r r= m mod n r= m mod n loop loopprint print 最大公约数最大公约数=, n =, n print print 最小公倍数最小公倍数=, nm/n =, nm/n 算法流程图算法流程图29循环语句循环语句循环的嵌套循环的嵌套多重循环结构多重循环结构 如果在一个循环内完整地包含另一个循环结构，则如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。定，嵌套一层称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，下面上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：是几种常见的二重嵌