1. 假定有以下程序段 解析：i=1，j=-4,n=1；j=-3，n=2；j=--2，n=3；j=-1，n=4
i=2，??；i=3，?? n=0
for i=1 to 3
for j=-4 to -1 n=n+1 next j next i
运行完毕后，n的值是______。D
A、0 B、3 C、4 D、12 2. 在窗体中添加一个命令按钮 （名称为Command1），然后 编写如下代码：
Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b+c End Sub
窗体打开运行后，如果单击命令按 钮，则消息框的输出结果为____。D A、11 B、a=11
C、0 D、False
3. 有如下事件程序，运行该程序后输出结果是______。A Private Sub Command33_Click() Dim x As Integer, y As Integer x = 1: y = 0
Do Until y <= 25 y = y + x * x x = x + 1 Loop
MsgBox \End Sub
A、x=1, y=0 B、x=4, y=25
C、x=5, y=30 D、输出其他结果 4. 在窗体上添加有一个命令按钮（名为C1），然后编写如下事件过程： Private Sub C1_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
5. 在窗体上有一个命令按钮C1和一个文本框Text1，编写事件代码如下： Private Sub C1_Click() Dim i, j, x
For i = 1 To 20 Step 2
x = 0 ?执行这一步时重新将0的值赋给x，真正的计算从i=19开始 For j = i To 20 Step 3 x = x + 1 Next j Next i
Text1.Value = Str(x) End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是_A____。 A、1 B、7 C、17 D、400
6. 在窗体上添加一个命令按钮（名为C1）和一个文本框（名为Text1）， 并在命令按钮中编写如下事件代码： Private Sub C1_Click() m=2.17
STR$(2.17)=\ n=Len(Str$(m)+Space(5))
结果共5个字符，前面有一空格 Me!Text1=n
Len(str$(m))=5 End Sub
Len(space(5))=5 打开窗体运行后，单击命令按钮，在文本框
n=10 中显示___D___。
A、5 B、8 C、9 D、10
7. 在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码： Private Sub C1_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
注意与case语句不同，case语句当满足某个条件时就直接输出 8. 在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim d1 As Date
Dim d2 As Date d1 = #12/25/2009# d2 = #1/5/2010#
MsgBox DateDiff(\End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是___B___。
A、1 B、2 C、10 D、11 11天=1周+4天=2周
9. 窗体中有命令按钮Command1，事件过程如下： Public Function f(x As Integer) As Integer Dim y As Integer x=20 y=2 f=x*y End Function
运行程序，单击命令按钮，则立即窗口中显示的内容是___D___。
A、10 5 B、10 40 C、20 5 D、20 40 其中y=f(x)实现函数调用，则此时调用过程中，x=10，y=2，再将f(x)的值赋给y，故答案为D
Private Sub Command1_Click() Dim y As Integer Static x As Integer x=10
10. 在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String * 10
Private Sub Command1_Click( ) a = \ b = Len(a)
Me.Lb1.Caption = b End Sub
打开窗体后单击命令按钮，窗体中显示的内容是____C__。
A、4 B、5 C、10 D、40
11. 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer
Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub
Private Sub s1() x=x+20 End Sub
Private Sub s2() Dim x As Integer x=x+20 End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为__B____。
A、10 B、30 C、40 D、50
解析：本题使用Call调用子过程s1、s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于使用Dim…As关键字定义x，所以其值是模块范围的。在消息框中输出的值，是从子过程s2传回的值(注意：解释有错，返回应是调用S1时的x值。)。
12. 窗体中有命令按钮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
运行程序，单击命令按钮，输入19，在Text1中会显示\是奇数.\。那么在程序
的空白处应填写___B___。
A、result(x)= \偶数\ B、result(x) C、result(x)= \奇数\ D、NOT result(x)
Private Sub Command1_Click() x=Val(InputBox(\请输入一个整数\ If ______ Then
Text1=Str(x) & \是偶数.\ Else
Text1=Str(x) & \是奇数.\
13. 在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和 bCommanD），并编写了相应的事件过程。运行此窗体后，在文本框 中输入一个字符，则命令按钮上的标题变为\计算机等级考试\。以下能 实现上述操作的事件过程是__D____。 A、 Private Sub bCommand_Click() Caption=\计算机等级考试\ End Sub
B、Private Sub tText_Click()
bCommand.Caption=\计算机等级考试\ End Sub
C、Private Sub bCommand_Change() Caption=\计算机等级考试\ End Sub
D、Private Sub tText_Change()
bCommand.Caption=\计算机等级考试\End Sub
14. 下列给出的选项中，非法的变量名是__C____。
A、Sum B、Integer_2 C、Rem D、Form1 15．如果加载一个窗体，先被触发的事件是。(2006年4月)
A)Load事件 B)Open事件 C)Click事件 D)Dalick事件
解析：Access加载窗体是运行指定的宏或用户定义的事件过程，然后显示窗体的记录。可以使用Load事件过程设置窗体或控件中的值，也可以设置窗体或控件的属性。Load事件发生在Open事件后及Resize事件前，不能被取消。Click事件发生在窗体单击时，没有Ddelick事件。
16．InputBox函数的返回值类型是。(2007年4月) A)数值 B)字符串
C)变体 D)数值或字符串(视输入的数据而定)
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库计算机二级access VBA易错题44题(精)在线全文阅读。
相关推荐：