在2013年《计算机等级考试》来临之际，我们考吧网为了帮助考生朋友们加强基础知识的巩固，加强练习试题的训练，有效的提高学习效率，特为考生汇编了计算机等级考试模拟试题，希望广大考生能够喜欢。想了解更多计算机等级咨询，就请继续关注我们考吧网。

1.运行下列程序，输入数据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

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

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

3.在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

4.在窗体中使用一个文本框(名为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)* * * *

* * * *

* * * *

* * * *

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

6.下面编写了一个打开指定窗体的子过程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

7.在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：

Private Sub run34_Click()

Sum=0

For i=10 To 1 Step -2

sum=sum+i

Next i

MsgBox sum

End Sub

运行以上事件，程序的输出结果是( )。答案：B

A)10

B)30

C)55

D)其他结果

编辑推荐：

2013年计算机等级二级Access考前精选试题汇总二  

2013年计算机等级考试二级Access考前精选试题汇总一