[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础、VBA数据库编程)模拟试卷1及答案与解析.doc
《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础、VBA数据库编程)模拟试卷1及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础、VBA数据库编程)模拟试卷1及答案与解析.doc(29页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 ACCESS机试选择题(模块与 VBA编程基础、 VBA数据库编程)模拟试卷 1及答案与解析 一、选择题 1 运行下列程序,结果是 Privme Sub Command32_Click() f0=1: fl=1: k=1 Do While k =5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox“f=”&f End Sub ( A) f=5 ( B) f=7 ( C) f=8 ( D) f=13 2 有 如下事件程序,运行该程序后输出结果是 Private Sub Command33_Click() Dim XAs Integer, yAs Integer
2、x=l: y=0 Do Until y =25 y=y+x*x x=x+l Loop MsgBox“x=”&x&“, y=”&y End Sub ( A) x=1, y=0 ( B) x=4, y=25 ( C) x=5, y=30 ( D)输出其他结果 3 下列程序的功能是计算 sum=l+(1+3)+(1+3+5)+(1+3+5+39) Private Sub Command34_Click() t=0 m=1 sum=0 Do T=t+m Sum=Sum+t m=_ Loop While m =39 MsgBox“Sum=” sun End Sub 为保证程序正确完成上述功能,空白处应填
3、入的语句是 ( A) m+1 ( B) m+2 ( C)什 1 ( D) t+2 4 由 “For i=1 To 16 Step 3”决定的循环结构被执行 ( A) 4次 ( B) 5次 ( C) 6次 ( D) 7次 5 若有以下窗体单击事件过程: Private Sub Form_Click() result=1 For i=1 To 6 step 3 result=-result*i Next i MsgBox result End Sub 打开窗体运行后,单击窗体,则消息框的输出内容是 ( A) 1 ( B) 4 ( C) 15 ( D) 120 6 窗体中有命令按钮 Command3
4、2,其 Click事件代码如下。该事件的完整功能是:接收从键盘输入的 10个大于 0的整数,找出其中的最大值和对应的输入位置。 Private Sub Command32_Click() max=0 max_n=0 For i=1 To 10 num=Val(InputBox(“请输入第 ”&i&“个大于 0的整数: ”) If_Then maX=num max_n=i End If Next i MsgBox(“最大值为第 ”&max_n&“个输入的 ”&max) End Sub 程序空白处应该填入的表达式是 ( A) num i ( B) i max ( C) hum max ( D) n
5、um max 7 若有如下 sub过程: Sub sfun(xAs Single, YAs Single) t=X x=t y y=t Mod y End Sub 在窗体中添加一个命令按钮 command33,对应的事件过程如下: Private Sub Command33_Click() Dim aAs Single DimbAs Single a=5: b=4 sfun(a, b) MsgBox a chr(10)+chr(13) b End SUb 打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为 ( A) 1和 1 ( B) 1 25和 1 ( C) 1 25和 4 ( D
6、) 5和 4 8 运行下列程序,显示的结果是 Private SUb Command34_Click() i=0 Do i=i+1 Loop While i 10 MsgBox i End Sub ( A) 0 ( B) 1 ( C) 10 ( D) 11 9 运行下列程序,在立即窗口显示的结果是 Private Sub Command0_Click() Dim IAs Integer,JAs Integer For I=2 To 10 For J=2 To 1/2 IfI mod J=0 Then Exit For Next J IfJ sqr(I)Then Debug Print I; N
7、ext I End Sub ( A) 1 5 7 9 ( B) 4 6 8 ( C) 3 5 7 9 ( D) 2 3 5 7 10 运行下列过程,当输入一组数据: 10, 20, 50, 80, 40, 30, 90, 100, 60,70,输出的结果应该是 Sub p 10 Dim i,j, arr(11)As Integer k=1 While k =10 arr(k)=Val(InputBox(“请输入第 “&k&“个数: “, “输入窗口 “) k=k+l Wend For i=l To 9 j=i+l If arr(i) arr(j)Then temp=arr(i) art(i)=
8、arrO) arr(j)=temp End If Debug Print arr(i) Next i End Sub ( A)无序数列 ( B)升序数列 ( C)降序数列 ( D)原输入数列 11 下列程序的功能是计 算 N=2+(2+4)+(2+4+6)+(2+4+6+40) 的值。 Private Sub Command34_Click() t=0 m=0 sum=0 Do t=t+m sum=sum+t m=_ Loop While m 41 MsgBox“sum=“&sum End Sub 空白处应该填写的语句是 ( A) t+2 ( B) t+1 ( C) m+2 ( D) m+l
9、12 在窗体中有一 个名为 Commandl的命令按钮,事件代码如下: Private Sub CommandlClick() Dim m(10) For k=1 T0 10 m(k)=11-k Nextk x=6 MsgBox m(2+m(x) End Sub 打开窗体,单击命令按钮,消息框的输出结果是 ( A) 2 ( B) 3 ( C) 4 ( D) 5 13 在窗体中有一个名为 run34的命令按钮,事件代码如下: Private Sub run34_Click() f1=l f2=1 For n=3 To 7 f=f1+f2 fl=f2 f2=f Next n MsgBox f En
10、d Sub 打开窗体,单击命令按钮,消息框的输出结果是 ( A) 8 ( B) 13 ( C) 21 ( D)其他结果 14 假定有如下的 Sub过程: Sub sfun(x As Single, y As Single) t=X X=t y Y=t Mod y End Sub 在窗体上添加一个命令按钮 (名为 Commandl),然后编写如下事件过程: Private Sub Commandl_Click() Dim a as single Dimb as single a=5 b=4 sfun a,b MsgBox a&chr(10)+chr(13)&b End Sub 打开窗体运行后,单
11、击命令按钮,消息框的两行输出内容分别为 ( A) 1和 1 ( B) 1 25和 1 ( C) 1 25和 4 ( D) 5和 4 15 Sub过程与 Function过程最根本的区别是 ( A) Sub过程的过程名不能返回值,而 Function过程能通过过程名返回值 ( B) Sub过程可以使用 Call语句或直接使用过程名调用,而 Function过程不可以 ( C)两种过程参数的传递方式不同 ( D) Function过程可以有参数, Sub过程不可以 16 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下程序: Public X As Integer Private
12、Sub Command l_Click() X=10 Call s1 CaU s2 MsgBox x End Sub Private Sub sl() x=X+20 End Sub Private Sub s2() Dim X As Integer x=x+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为 ( A) 10 ( B) 30 ( C) 40 ( D) 50 17 在过程定义中有语句: Private Sub GetData(ByRef f As Integer) 其中 “ByRef”的含义是 ( A)传值调用 ( B)传址调用 ( C)形式参数 ( D)实际
13、参数 18 若要在子过程 Procl调用后返回两个变量的结果,下列过程定义语句中有效的是 ( A) Sub Proc l(n, n1) ( B) Sub Procl(ByVal n, m) ( C) Sub Procl(n, BYVal m) ( D) Sub Procl(ByVal n, ByVal m) 19 在过程定义中有 语句: Private Sub GetData(ByVal data As Integer) 其中 “ByVal”的含义是 ( A)传值调用 ( B)传址调用 ( C)形式参数 ( D)实际参数 20 要想在过程 Proc调用后返回形参 X和 Y的变化结果,下列定义语
14、句中正确的是 ( A) Sub Proc(X as Integer, Y as Integer) ( B) Sub Proc(ByVal x as Integer, Y as Integer) ( C) Sub Proc(x as Integer, ByVal Y as Integer) ( D) SUb Proc(ByVal x as Integer, ByVal Y as Integer) 21 在 VBA中,下列关于过程的描述中正确的是 ( A)过程的定义可以嵌套,但过程的调用不能嵌套 ( B)过程的定义不可以嵌套,但过程的调用可以嵌套 ( C)过程的定义和过程的调用均可以嵌套 ( D)
15、过程的定义和过程的调用均不能嵌套 22 在窗体上有一个命令按钮 Commandl,编写事件代码如下: Private Sub CommandI_Click() Dim x As Intege YAs Integer X=12: y=32 Call Proc(x, y) End Sub Public Sub Proch As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是 ( A) 2 32 ( B) 12 3 ( C) 2 2 ( D) 12 32 23 窗体 中有命令按钮
16、 Commandl,事件过程如下: Public Function f(xAs Integer)As Integer DimYAs Integer x=20 y=2 f=-x*y End Function Private Sub Commandl Click() Dim yAs Integer Static X As Integer x=10 y=5 y=f(x) Debug Printx; y End Sub 运行程序,单击命令按钮,则立即窗口中显示的内容是 ( A) 10 5 ( B) 10 40 ( C) 20 5 ( D) 20 40 24 如果在被调用的过程中改变了形参变量的值,但又
17、不影响实参变量本身,这种参数传递方式称为 ( A)按值传递 ( B)按地址传递 ( C) ByRef传递 ( D)按形参传递 25 在代码中定义了一个子过程: Sub P(a, b) End Sub 下列调用该过程的形式中,正确的是 ( A) P(10, 20) ( B) Call P ( C) Call P 10, 20 ( D) Call p(10, 20) 26 不属于 VBA提供的程序运行错误处理的语句结构是 ( A) On Error Then标号 ( B) On Error Goto标号 ( C) On Error Resume Next ( D) On Error Goto 0
18、27 在调试 VBA程序时,能自动被查出来的错误是 ( A)语法错误 ( B)逻辑错误 ( C)运行错误 ( D)语法错误和逻辑错误 28 下列属于通知或警告用户的命令是 ( A) PrintOut ( B) OutputTo ( C) MsgBox ( D) Set Warnings 29 在 VBA中,能自动检查出来的错误是 ( A)语法错误 ( B)逻辑错误 ( C)运行错误 ( D)注释错误 30 要显示当前过程中的所有变量及对象的取值,可以利用的调试窗口是 ( A)监视窗口 ( B)调用堆栈 ( C)立即窗口 ( D)本地窗口 31 在代码调试时,使用 Debug Print语句显示
19、指定变量结果的窗口是 ( A)立即窗口 ( B)监视窗口 ( C)本地窗口 ( D)属性窗口 32 现有一个已经建好的窗体,窗体中有一命令按钮,单击此按钮,将打开“tEmployee”表,如果采用 VBA代码完成,下面语句正确的是 ( A) docmd openform“tEmployee” ( B) docmd openview“tEmployee” ( C) docmd opentable“tEmployee” ( D) docmd openreport“tEmployee” 33 在 VBA中,实现窗体打开操作的命令是 ( A) DoCmd OpenForm ( B) OpenForm
20、( C) Do OpenForm ( D) DoOpcn Form 34 在 VBA中要打开名为 “学生信息录入 ”的窗体,应使用的语句是 ( A) DoCmd OpenForm“学生信息录入 ” ( B) OpenForm“学生信息录入 ” ( C) DoCmd OpenWindow“学生信息录入 ” ( D) OpenWindow“学生信息录入 ” 35 下列过程的功能是:通过对象变量返回当前窗体的 Recordset属性记录集引用,消息框中输出记录集的记录 (即窗体记录源 )个数。 Sub GetRecNum0 Dim rs As Object Set rs=Me Recordset M
21、sgBox_ End Sub 程序空白处应填写的是 ( A) Count ( B) rs Count ( C) RecordCount ( D) rs RecordCount 36 下列程序段的功能是实现 “学生 ”表中 “年龄 ”字段值加 1 Dim StrAs String SU=“_” Docmd RunSQL Str 空白处应填入的程序代码是 ( A)年龄 =年龄 +1 ( B) Update学生 Set年龄 =年龄 +1 ( C) Set年龄 =年龄 +1 ( D) Edit学生 Set年龄 =年龄 +1 37 下列程序的功能是返回当前窗体的记录集 Sub GetRecNum0 Di
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 ACCESS 选择题 模块 VBA 编程 基础 数据库 模拟 答案 解析 DOC

链接地址:http://www.mydoc123.com/p-496312.html