第八章模块与vba程序设计.ppt

* * 二级ACCESS—模块与VBA 过关练习 【2009.3】(37)设有如下过程： x = 1 Do x = x + 2 Loop Until_____ 运行程序，要求循环执行3次后结束循环，空白处应填入的语句是【 】 A）x=7 B）x7 C）x=7 D）x7 C * * 二级ACCESS—模块与VBA 过关练习 Private Sub Command1_Click( ) MsgBox f(24,18) End Sub Public Function f (m As Integer,n As Integer)As Integer Do While mn Do While mn m = m-n Loop Do While mn n=n-m Loop Loop f = m End Function 【2009.3】(38)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： 窗体打开运行后，单击命令按钮，则消息框的输出结果是【 】 A）2 B）4 C）6 D）8 C * * 二级ACCESS—模块与VBA 过关练习 【2009.3】(14) 函数Mid(“学生信息管理系统”,3,2)的结果是【 】。 【2009.3】(15)Access的窗体或报表事件可以有两种方法来响应：宏对象和【 】。 信息 事件过程 * * 二级ACCESS—模块与VBA 过关练习 Sub Text() Dim i, j As Integer For i = 1 To 4 For j = 1 To 4 If【 】Then Debug.Print i * j = i *j Space(2), End If Next j Debug.Print Next i End Sub 【2009.3】(16)子过程Test显示一个如下所示4×4的乘法表。 1*1=1 1*2=2 1*3=3 1*4=4 2*2=4 2*3=6 2*4=8 3*3=9 3*4=12 4*4=16 请在空白处填入适当的语句使子过程完成指定的功能。 i=j * * 二级ACCESS—模块与VBA 过关练习 【2009.3】(18)窗体中有两个命令按钮：“显示”（控件名为 cmdDisplay）和“测试”（控件名为cmdTest）。当单击“测试” 按钮时，执行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub cmdTest_Click() Answer =【 】 (隐藏按钮？,vbOKCancel + vbQuestion, Msg) If Answer = vbOK Then Me!cmdDisplay.Visible =【 】 End If End Sub MsgBox False * * 二级ACCESS—模块与VBA 过关练习 【2009.3】(19)对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于15小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub txtAge_BeforeUpdate(Cancel As Integer) If Me!txtAge = Or【 】(Me!txtAge) Then 数据为空时的验证 MsgBox 年龄不能为空！, vbCritical, 警告 Cance