《VBA编程基础语句》PPT课件.ppt

全国计算机等级考试Access数据库程序设计（二级）,万红波烟台大学,VBA编程基础,常量、变量、运算符和表达式；流程控制语句；过程调用和参数传递；常用操作的实现方法；VBA的数据库编程；,2VBA程序流程控制语句,VBA程序语句按照功能分为：声明语句：声明变量，常量或自定义类型；执行语句：执行赋值操作，调用函数或过程，实现各种流程控制；顺序结构：依次执行；条件结构：根据条件选择执行路径；循环结构：重复执行某一段代码；,2.1程序语句的书写,语句写法通常将一个语句写在一行上；续行符(_)将语句连续的写在下一行；可以将多个语句写在一行上，使用(:)隔开；注释内容：Rem注释语句使用,2.2声明语句和赋值语句,声明语句用来定义变量，常量，数组和过程；赋值语句为变量指定一个值或表达式；,Rem下面的语句是声明语句DimageAsInteger下面的语句是赋值语句age=14,2.3语句标号和GoTo跳转语句,GoTo语句实现无条件转移,DimageAsIntegerage=Me.txtAge.ValueIfage0Theny=Sqr(x)ElseIfx=0Theny=0Elsey=Abs(x)EndIfEndIf,Dimx,yAsDoubleIfx0Theny=Sqr(x)ElseIfx=0Theny=0ElseIfx60Thenk=1ElseIfa70Thenk=2ElseIfa80Thenk=3EndIfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是：A)1B)2C)3D)不确定,2.4条件语句SelectCase,SelectCase.EndSelect,SelectCase表达式Case表达式1,表达式2语句Case表达式3To表达式4语句CaseIs关系运算符表达式5语句CaseElse语句EndSelect,例子,在标准模块中定义一个Sub子过程，根据字符的类型，显示响应的信息,PublicSubcharInfo(aAsString)DimStrAsStringSelectCaseaCaseAToZStr=大写字母CaseaTozStr=小写字母Case0To9Str=数字字符Case!,?,.,;Str=标点符号CaseStr=空字符串CaseIs10C)CaseIs10AndIs10,2.4条件语句-支持选择操作的函数,IIf函数IIf(条件式,表达式1,表达式2)根据“条件式”的值决定函数的返回值，“真”返回“表达式1”的值“假”返回“表达式2”的值,返回a,b中较大的值Max=IIf(ab,a,b),2.4条件语句-支持选择操作的函数,Switch函数Switch(条件式1,表达式1,条件式2,表达式2,.)依次计算“条件表达式n”，直到为“真”，返回对应的“表达式n”,根据x的值，计算y的值y=Switch(x0,1,x=0,0,x0:循环变量=终值，执行循环体可以使用ExitFor提前退出循环；,DimUChar(26)AsStringDimiAsIntegerFori=1To26UChar(i)=Chr(i+64)Nexti,练习题,设有如下窗体单击事件过程：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiMsgBoxaEndSub打开窗体运行后，单击窗体，则消息框的输出结果是：A)3B)4C)5D)6,练习题,在窗体上添加一个名称为Command1的命令按钮，然后编写如下单击事件代码：PrivateSubCommand1_Click()sum=0Fori=10To1Step-2sum=sum+iNextiMsgBoxsumEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是：A)10B)30C)55D)其他结果,2.5循环语句Do.While,DoWhile条件式循环体Loop,Do循环体LoopWhile条件式,DoUntil条件式循环体Loop,Do循环体LoopUntil条件式,条件为“真”，执行循环条件为“假”，退出循环,条件为“真”，退出循环条件为“假”，执行循环,可以使用ExitDo提前退出循环,练习题,下列四种形式的循环设计中，循环次数最少的是,A)a=5:b=8Doa=a+1LoopWhileabB)a=5:b=8Doa=a+1LoopUntilab,C