《Access数据库应用实训教程》第10AccessVBA程序设计.pptVIP

10.17转换完成的模块对象集合 图10.18转换宏对话框 10.1.4 VBA代码的测试 VBA代码的调试由VBE提供调试工具，可以测试代码，查 找编写错误。 可以在VBE编辑器窗口中，打开将要进行调试的模块，单击 “调试”菜单项，可看到调试子菜单项，如图所示，根据子菜 单上的命令可以进行调试。 调试时，分为两个步骤：断点设置和单步跟踪。 1.断点设置 Access提供的大部分调试工具，都必须在程序处于挂起状态才能 有效，这时就需要暂停Visual Basic程序代码。如果要使Visual Basic挂起代码，可以设置断点 设置断点的方式有两种： 在“Visual Basic代码编辑器”的代码窗口中，将光标移 到要设置断点的行。单击调试工具栏上的“切换断点” 按钮“ ”。 (2)在“Visual Basic代码编辑器”的代码窗口中，用鼠 标单击要设置断点行的左侧边缘部分。 如果要清除断点，可以将光标移到设置断点的代码行，然后 在调试工具栏上单击“切换断点”按钮。Access在运行到包含 断点的代码行时，暂停代码的执行，进入中断模式。设置断点会 加粗和突出显示该行。 如果要继续运行代码，可以单击调试工具栏上的“运行子过程/用 户窗体”按钮“ ”。 2.单步跟踪 在程序代码挂起后，便可以逐步执行Visual Basic代码，帮助识 别发生错误的位置，并且可以查看是否每一行代码都产生了预期 的结果。 用于代码调试的方式有3种： (1)逐语句执行 要单步执行每一行代码，包括被调用的过程中的代码，可以单 击调试工具栏上的“逐语句”按钮“ ”。 (2)逐过程执行 要单步执行每一行代码，但是将任何被调用的过程作为一个单位执 行，可以单击调试工具栏上的“逐过程”按钮“ ”。 (3)跳出执行 要运行当前过程中的剩余代码，可以单击调试工具栏上的“跳出” 按钮“ ”，当执行完这个过程，程序返回到调用该过程的 过程后，“跳出”命令执行完毕。 VBA程序设计有几种控制结构：选择控制结构、循环控制结构。 选择控制结构有条件结构和选择结构两种。 （1）条件结构：只要执行一个语句，则可以使用条件结构。 语法如下：if 条件表达式 then 语句1 [else 语句2] （2）选择结构：在多个语句块中有选择地执行其中的一个。 语法如下： Select case 表达式 case 表达式值列表1 语句1 case 表达式值列表2 语句2 …… [case else 语句n] End select 10.2.1 程序设计 当一个表达式与几个不同的值比较时，可以使用选择结构 语句。 例：根据某年某月来判断该月有多少天？ 图10.19 分支结构窗体 在窗体上三个文本框控件（年份、 月份、天数），需要输入年份数和 月份数值后回车，或单击“天数” 文本框，结果将显示在“天数”文 本框内。 将代码填加到文本框的“单击”事 件中。 Private Sub 天数_GotFocus() num = 月份.Value Select Case num Case 1, 3, 5, 7, 8, 10, 12 天数.Value = 31 Case 4, 6, 9, 11 天数.Value = 30 Case Else If (年份.Value Mod 4 = 0) And (年份.Value Mod 100 0) Or (年份.Value Mod 400 = 0) Then 天数.Value = 29 Else 天数.Value = 28 End If End Select End Sub 2.循环控制语句 VBA提供两种循环结构，即DO循环、FOR循环。 (1) DO循环：用于重复执行一个语句块，重复次数不定。 A）DO WHILE结构，语法如下： DO WHILE 条件表达式 循环语句块 LOOP 只要表达式为真，循环就一直执行，直到表达式为假时结束循环。 B）DO UNTIL结构，语法如下： DO UNTIL 条件