模块与VB编程基础.pptVIP

系统对象类模块 窗体和报表都可以含有自己的事件代码和处理模块，这些模块属于系统对象类模块。进入相应的模块代码设计区域的方法：一单击“代码”按钮；二是单击事件过程。 特点：类模块具有局部特性，其作用范围局限在所属窗体或报表内部，而生命周期则是伴随着窗体或报表的打开而开始、关闭而结束。 用户定义类模块 创建方法： 在模块对象下： 单击”插入”|“类模块” Public Sub name Private Sub name Public 表示 Sub 过程可被所有 Script 中的所有其他过程访问。 Private 表示 Sub 过程只可被声明该过程的 Script 中的其他过程访问。 Name Sub 的名称，遵循标准变量命名约定。 Integer---数据类型Integer 字节或者整数 。如果知道变量总是存放整数，则应该将其申明为Interger类型或Long 类型。整数的运算速度快，而且占用的内存少。 Dim (定义变量) 方法为：Dim 变量 As 变量类型  例题：定义变量,赋值并添加注释 Sub ab() Dim str1, str2 str1 = “shanghai“ : Rem 为变量str1赋值 str2 = shi bo hui 为变量str2赋值 Debug.Print str1 + str2 End Sub 3、采用缩进格式书写程序 显示出流程中的结构 也可以利用编辑—缩进或凸出 例8.7 定义过程Pro3 功能：如果当前系统时间为8至12点钟之间，在立即窗口显示“上午好！”，系统时间为12点至18点，则显示“下午好！”，其他时间均显示“欢迎下次光临！” Sub Pro3() If Hour(time())=8 and Hour(time())12 then Debug.Print ”上午好！” ElseIf Hour(time())=12 and Hour(time())18 then Debug.Print “下午好！” Else Debug.Print “欢迎下次光临！” End If End Sub 知识回顾 程序流程控制结构： 顺序结构 分支结构 循环结构 分支结构： 单分支结构 双分支结构 多分支结构 单分支结构 If-Then语句 If 条件表达式 Then 当条件为真时要执行的语句块 End If 双分支结构 If-Then-Else 语句结构： If 表达式 Then 表达式为真时执行的语句块1 Else 表达式为假时执行的语句块2 End If 多分支结构 1、If-Then-ElseIf 语句结构： If 表达式1 Then 表达式1为真是执行语句块1 ElseIf 表达式2Then 表达式1为假并且表达式2为真执行语句块2 … [Else 语句块 n+1 ] End If 2、Select Case-End Select 语句格式为 Select Case 变量或表达式 Case 表达式列表1 语句块1 ‘表达式的值与表达式列表1相等时执行 Case 表达式列表2 语句块2 ’表达式的值与表达式列表2相等时执行 … [Case Else 语句块n+1] ‘上面的情况均不符合时执行 End Select 标准模块的编译顺序 Sub 过程名() Dim 变量名　as 数据类型 ‘可省略 为变量赋值 ‘可省略 输入流程控制结构 Debug.print 变量名 ‘可省略 End sub Access对象中的事件过程模块 右击控件，选择属性|事件 选择一种事件的事件过程 清楚sub----end sub 中的语句 输入新的语句 习题： 创建一个窗体，此窗体包括3个文本框和一个命令按钮，要求此窗体实现下列功能： 其中两个文本框可以输入数据 单击命令按钮时，在第三个文本框中显示前两个文本框中较大的值 另一种编译方法： Sub Pro5() const MAX=5 Dim Str As String str=“” For n=1 to MAX Str=Str+”* ” Next n For n=1 to MAX Debug.Print Str Next n End Sub 例题8.15 用Do