VBA程序流程控制语句课件

本节内容及要求：1.熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构；2.熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。,本章重点：选择结构及循环结构的实现及其应用本章难点：选择的嵌套及多重循环结构,VBA程序流程控制语句,1,PPT学习交流,执行语句分为3种结构：,顺序结构：顺序结构是最基本的程序结构，按程序中语句编写的先后顺序逐条执行。条件结构：根据条件选择运行的结果。循环结构：对程序中的某段代码重复执行时，可以使用循环结构。,2,PPT学习交流,分支语句,Goto语句形式:GoTo标号|行号作用是无条件地转移到标号或行号指定的那行语句.标号是一个字符序列,行号是一个数字序列。例如：Lp:gotolp,3,PPT学习交流,条件测试语句,IfThen语句(单分支结构)IfThen语句块EndIf或IfThen,例:已知两个数x和y，比较它们的大小，使得x大于y.IfxY,PrintX,PrintY),6,PPT学习交流,条件测试语句,IfThenElseIf语句(多分支结构)形式:IfThenElseIfThenElse语句块n+1EndIf,7,PPT学习交流,条件测试语句,例：输入一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以为“不合格”,使用IF语句实现的程序段如下：Ifx=90thenPrint优秀ElseIfx=80ThenPrint良好ElseIfx=70ThenPrint中等ElseIfx=60ThenPrint及格ElsePrint不及格EndIf,8,PPT学习交流,条件测试语句,4.SelectCase语句（情况语句）形式：SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2CaseElse语句块n+1EndSelect,数值型或字符串表达式,9,PPT学习交流,条件测试语句,例如：将例使用selectcase.语句来实现的程序段如下：SelectCasexCase90to100Print优秀Case80to89Print良好Case70to79Print中等Case60to69Print及格CaseElsePrint不及格EndSelect,10,PPT学习交流,条件测试语句,5.选择结构的嵌套下面是两种正确的嵌套形式：（1）IFThen.IFThenElse.EndIf.Else.IFThen.Else.EndIf.EndIF,（2）IFThen.SelectCaseCaseIFThenElse.EndIfCase.EndSelect.EndIF,11,PPT学习交流,（1）IIf函数函数形式：Iif（表达式，当条件为True时的值，当条件为False时的值例：求X、Y中大的数，并放入变量Tmax中：Tmax=Iif（XY,X,Y）（2）Choose函数函数形式：Choose（整数表达式，选项列表）如果整数表达式的值是1，则选择列表中的第1项，依次类推；如果小于1或大于列表项数时，则返回NULL。例：根据nub为1-4的值，换算成不同的运算符：OP=Choose（nub,“”，“”，“”，“”）,12,PPT学习交流,条件测试语句,注意：只要在一个分支内嵌套，不出现交叉，满足结构规则，其嵌套的形式将有很多种，嵌套层次也可以任意多。对于多层IF嵌套结构中，要特别注意IF与Else的配对关系，一个Else必须与IF配结，配对的原则是：在写含有多层嵌套的程序时，建议使用缩进对齐方式，这样容易阅读和维护。,13,PPT学习交流,循环语句,循环结构1.For循环语句(一般用于循环次数已知)形式：For循环变量初值to终值Step步长语句块ExitFor语句块Next循环变量,14,PPT学习交流,循环语句,循环次数,例:ForI=2To13Step3PrintI,NextIPrint“I=“,I,循环执行次数：4输出I的值分别为:25811出了循环输出为:I=14,15,PPT学习交流,循环语句,例编程计算：S=1+2+3+100,DimS%,I%S=0累加前变量S为0ForI=1to100S=S+INextIPrintS=,S,16,PPT学习交流,【例】求阶乘n！,循环语句,17,PPT学习交流,编写程序代码。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimresultAsLongresult=1n=CInt(text1.text)Ifn100Sum=Sum+ii=i+1LoopDebug.Printsum,26,PPT学习交流,循环语句,WhileWend语句使用格式如下：WhileWend说明：该语句的功能与DoWhile.Loop实现的循环完全相同。,27,PPT学习交流,循环语句,例（补充）求两个整数的最大公约数、最小公倍数,Dimn%,m%,nm%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)nm=n*mIfm0)m=nn=rr=mmodnLoopPrint最大公约数=,nPrint最小公倍数=,nm/n,算法流程图,28,PPT学习交流,循环语句,循环的嵌套多重循环结构如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：,29,PPT学习交流,循环语句,（1）ForI=.ForJ=.NextJ.NextI,（2）ForI=.DoWhile/Until.Loop.NextI,（3）DoWhile.ForJ=.NextJ.Loop,（4）DoWhile/Until.DoWhile/Until.Loop.Loop,30,PPT学习交流,循环语句,例如：打印九九乘法表.Fori=1To9Forj=1To9se=iNextjPicture1.PrintNexti