[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷18及答案与解析.doc
《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷18及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级ACCESS机试选择题(模块与VBA编程基础)模拟试卷18及答案与解析.doc(26页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 ACCESS机试选择题(模块与 VBA编程基础)模拟试卷 18及答案与解析 一、选择题 1 可以用 InputBox函数产生 “输入对话框 ”。执行语句: st=InputBox(”请输入字符串 ”, ”字符串对话框 “,“aaaa”) 当用户输入字符串 “bbbb”,按 OK按钮后,变量 st的内容是 ( A) aaaa ( B)请输入字符串 ( C)字符串对话框 ( D) bbbb 2 下列不属于 VBA函数的是 ( A) Choose ( B) If ( C) IIf ( D) Switch 3 下 列关于 VBA事件的叙述中,正确的是 ( A)触发相同的事件可以执行不同的事件
2、过程 ( B)每个对象的事件都是不相同的 ( C)事件都是由用户操作触发的 ( D)事件可以由程序定义 4 用来测试当前读写位置是否达到文件末尾的函数是 ( A) EOF ( B) FileLen ( C) Len ( D) LOF 5 下列表达式中,能够保留变量 X整数部分并进行四舍五入的是 ( A) Fix(x) ( B) Rnd(x) ( C) Round(x) ( D) Int(x) 6 VBA程序中,可以实现代码注释功能的是 ( A)方括号 () ( B)冒号 (: ) ( C)双引号 (”) ( D)单引号 () 7 在窗口中有一个标签 L如 elO和一个命令按钮 Commandl
3、, Commandl的事件代码如下: Private Sub Command1_Click() Labe10 Lefl=Label0 Left+100 End Sub 打开窗口,单击命令按钮,结果是 ( A)标签向左加宽 ( B)标签向右加宽 ( C)标签向左移动 ( D)标签向右移动 8 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的叙述是 ( A)如果 “条件 ?值为 0,则一次循环体也不执行 ( B)如果 “条件 ”值为 0,则至少执行一次循环体 ( C)如果 “条件 ”值不为 0,则至少执行一次循环体 ( D)不论 “条件 ”是否为 “真 ”,至少要执行一次循环体
4、 9 假琵有以下程序段 n=0 for i=1 to 3 for i=一 4 to-1 n=n+1 next j next i 运行完毕后, n的值是 ( A) 0 ( B) 3 ( C) 4 ( D) 12 10 以下程序段运行结束后,变量 X的值为 X=2 : y=4 Do X=x*y: y=y+1 Loop While y 4 ( A) 2 ( B) 4 ( C) 8 ( D) 20 11 在窗体上添加一个命令按钮 (名为 Commandl),然后编写如下事件过程: Private Sub Commandl_Click() For i=1 To 4 X=4 For j=1 To 3 x=
5、3 For k=1 To 2 X=x+6 Next k, j, i MsgBox X End Sub 打开窗体后,单击命令按钮,消息框的输出结果是 ( A) 7 ( B) 15 ( C) 157 ( D) 528 12 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下事件代码: Private Sub Commandl_Click() Dim a(10, 10) For m=2 To 4 For n=4 To 5 a(m, n)=m*n Nextn Next m MsgBox a(2, 5)+a(3, 4)+a(4, 5) End Sub 窗体打开运行后,单击命令按钮,则消息框
6、的输出结果是 ( A) 22 ( B) 32 ( C) 42 ( D) 52 13 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A=75 IfA 60 Then I=1 IfA 70 Then I=2 IfA 80 Then I=3 IfA 90 Then 1=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 ( A) 1 ( B) 2 ( C) 3 ( D) 4 14 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下事件代码: Private Su
7、b Command1_Click() s=”ABBACDDCBA” For I=6 To 2: Step -2 x=Mid(s, I, I): y=Lefl(s, 1) z=Right(s, I) Z=X&v&Z Next I MsgBox Z End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 ( A) AABAAB ( B) ABBABA ( C) BABBA ( D) BBABBA 15 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下事件代码: Private Sub Commandl_Click() a=75 If a 60 Then k=1 Else
8、lf a 70 Then k=2 Elself a 80 Then k=3 EIself a 90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是 ( A) 1 ( B) 2 ( C) 3 ( D) 4 16 设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1.3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出的结果是 (
9、 A) 3 ( B) 4 ( C) 5 ( D) 6 17 设有如下程序: Private Sub Commandl_Click() Dim sum As Double, X As Double Sum=0 n=0 For i=1 To 5 x=n i n=n+1 sum=sum+x Next I End Sub 该程序通过 For循环来计算一个表达式的值,这个表达式是 ( A) 1+1 2+2 3+3 4+4 5 ( B) 1+1 2+1 3+1 4+1 5 ( C) 1 2+2 3+3 4+4 5 ( D) 1 2+1 3+1 4+1 5 18 下列 Case语句中错误的是 ( A) Ca
10、se 0 To 10 ( B) Case Is 10 ( C) Case Is 10 And Is 50 ( D) Case 3 5 Is 10 19 下列不是分支结构的语句是 ( A) If.Then.EndlF ( B) While.Wend ( C) If.Then.Else.Endlf ( D) Select.Case.End Select 20 在窗体中使用一个文本框 (名为 n)接受输入的值,有一个命令按钮 run,事件代码如下: Private Sub run Click() result=” For i=1 To Me!n For i=1 To Me!n result=resu
11、lt+“*” Next i result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗体后,如果通过文本框输入的的值为 4,单击命令按钮后输出的图型是 ( A) * * * * * * * * * * * * * * * * ( B) * * * * * * * * * * * * * * * * ( C) * * * * * * * * * * * * * * * * * * * * * * * * * * * * ( D) * * * * * * * * * * * * * * * * 21 VBA程序流程控制的方式是 (
12、 A)顺序控制和分支控制 ( B)顺序控制和循环控制 ( C)循环控制和分支控制 ( D)顺序、分支和循环控制 22 下列四种形式的循环设计中,循环次数最少的是 ( A) a=5: b=8 DO A=a+1 Loop While a b ( B) a=5: b=8 DO a=a+1 Loop Until a b ( C) a=5: b=8 Do Until a b b=b+1 Loop ( D) a=5: b=8 Do Until a b a=a+1 Loop 23 在窗体中有一个命令按钮 run35,对应的事件代码如下: Private Sub run35_Enter() Dim num A
13、s Integer, a As Integer Dim b As Integer,i As Integer For i=1 To 10 num=InputBox(”请输入数据: ”, ”输入 ”, 1) 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个数据分别统计有几个是整数,有几个是非整
14、数 ( D)对输入的 10个数据分别统计有几个是奇数,有几个是偶数 24 在 VBA中,错误的循环结构是 ( A) Do While条件式 循环体 Loop ( B) Do Until条件式 循环体 Loop ( C) Do Until 循环体 Loop条件式 ( D) Do 循环体 Loop While条件式 25 在窗体中有一个命令按钮 (名称为 run34),对应的事件代码如下: Private Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件,程序的输出结果是
15、( A) 10 ( B) 30 ( C) 55 ( D)其他结果 26 在窗体中有一个名称为 run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在 0到 100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。 rtm35命令按钮的 Click的事件代码如下: Private Sub run35_Click() Dim flag As Boolcan result=0 : flag=True Do While flag result=Val(InputBox(”请输入学生成绩 :, ”输入 ”) If result =0 And result =1 00 The
16、n Else MsgBOX ”成绩输入错误,请重新输入 ” End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处,需要填入一条语句使程序完成其功能。下列选项中错误的语句是 ( A) flag=False ( B) flag=Not flag ( C) flag=True ( D) Exit Do 27 下列四个选项中,不是 VBA的条件函数的是 ( A) Choose ( B) If ( C) IIf ( D) Switch 28 设有如下过程: x=I Do x=x+2 Loop Until 运行程序,要求循环体执行 3次后结束循环,空白处应填入的语句
17、是 ( A) x =7 ( B) x 7 ( C) x =7 ( D) x 7 29 在窗体中添加一个名称为 Commandl的命令按钮,然后编写如下事件代码: Private Sub Commandl Click() MsgBox f(24, 18) End Sub Public Function f(m As Integer, n As Integer)As Integer Do While m n Do While m n m=m-n Loop Do While m n n=n-m Loop Loop f=m End Function 窗体打开运行后, 单击命令按钮,则消息框的输出结果是
18、 ( A) 2 ( B) 4 ( C) 6 ( D) 8 30 在窗体中有一个文本框 Textl,编写事件代码如下: Private Sub Form Click() X=val(Inputbox(”输入 x的值 ”) Y=1 IfX ThenY=2 Text1 Vlalue=Y End Sub 打开窗体运行后,在输入框中输入整数 12,文本框 Textl中输出的结果是 ( A) 1 ( B) 2 ( C) 3 ( D) 4 31 在窗体中有一个命令按钮 Commandl和一个文本框 Textl,编写事件代码如下: Private Sub Commandl_Click() For I=1 To
19、 4 x=3 For i=1 To 3 For k=1 To 2 x=x+3 Next k Nextj Next I Textl value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框 Textl输出的结果是 ( A) 6 ( B) 12 ( C) 18 ( D) 2l 32 在窗体中有一个命令按钮 Commandl,编写事件代码如下: Private Sub Commandl Click() Dim SAs Integer S=P(1)+P(2)+P(3)+P(4) debug Print S End Sub Public Function afN AS Intege
20、r) 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 33 由 “For i=1 To 9 Step-3”决定的循环结构,其循环体将被执行 ( A) 0次 ( B) 1次 ( C) 4次 ( D) 5次 34 在窗体上有一个命令按钮 Commandl和一个文本框 Text1,编写事件代码如下 Private Sub Commandl_Click() Dim i, j, X For i=1 T
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 ACCESS 选择题 模块 VBA 编程 基础 模拟 18 答案 解析 DOC
