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

　　A)result(x)= "偶数"

　　B)result(x)

　　C)result(x)= "奇数"

　　D)NOT result(x)

　　9.窗体加载事件如下：

　　Private Sub Form_Load( )

　　b = 1

　　Do While b < 15

　　b = b * 2

　　Loop

　　MsgBox b

　　End Sub

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

　　A)16

　　B)15

　　C)14

　　D)13

　　10.假定有如下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

　　则单击按钮后的输出结果是( )。答案：B

　　A)1和1

　　B)1.25和1

　　C)1.25和4

　　D)5和4

　　11.在窗体中有一个文本框Text1，编写事件代码如下：

　　Private Sub Form_Click()

　　X=val(Inputbox("输入x的值"))

　　Y=1

　　If X<>0 Then Y = 2

　　Text1.Value = Y

　　End Sub

　　打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。答案：B

　　A)1

　　B)2

　　C)3

　　D)4

　　12.VBA“定时”操作中，需要设置窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是( )。答案：B

　　A)微秒

　　B)毫秒

　　C)秒

　　D)分钟

　　13.下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs = Me.Recordset

　　MsgBox

　　End Sub

　　程序空白处应填写的是( )。答案：D

　　A)Count

　　B)rs.Count

　　C)RecordCount

　　D)rs.RecordCount

　　14.InputBox函数的返回值类型是( )。答案：D

　　A)数值

　　B)字符串

　　C)变体

　　D)数值或字符串(视输入的数据而定)

　　15.设有如下窗体单击事件过程：

　　Private Sub Form_Click()

　　a = 1

　　For i= 1 To 6

　　Select Case i

　　Case 1,3,5

　　a= a+1

　　Case 2,4,6

　　a = a+2

　　End Select

　　Next i

　　MsgBox a

　　End Sub

　　打开窗体运行后，单击窗体，则消息框的输出的结果是( )。答案：C

　　A)8

　　B)6

　　C)10

　　D)9

　　16.运行下列程序，输入数据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答案：C

　　A)0

　　B)17

　　C)20

　　D)21

编辑推荐：

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

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

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

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