[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷6及答案与解析.doc
《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷6及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷6及答案与解析.doc(20页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 ACCESS机试选择题(模块与 VBA编程基础)模拟试卷 6及答案与解析 一、选择题 1 在下列关于宏和模块的叙述中,正确的是 ( A)模块是能够被程序调用的函数 ( B)通过定义宏可以选择或更新数据 ( C)宏或模块都不能是窗体或报表上的事件代码 ( D)宏可以是独立的数据库对象,可以提供独立的操作动作 2 在 Access中,如果变量定义在模块的过程内部,当过程代码执行时才可见,则这种变量的作用域为 ( A)程序范围 ( B)全局范围 ( C)模块范围 ( D)局部范围 3 VBA表达式 3*3 3 3的输出结果是 ( A) 0 ( B) 1 ( C) 3 ( D) 9 4 In
2、putBox函数的返回值类型是 ( A)数值 ( B)字符串 ( C)变体 ( D)数值或字符串 (视输入的数据而定 ) 5 语句 Dim NewArray(10)As Integer的含义是 ( A)定义了一个整型变量且初值为 10 ( B)定义了 10个整数构成的数组 ( C)定义了 11个整数构成的数组 ( D)将数组的第 10元素设置为整型 6 窗体中有 3个命令按钮,分别命名为 Command1、 Command2和 Command3。当单击 Command1按钮时, Command2按钮变为可用, Command3按钮变为不可见。下列 Command1的单击事件过程中,正确的是 (
3、 A) Private Sub Commandl_Click() Command2 Visible=True Command3 vIsible=FalSe End Sub ( B) Private Sub Command1_Click() Command2 Enabled=True Command3 Enabled=False End Sub ( C) Private Sub Command1_Click() Command2 Enabled=True Command3 Visible=False End Sub ( D) Private Sub Command1_Click() Comman
4、d2 Visible=True Command3 Enabled=False End Sub 7 在已建窗体中有一命令按钮 (名为 Commandl),该按钮的单击事件对应的 VBA代码为: Private Sub Command1_Click() SubT Form RecordSource=“select*from雇员 “ End Sub 单击该按钮实现的功能是 ( A)使用 select命令查找 “雇员 ”表中的所有记录 ( B)使用 select命令查找并显示 “雇员 ”表中的所有记录 ( C)将 SubT窗体的数据来源设置为一个字符串 ( D)将 SubT窗体的数据来源设置为 “雇员
5、 ”表 8 在窗体上有一个命令按钮 Command1,编写事件代码如下: PfivMe Sub Command1_Click() Dim d1 As Date Dim d2 As Date d1=#12 25 2009# d2=#1 5 2010# MsgBox DateDiff(“ww“, d1, d2) End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是 ( A) 1 ( B) 2 ( C) 10 ( D) 11 9 下列给出的选项中,非法的变量名是 ( A) Sum ( B) Integer_2 ( C) Rem ( D) Form1 10 VBA中定义符号常量使用的关
6、键字是 ( A) Const ( B) Dim ( C) Public ( D) Static 11 用来测试当前读写位置是否达到文件 末尾的函数是 ( A) EOF ( B) FileLen ( C) Len ( D) LOF 12 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的叙述是 ( A)如果 “条件 ”值为 0,则一次循环体也不执行 ( B)如果 “条件 ”值为 0,则至少执行一次循环体 ( C)如果 “条件 ”值不为 0,则至少执行一次循环体 ( D)不论 “条件 ”是否为 “真 ”,至少要执行一次循环体 13 在窗体中添加一个名称为 Command1的命令按
7、钮,然后编写如下事件代码: Private Sub Command1_Click() Dim a(10, 10) For m=2 To 4 For n=4 To 5 a(m, n)m*n Next n Next m MsgBox a(2, 5)+a(3, 4)+a(4, 5) End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 ( A) 22 ( B) 32 ( C) 42 ( D) 52 14 设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1, 3 a=a+1 Case 2
8、, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出的结果是 ( A) 3 ( B) 4 ( C) 5 ( D) 6 15 在窗体中使用一个文本框 (名为 n)接受输入的值,有一个命令按钮 run,事件代码如下: Private Sub run_Click()result=“For i=1 To Me!nForj=1 To Me!nresult=result+“*“Nextjresult=result+Chr(13)+Chr(10)Next iMesgBox resultEnd Sub打开窗体后,如果通过文本框输入的
9、的值为 4,单击命令按钮后输出的图型是16 在 VBA中,错误的循环结构是 ( A) Do While条件式 循环体 Loop ( B) Do Until条件式 循环体 Loop ( C) Do Until 循环体 Loop条件式 ( D) Do 循环体 Loop While条件式 17 设有如下过程: x=1 Do x=x+2 Loop Until_ 运行程序,要求循环体执行 3次后结束循环,空白处应填入的语句是 ( A) x =7 ( B) x 7 ( C) x =7 ( D) x 7 18 在窗体中有一个命令按钮 Command1,编写事件代码如下: Private Sub Comman
10、dl_Click() Dim s As Integer S=P(1)+P(2)+P(3)+P(4) debug Print S End Sub Public Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出结果是 ( A) 15 ( B) 20 ( C) 25 ( D) 35 19 若变量 i的初值为 8,则下列循环语句中循环体的执行次数为 Do While i =17 i=i+2 Loop ( A) 3次 (
11、B) 4次 ( C) 5次 ( D) 6次 20 窗体有命令按钮 Command1和文本框 Text1,对应的事件代码如下: Pfivate Sub Command1_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 21 运行下列程序,结果是 Private Sub Command32_Click() f0=1: f1=1: k=1 Do
12、 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 22 若有以下窗体单击事件过程: 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 23 运行下列程序,在立即窗口显示的结果是 Pfivate
13、 Sub Command0_Click() Dim IAs Integer, JAs Integer For I=2 To 10 For J=2 To I 2 If I mod J=0 Then Exit For Next J If J sqr(I)Then Debug Print I; Next I End Sub ( A) 1 5 7 9 ( B) 4 6 8 ( C) 3 5 7 9 ( D) 2 3 5 7 24 在窗体中有一个名为 run34的命令按钮,事件代码如下: Private Sub run34_Click() f1=1 f2=1 For n=3 To 7 f=f1+f2 f
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 ACCESS 选择题 模块 VBA 编程 基础 模拟 答案 解析 DOC
