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

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

　　考点12：VBA编程

　　1.窗体中有命令按钮run34，对应的事件代码如下：

　　Private Sub run34_Enter()

　　Dim num As Integer,a As Integer,b As Integer,i As Integer

　　For i=1 To 10

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

　　If Int(num/2)=num/2 Then

　　a=a+1

　　Else

　　b=b+1

　　End If

　　Next i

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

　　End Sub

　　运行以上事件过程，所完成的功能是( )。答案：C

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

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

　　C)对输入的10个数据分别统计奇数和偶数的个数

　　D)对输入的10个数据分别统计整数和非整数的个数

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

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

　　A)7

　　B)15

　　C)157

　　D)538

　　3.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　x=0

　　n=InputBox(" ")

　　For i=1 to n

　　For j=1 to i

　　x=x+1

　　Next j

　　Next i

　　Print x

　　End Sub

　　程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。答案：D

　　A)3

　　B)4

　　C)5

　　D)6

　　4.以下程序运行后，消息框的输出结果是( )。

　　a=sqr(3)

　　b=sqr(2)

　　c=a>b

　　MsgBox c+2答案：B

　　A)-1

　　B)1

　　C)2

　　D)出错

　　5.执行语句MsgBox"AAA"，vbOKCancel+vbQuestion，"BBB"之后，弹出的信息框外观样式是( )。答案：C

　　A)

　　B)

　　C);

　　D);

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

　　Private Sub run1_Enter( )

　　Dim num As Integer

　　Dim m As Interger

　　Dim n As Integer

　　Dim i As Integer

　　For i=1 To 10

　　num=InputBox("请输入数据："，"输入"，1)

　　If Int(num/2)=num/2 Then

　　m=m+1

　　Else

　　n=n+1

　　End If

　　Next i

　　MsgBox("运行结果：m=" & Str(m)& "，n="& Str(n))

　　End Sub

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

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

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

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

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

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

　　Private Sub Command1_Click()

　　A=75

　　If A>60 Then I=1

　　If A>70 Then I=2

　　If A>80 Then I=3

　　If A>90 Then I=4

　　MsgBox I

　　End Sub

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

　　A)1

　　B)2

　　C)3

　　D)4

　　8.窗体中有命令按钮Command1和文本框Text1，事件过程如下：

　　Function result(ByVal x As Integer)As Boolean

　　If x Mod 2=0 Then

　　result=True

　　Else

　　result=False

　　End If

　　End Function

　　Private Sub Command1_Click()

　　x=Val(InputBox("请输入一个整数"))

　　If Then

　　Text1=Str(x)& "是偶数."

　　Else

　　Text1=Str(x)& "是奇数."

　　End If

　　End Sub

　　运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数.”。那么在程序的空白处应填写( )。答案：B

编辑推荐：

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

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

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

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