1、国家二级 ACCESS（模块与 VBA编程基础）机试模拟试卷 2及答案与解析 一、选择题 1 用来测试当前读写位置是否达到文件末尾的函数是 （ A） EOF （ B） FileLen （ C） Len （ D） LOF 2 下列表达式中，能够保留变量 x整数部分并进行四舍五入的是 （ A） Fix(x) （ B） Rnd(x) （ C） Round(x) （ D） Int(x) 3 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双 引号 (“) （ D）单引号 () 4 在窗口中有一个标签 Labe10和一个命令按钮 Commandl， Comm
2、andl的事件代码如下： Private Sub Command 1一 Click() Label0.Left=Labe10.Left+100 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 5 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的叙述是 （ A）如果 “条件 ”值为 0，则一次循环体也不执行 （ B）如果 “条件 ”值为 0，则至少执行一次循环体 （ C）如果 “条件 ”值不为 0，则至少执行一次循环体 （ D）不论 “条件 ”是否为 “真 ”，至少要执行一次循环体 6 假
3、定有以下程序段 n=0 for i=1 to 3 forj=-4 t0-1 n=n+1 next J next i 运行完毕后， n的值是 （ A） 0 （ B） 3 （ C） 4 （ D） 12 7 以下程序段运行结束后，变量 X的值为 （ A） 2 （ B） 4 （ C） 8 （ D） 20 8 在窗体上添加一个命令按钮 (名为 Commandl)，然后编写如下事件过程： Private Sub Command l_Click() Fori=l To 4 x=4 Forj=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Nextj Next i MsgBox X E
4、nd Sub 打开窗体后，单击命令按钮，消息框的输出结果是 （ A） 7 （ B） 15 （ C） 157 （ D） 528 9 在窗体中添加一个名称为 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 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 22 （ B） 32 （ C） 42 （ D） 52 10 在窗体中添
5、加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l_Click() A=75 IfA60 Then I=1 IfA70 Then I=2 IfA80 Then I=3 IfA90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 11 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Cornmandl_Click() s=“ABBACDDCBA“ For I=6 To 2 St
6、ep -2 x=Mid(s， I， I) y=Left(s， I) z=Right(s， I) z=x y z Next I MsgBox z End Sub | 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） AABAAB （ B） ABBABA （ C） BABBA （ D） BBABBA 12 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_C1ick() a=75 If a60 Then k=1 Elself a70 Then k=2 Elself a80 Then k=3 Elself a90 The
7、n k=4 EndIf MsgBOX k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 13 设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 T0 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是 （ A） 3 （ B） 4 （ C） 5 （ D） 6 14 设有如下程序： Private Sub Com
8、mand l_click() Dim sum As Double， x As Double Sum=0 n=0 For i=l T0 5 x=nil n=n+l Sum=Sum+X Next I End Sub 该程序通过 For循环来计算一个表达式的值，这个表达式是 （ A） 1+1 2+2 3+3 4+4 5 （ B） 1+1 2+l 3+1 4+1 5 （ C） 1 2+2 3+3 4+4 5 （ D） 1 2+1 3+1 4+1 5 15 下列 Case语句中错误的是 （ A） Case 0 To 10 （ B） Case Is10 （ C） Case Is10 And Is10 16
9、 下列不是分支结构的语句是 （ A） If.Then.EndIF （ B）啪 ile.Wend （ C） If.Then.Else.EndIf （ D） Select.Case.End Select 17 在窗体中使用一个文本框 (名为 n)接受输入的值，有一个命令按钮 run，事件代码如下： Private Sub run_Click() result=“ For i=l To Me!n For j=1 To Me!n result=rcsul什 ”*” Nextj result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗
10、体后，如果通过文本框输入的的值为 4，单击命令按钮后输出的图型 是 （ A） （ B） （ C） （ D） 18 VBA程序流程控制的方式是 （ A）顺序控制和分支控制 （ B）顺序控制和循环控制 （ C）循环控制和分支控制 （ D）顺序、分支和循环控制 19 下列四种形式的循环设计中，循环次数最少的是 （ A） a=5： b=8 Do A=a+l Loop While ab a=a+l Loop 20 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35_Etater() Dim num As Integer Dim a As Integer Dim
11、b As Integer Dim iAs Integer For i=l T0 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个数据分别统计有几个是整数，有几个是非整数 （ D）对输入的 lO个数据分别统计有几个是
12、奇数，有几个是偶数 21 在 VBA中，错误的循环结构是 （ A） Do While条件式 循环体 Loop （ B） Do Until条件式 循环体 Loop （ C） Do Until 循环体 Loop条件式 （ D） Do 循环体 Loop While条件式 22 在窗体中有一个命令按钮 (名称为 run34)，对应的事件代码如下： Private Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=suln+i Next i MsgBox sum End Sub 运行以上事件，程序的 输出结果是 （ A） 10 （ B） 30 （ C） 5
13、5 （ D）其他结果 23 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35命令按钮的 Click的事件代码如下： Private Sub run35_Click() Dim flagAs Boolean result=0 flag=True Do While flag result=Val(InputBox(“请输入学生成绩 :“,“输入 “) If result=0 And result=7 （ D） x7 26 在窗体中添加一个名称为 Commandl的命
14、令按钮，然后编写如下事件代码： Private Sub CommandIClick() MsgBox f(24， 18) End Sub Public Function f(m As Integer， n As Integer)As Integer Do While mn m=m-n Loop Do While m=7。 26 【正确答案】 C 【试题解析】 本题考查 VBA程序设计的知识。当调用函数时，形参 m=24，n=18：然后进入循环，由于 mn，所以执行 m=m-n， m的值变为 6；第 2次循环时由于 m=0时， to前数字要小于后面数字，否则将 不执行。本题中 to前数字是 10大于后面数字 1则不执行此循环体，直接跳过。
