数据库原理与应用第二版课件作者赵杰杨丽丽陈雷第11章节面向对象程序设计语言—VBA.ppt

第十一章  面向对象程序设计语言－VBA 内容 编程的基本概念 对象 属性和方法 事件 事件代码 过程、子程序和函数 子程序 函数 过程应用例 VBA模块类型 VBA编程环境 窗口工具条 工程、属性、代码窗口 变量、常量与数据类型 VBA主要数据类型 主要类型说明 变量和常量的声明 变量和常量的作用域 模块变量 在模块内有效。 Dim和Static所声明的变量默认为在模块内私有。也可用Private语句显式声明。例如， Dim tName As String Const PI=3.1415926 所声明的变量和常只能被它们所在的模块使用。 局部变量 只在某个过程内起作用。在过程结束之前，Dim语句一直保存着变量的值，即以Dim语句声明的变量在过程之间调用时会丢失数据。而用Static语句声明的变量则在模块内一直保留其值，直到模块被复位或重新启动。 数据类型转换 数组和自定义变量 常用语句 语句的书写规定 程序结构 IF语句 Select Case语句 For Next 语句 Do…Loop 语句 VBA编程错误处理 一般错误处理程序段： On Error GoTo ErrHandler … [RepeatCode：] （Code using ErrProc to handle errors） … GoTo SkipHandler ErrHandler： Call ErrorProc [GoTo RepeatCode] SkipHandle： …（其他程序代码） If…Then…Else语句有三种形式： 单行式：条件成立则执行一个语句。 格式：if 条件 then 语句 例：if A=0 then MsgBox X*X 若有多个语句，应写在一行且用冒号隔开，例如， If A0 Then A=A+1:B=B+2:C=C+3 带有else（否则）部分的形式：条件成立则执行一组语句，否则执行另一组语句 格式： If 条件 then 语句组1 Else 语句组2 End if x=InputBox(“x=”) If x=0 then y=2*x+1 Else y=-x Endif MsgBox “y=” y IF语句的嵌套： 格式： If 条件1 then 语句1 Elseif 条件2 then 语句2 …… Else 语句n End if 例：按成绩输出信息 score=InputBox(“成绩”) If score=90 Then Msgbox “优” ElseIf score=80 Then Msgbox “良” ElseIf score=70 Then Msgbox “中” ElseIf score=60 Then Msgbox “及格” Else Msgbox “不及格” End If Select Case选择结构：根据表达式求值结果，选择执行几个分支中的一个。 格式： Select Case 检验表达式 [Case 比较列表1 ] [ 语句1] [Case 比较列表2 ] [ 语句1] …… [Case Else [语句n]] End Select 例：按成绩输出信息 score=InputBox(“成绩”) k=score/10 Select Case k Case 9,10: Msgbox “优” Case 8: Msgbox “良” Case 7: Msgbox “中” Case 6: Msgbox “及格” Case Is 6: Msgbox “差” End Select For…Next循环结构：将一段程序重复执行指定的次数，其中使用一个计数变量，统计执行的次数。 格式： For 计数器=初值 To 终值 [Step 步长] [语句组1] Exit For [语句组2] Next [计数器] 功能：执行For语句时，“计数器”设为“初值”；执行到Next语句时，步长加（减）到计数器上；再执行For语句时，若“计数器”超过“终值”则循环结