第八章 模块与VBA程序设计.pptVIP

二级ACCESS—模块与VBA 过关练习 【2010.9】(6)窗体中有命令按钮Commandl,事件过程如下： Public Function f（x As Integer） As Integer 　　Dim y As Integer 　　x=20 　　y=2 　　f=x*y End Function Private Sub Commandl_Click（） 　　Dim y As Integer 　　Static x As Integer 　　x=10 　　y=5 　　y=f(x) 　　Debug .Print x;y End Sub　　 运行程序，单击命令按钮，则立即窗口中显示的内容是【 】 　A）10 5 B）10 40 　C）20 5 D）20 40 D 二级ACCESS—模块与VBA 过关练习 【2010.9】(7)窗体中有命令按钮Commandl和文本框Text1,事件过程如下： 运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写【 】 A）result（x）=“偶数” B）result（x） C）resuIt（x）=“奇数” D）NOT result（x） Function result（ByVal x As Integer）As Boolean 　　If x Mod 2=0 Then 　　 result=True 　　Else 　　 result=False 　　End If End Function Private Sub Commandl_Click（） 　　x=Val（InputBox（“请输入一个整数”）） 　　If______ Then 　　Text1=Str（x）“是偶数.” 　　Else 　　Text1=Str（x）“是奇数.” 　　End? If End Sub B 二级ACCESS—模块与VBA 过关练习 【2010.9】(8)窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下： Private Sub Commandl_Click（? ） 　　For? i=1? To? 4 　　 x=3 　　 For j=1 To 3 　　 For k=1 To 2 　 　x=x+3 　　 Next k 　　 Next j 　　Next i 　　Text1 .Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是【 】 A）6 B）12 C）18 D）21 D 二级ACCESS—模块与VBA 过关练习 【2010.9】(9)窗体中有命令按钮run34,对应的事件代码如下： Private Sub run34_Enter（） Dim num As Integer,a As Integer,b As Integer,i As Integer 　　For i=1 To 10 num=InputBox（“请输入数据：”,“输入”） 　　 If Int（num/2）=num/2 Then 　　 a=a+1 　　 Else 　　 b=b+1 　　 End If 　　Next i 　　MsgBox（“运行结果：a=”Str（a）“,b=”Str（b）） End Sub 运行以上事件过程，所完成的功能是【 】 A）对输入的10个数据求累加和 B）对输入的10个数据求各自的余数，然后再进行累加 C）对输入的10个数据分别统计奇数和偶数的个数 D）对输入的10个数据分别统计整数和非整数的个数 C 二级ACCESS—模块与VBA 过关练习 【2010.9】(10)运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是【 】 Private Sub Form _click（） 　　Dim sum AsInteger,m As Integer 　　sum=0 　　Do 　　 m=InputBox（“输入m”） 　　 sum=sum+m 　　Loop Until m=0 　　MsgBox sum End Sub A）0 B）17 C）20 D）21 C 二级ACCESS—模块与VBA 过关练习 【2010.3】(11)在调试VBA程序时，能自动被检查出来的错误是【 】 　　A)语法错误 B)逻辑错误 C)运行错误 D)语法错误和逻辑错误 【2010.3】(12)在已建窗体中有一命令按钮(名为C