2013年计算机二级ACCESS笔试预测试题及答案（4）

　　(26)On Error Goto 0语句的含义是

　　A)忽略错误并执行下一条语句

　　B)取消错误处理

　　C)遇到错误执行定义的错误

　　D)退出系统

　　(27)VBA中用实际参数a和b调用有参过程Area(m,n)的正确形式是

　　A)Area m,n

　　B)Area a,b

　　C)Call Area(m,n)

　　D)Call Area a,b

　　(28)下列四种形式的循环设计中，循环次数最少的是

　　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

　　(29)下列数据类型中，不属于VBA的是

　　A)长整型 B)布尔型 C)变体型 D)指针型

　　(30)在已建窗体中有一命令按钮(名为Command1)，该按钮的单击事件对应的VBA代码为：

　　Private Sub Command1_Click()

　　subT.Form.RecordSource = "select * from 雇员"

　　End Sub

　　单击该按钮实现的功能是

　　A)使用select命令查找"雇员"表中的所有记录

　　B)使用select命令查找并显示"雇员"表中的所有记录

　　C)将subT窗体的数据来源设置为一个字符串

　　D)将subT窗体的数据来源设置为"雇员"表

　　(31)假定有如下的Sub过程：

　　sub sfun(x As Single, y As Single)

　　t=x

　　x=t/y

　　y=t Mod y

　　End Sub

　　在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　Dim a as single

　　Dim b as 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)5和4

　　(32)在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

　　Private Sub Command1_Click()

　　Dim i, j, x

　　For i = 1 To 20 Step 2

　　x = 0

　　For j = i To 20 Step 3

　　x = x + 1

　　Next j

　　Next i

　　Text1.Value = Str(x)

　　End Sub

　　打开窗体运行后，单击命令按钮，文本框中显示的结果是

　　A)1 B)7 C)17 D)400

　　(33)在窗体上添加一个命令按钮(名为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 x

　　End Sub

　　打开窗体后，单击命令按钮，消息框的输出结果是

　　A)7 B)15 C)157 D)538

　　(34)如下程序段定义了学生成绩的记录类型：由学号、姓名和三门课程成绩(百分制)组成。

　　Type Stud

　　no As Integer

　　name As String

　　score (1 to 3) As Single

　　End Type

　　若对某个学生的各个数据项进行赋值，下列程序段中正确的是

　　A)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score = 78,88,96

　　B)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score = 78,88,96

　　C)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score(1) = 78

　　Stud.score(2) = 88

　　Stud.score(3) = 96

　　D)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score(1) = 78

　　S.score(2) = 88

　　S.score(3) = 96

　　(35)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

　　Private Sub Command1_Click()

　　s="ABBACDDCBA"

　　For I=6 To 2 Step -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