1、二级 ACCESS-65 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.用来测试当前读写位置是否达到文件末尾的函数是（分数：2.50）A.EOFB.FileLenC.LenD.LOF2.卞列表达式中，能够保留变量 x 整数部分并进行四舍五入的是（分数：2.50）A.Fix(x)B.Rnd(x)C.Round(x)D.Int(x)3.VBA 程序中，可以实现代码注释功能的是（分数：2.50）A.方括号()B.冒号(:)C.双引号(“)D.单引号(“)4.在窗口中有一个标签 Label0 和一个命令按钮 Command1，Command1
2、的事件代码如下： Private Sub Command1_Click() Label0.Left=Label0.Left+100 End Sub 打开窗口，单击命令按钮，结果是（分数：2.50）A.标签向左加宽B.标签向右加宽C.标签向左移动D.标签向右移动5.假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的叙述是（分数：2.50）A.如果“条件”值为 0，则一次循环体也不执行B.如果“条件”值为 0，则至少执行一次循环体C.如果“条件”值不为 0，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体6.假定有以下程序段 n=0 for i=1 to
3、3 for j=-4 to -1 n=n+1 next j next i 运行完毕后，n 的值是（分数：2.50）A.0B.3C.4D.127.以下程序段运行结束后，变量 X 的值为 x=2 y=4 Do x=x*y y=y+1 Loop While y4（分数：2.50）A.2B.4C.8D.208.在窗体上添加一个命令按钮(名为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox
4、x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是（分数：2.50）A.7B.15C.157D.5289.在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码： 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 窗体打开运行后，单击命令按钮，则消息框的输出结果是（分数：2.50）A.22B.32C.42D.5210.在窗体中添加一个名称为 Command
5、1 的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是（分数：2.50）A.1B.2C.3D.411.在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s=“ABBACDDCBA“ For I=6 To 2.Step -2 x=Mid(s,I,I)
6、 y=Left(s,I) z=Right(s,I) z=x Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入 10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是（分数：2.50）A.37 55 64 28 19 19B.10 50 20C.10 50 20 0D.37 55 64 28 1933.若变量 i 的初值为 8，则下列循环语句中循环体的执行次数为 Do While i=17 i=i+2 Loop（分数：2.50）A.3 次B.4 次C.5 次D.6 次34.InputBox 函数的返回值类型是（分数：2.50）A.数
7、值B.字符串C.变体D.视输入的数据而定35.下列能够交换变量 X 和 Y 值的程序段是（分数：2.50）A.Y=X:X=YB.Z=X:Y=Z:X=yC.Z=X:X=Y:Y=ZD.Z=X:W=Y:Y=Z:X=Y36.窗体中有命令按钮 commandd1 和文本框 Text1，事件过程如下： 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 Command1_Click() x=Val(Input
8、Box(“请输入一个整数“) If_Then Text1=str(x) Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入 10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是（分数：2.50）A.37 55 64 28 19 19B.10 50 20C.10 50 20 0D.37 55 64 28 19 解析：解析 分析 if 语句，当计算表达式(y mod 10)+int(y/10)等于 10 时，立即窗口显示输入的数字。当输入第一个数字 10 时，(y mod 10)+int(y/10)=0+1=1 不等于 10，不显示；
9、当输入第二个数字 37 时，(y mod 10)+int(y/10)=7+3=10，显示数字 37，依次类推，结果为选项 D。33.若变量 i 的初值为 8，则下列循环语句中循环体的执行次数为 Do While i=17 i=i+2 Loop（分数：2.50）A.3 次B.4 次C.5 次 D.6 次解析：解析 Do WhileLoop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。 每次循环对应的 i 值： 循环次数 i 的值 1 8=17 2 8+2=10=17 3 10+2=12=17 4 12+2=14=17 5 14+2=16=17 34.InputBox 函
10、数的返回值类型是（分数：2.50）A.数值B.字符串 C.变体D.视输入的数据而定解析：解析 InputBox 输入框：在对话框中显示提示，等待使用者输入文字或按一下按钮，再返回包含文本框内容的字符串类型值。35.下列能够交换变量 X 和 Y 值的程序段是（分数：2.50）A.Y=X:X=YB.Z=X:Y=Z:X=yC.Z=X:X=Y:Y=Z D.Z=X:W=Y:Y=Z:X=Y解析：解析 想要交换 X 与 Y 的值，需要另一个变量作为中间变量 Z，先把 X 值赋给 Z，再把 Y 值赋给X，最后把 Z 的值赋给 Y，交换完毕。36.窗体中有命令按钮 commandd1 和文本框 Text1，事件
11、过程如下： 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 Command1_Click() x=Val(InputBox(“请输入一个整数“) If_Then Text1=str(x) &“是偶数.“ Else Text1=str(x) &“是奇数.“ End If End Sub 运行程序，单击命令按钮，输入 19，在 Text1 中会显示“19 是奇数”。那么在程序的空白处应填写（分数：
12、2.50）A.result(x)=“偶数”B.result(x) C.result(x)=“奇数”D.NOT result(x)解析：解析 result 函数返回的是布尔值：True 或 False，x Mod 2=0 表示如果一个数除以 2 为 0 代表是偶数，那么返回 True 值，所以条件判断时只要调用 result(x)即可。37.窗体有命令按钮 Command1 和文本框 Text1，对应的事件代码如下： Private 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
13、j Next i Text1.Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是（分数：2.50）A.6B.12C.18D.21 解析：解析 此处嵌套三层循环，最外层循环总是把 x 值初始化为 3，所以只看内两层循环的次数及累加，内两层一共循环 3*2=6 次，每次 x 的值累加 3，即共累加 6*3=18，再加上初始值 x=3+18=21。38.窗体中有命令按钮 run34，对应的事件代码如下： Private Sub run34_Enter() Dim num As Integer, a As Integer, b As Integer, i As Integer
14、 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 运行以上事件过程，所完成的功能是（分数：2.50）A.对输入的 10 个数据求累加和B.对输入的 10 个数据求各自的余数，然后再进行累加C.对输入的 10 个数据分别统计奇数和偶数的个数 D.对输入的 10 个数据分别统计整数和非整数的个数解析：解析 因 num 变量为整型，所以每次输入的数据是整数，int
15、 函数是取整函数，如果 num 为整数，则 int(num/2)与 num/2 相等，否则不等，所以此事件代码完成的功能是统计输入奇数与偶数的个数。39.运行下列程序，输入数据 8、9、3、0 后，窗体中显示结果是 Private Sub Form_click() Dim sum As Integer, m As Integer sum=0 Do m=InputBox(“输入 m“) sum=sum+m Loop Until m=0 MsgBox sum End Sub（分数：2.50）A.0B.17C.20 D.21解析：解析 DoUntil Loop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。当输入 8、9、3 三个数字条件(m=0)不成立，所以累加，直到输入 0 后结束，即 8+9+3=20。40.运行下列程序段，结果是 For m=10 to 1 step 0 k=k+3 Next m（分数：2.50）A.形成死循环B.循环体不执行即结束循环 C.出现语法错误D.循环体执行一次后结束循环解析：解析 FOR 是循环语句，当 step=0 时，to 前数字要小于后面数字，否则将不执行。本题中 to前数字是 10 大于后面数字 1 则不执行此循环体，直接跳过。
