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

　　17.在窗体中添加一个名称为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

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

　　A)AABAAB

　　B)ABBABA

　　C)BABBA

　　D)BBABBA

　　18.下面编写了一个打开指定窗体的子过程OpenForms。代码如下：

　　Sub OpenForms(strFormName As String)

　　If strFormName=" " then

　　MsgBox"打开窗体名称不能为空!",VbCritical,"警告"

　　Exit Sub

　　End If

　　DoCmd.OpenForm strFormName

　　End Sub

　　如果此时需要调用该子过程打开名为“学生管理”的窗体，只需在主调过程合适的位置增添语句：

　　OpenForms("学生管理")

　　空白处应该填写的关键字是( )。答案：C

　　A)Open

　　B)OpenForm

　　C)Call

　　D)Function

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

　　Private Sub Command32_Click()

　　f0 = 1: f1 = 1: k = 1

　　Do While k <= 5

　　f = f0 + f1

　　f0 = f1

　　f1 = f

　　k = k + 1

　　Loop

　　MsgBox "f = " & f

　　End Sub答案：D

　　A)f = 5

　　B)f = 7

　　C)f = 8

　　D)f = 13

　　20.在窗体中有一个命令按钮run35，对应的事件代码如下：

　　Private Sub run35_Enter( )

　　Dim num As Integer

　　Dim a As Integer

　　Dim b As Integer

　　Dim i As Integer

　　For i= 1 To 10

　　num = InputBox("请输入数据:", "输入",1)

　　If num Mod 2=0 Then

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("运行结果：a=" & Str(A)&",b=" & Str(B))

　　End Sub

　　运行以上事件所完成的功能是( )。答案：D

　　A)对输入的10个数据求累加和

　　B)对输入的10个数据求各自的余数，然后再进行累加

　　C)对输入的10个数据分别统计有几个是整数，有几个是非整数

　　D)对输入的10个数据分别统计有几个是奇数，有几个是偶数

　　21.在窗体中使用一个文本框(名为n)接收输入的值，有一个命令按钮run，事件代码如下：

　　Private Sub run_Click()

　　result = ""

　　For i = 1 To Me!n

　　For j = 1 To Me!n

　　result = result + "*"

　　Next j

　　result = result + Chr(13)+ Chr(10)

　　Next i

　　MsgBox result

　　End Sub

　　打开窗体后，在文本框n中输入4，输出结果是( )。答案：D

　　A)* * * *

　　* * *

　　* *

　　*

　　B)*

　　* * *

　　* * * * *

　　* * * * * * *

　　C)* * * *

　　* * * * * *

　　* * * * * * * *

　　* * * * * * * * * *

　　D)* * * *

　　* * * *

　　* * * *

　　* * * *

编辑推荐：

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

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

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

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