2013年9月计算机二级Access无纸化预测选择题十一

2013年9月计算机二级Access无纸化预测选择题汇总

　　考点11：模块VBA基础

　　1.运行下列程序段，结果是( )。

　　For m = 10 To 1 Step 0

　　k = k + 3

　　Next m答案：B

　　A)形成死循环

　　B)循环体不执行即结束循环

　　C)出现语法错误

　　D)循环体执行一次后结束循环

　　2.假设某一数据库表中有一个地址字段，查找地址最后两个字为“8号”的记录的准则是( )。答案：A

　　A)Right([地址],2)="8号"

　　B)Right([地址],4)="8号"

　　C)Right("地址",2)="8号"

　　D)Right("地址",4)="8号"

　　3.以下合法的表达式是( )。答案：B

　　A)教师编号between 100000 and 200000

　　B)[性别]="男" or"女"

　　C)[基本工资]>=1000[基本工资]<=10000

　　D)[性别]like"男"=[性别]="女"

　　4.下列Case语句中错误的是( )。答案：C

　　A)Case 0 To 10

　　B)Case Is>10

　　C)Case Is>10 And Is<50

　　D)Case 3,5,Is>10

　　5.下列数组声明语句中，正确的是( )。答案：B

　　A)Dim A[3,4] As Integer

　　B)Dim A(3,4)As Integer

　　C)Dim A[3;4] As Integer

　　D)Dim A(3;4)As Integer

　　6.在窗体上有一个命令按钮Command1，编写事件代码如下：

　　Private Sub Command1_Click()

　　Dim x As Integer, y As Integer

　　x = 12: y = 32

　　Call Proc(x, y)

　　Debug.Print x; y

　　End Sub

　　Public Sub Proc(n As Integer, ByVal m As Integer)

　　n = n Mod 10

　　m = m Mod 10

　　End Sub

　　打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。答案：A

　　A)2 32

　　B)12 3

　　C)2 2

　　D)12 32

　　7.以下过程的功能是向数组中增加字符，则程序中下画线处应为( )

　　Private Sub AddToArray(arr(),arraycount%,ByVal charstring)

　　Dim i%, found As Boolean

　　found=False

　　For i=1 To arraycount

　　If array(i)=charstring Then

　　found=True

　　Exit For

　　End If

　　Next i

　　If Not found Then

　　arraycount= arraycount+1

　　———

　　arr(arraycount)=charstring

　　End If

　　End Sub答案：B

　　A)ReDim arr(arraycount)

　　B)ReDim Preserve arr(arraycount)

　　C)Dim arr(arraycount)

　　D)Dim Preserve arr(arraycount)

　　8.以下窗体加载事件程序如下：

　　Private Sub Form_Load()

　　Do

　　b = b + 1

　　If b = 5 Then Exit Do

　　Loop

　　Msgbox b

　　End Sub

　　此程序运行结果为( )。答案：A

　　A)5

　　B)6

　　C)7

　　D)8

　　9.在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为( )。答案：D

　　A)Boolean

　　B)Integer

　　C)String

　　D)Variant

　　10.给定日期DD，计算该日期当月最大天数的正确表达式是( )。答案：D

　　A)Day(DD)

　　B)Day(DateSerial(Year(DD)，Month(DD)，day(DD)))

　　C)Day(DateSerial(Year(DD)，Month(DD)，0))

　　D)Day(DateSerial(Year(DD)，Month(DD)+1,0))

编辑推荐：

考试吧考后首发2013年9月计算机等级考试试题及答案

2013年计算机等级考试备考精华资料汇总

全国计算机等级考试教材目录（2013年版）

全国计算机等级考试考试大纲（2013年版）