1．现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是
A．  docmd.openform "tEmployee"
B．  docmd.openview "tEmployee"
C．  docmd.opentable "tEmployee"
D．  docmd.openreport "tEmployee"
2．表达式Val(".123E2CD")的值是（val 函数作用就是数字类型和字符类型混合时，把字符类型去掉）
A．.123                        B． 12.3
C． 0                        D． .123E2CD
3．在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand．，并编写
了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是
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
4．表达式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的运算结果是
A．  -1                    B．  0
C．  1                    D．  其他
5．VBA表达式3*3\3/3的输出结果是
A.  0                    B.  1
C.  3                    D.  9
6．在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click(．
    a = 75
    If a>60 Then
        k = 1
    ElseIf a>70 Then
        k = 2
    ElseIf a>80 Then
        k = 3
    ElseIf a>90 Then
        k = 4
    EndIf
    MsgBox k
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A.  1                        B.  2
C.  3                        D.  4
A
7．有如下程序段：
    Dim I  As Integer
    I＝Int（－3.25）
    执行后，I的返回值是
A．－3                      B．－4 
C．3                          D．3.25
8．设有如下窗体单击事件过程：
Private Sub Form_Click()
    a = 1
    For i = 1 To 3
        Select Case i
            Case 1, 3
                a = a + 1
            Case 2, 4
                a = a + 2
        End Select
    Next i
    MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是
A. 3                        B. 4
C. 5                        D. 6
9．下列代码中（    ）可以使控件TxtBox获得焦点。
A）set TxtBox..focus                B）set TxtBox.Focus=True
C）TxtBox.SetFocus                D）TxtBox.SetFocus=True
10．VBA中不能进行错误处理的语句结构是
A    On Error Then标号
B    On Error Goto标号
C    On Error Resume Next
D    On Error Goto 0
A
11．在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
  Private Sub TxtA_KeyPress(Keyascii As Integer)
  ......
  End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A．    单击鼠标                B．    双击文本框
C．    鼠标滑过文本框            D．按下键盘上的某个键
12．VBA程序的多条语句可以写在一行中，其分隔符必须使用符号
A．    :                        B．    ’
C．    ;                        D．    ,
13．在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
Private Sub Command1_Click()
　a=0 : b=5 : c=6
　MsgBox  a=b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为
A．    l1                        B．    a=11
C．    0                        D．    False
14．定义了二维数组A(2 to 5,5)，该数组的元素个数为
A．    20                        B．    24
C．    25                        D．    36
15．使用Function语句定义一个函数过程，其返回值的类型
A．    只能是符号常量
B．    是除数组之外的简单数据类型
C．    可在调用时由运行过程决定
D．    由函数定义时As子句声明
16．以下可以得到""2*5=10""结果的VBA表达式为
A．    "2*5" & "=" & 2*5
B．    ""2*5"" + ""="" + 2*5
C．    2*5 & ""="" & 2*5
D．    2*5 + ""="" + 2*5
17．下列关于VBA面向对象程序设计中的“方法”说法正确的是
A．    方法是属于对象的
B．    方法是独立的实体
C．    方法也可以由程序员定义
D．    方法是对事件的响应
18．在窗体中添加一个名称为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
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A．    1                        B．    2
C．    3                        D．    4
19．下列Case语句中错误的是
A    Case 0 To 10
B    Case Is>10
C    Case Is>10 And Is<50
D    Case 3, 5, Is>10
20．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
  Option Base 0
  Private Sub Command1_Click()
      Dim city As Variant
      city=Array("北京","上海","天津","重庆")
      Print city(1)
  End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．    空白                    B．    错误提示
C．    北京                    D．    上海
21．以下程序段运行后，消息框的输出结果是
a=sqr(3)
b=sqr(2)
c=a>b
Msgbox  c+2
A．    -1                            B．    1
C．vba listbox控件详解    2                            D．    出错
22．设有如下声明：
  Dim X As Integer
如果Sgn(X)的值为-1，则X的值是
A．    整数
B．    大于0的整数
C．    等于0的整数
D．    小于0的数
23．在窗体中添加一个名称为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
窗体打开运行后，单击命令按钮，则消息框的输出结果为
A．    10                        B．    30
C．    40                        D．    50
24．设有如下程序：
Private Sub Command1_Click(．
    Dim sum As Double, x As Double
    sum = 0
    n = 0
    For i = 1 To 5
        x=n/i
        n=n+1
        sum=sum+x
    Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
A．    1+1/2+2/3+3/4+4/5
B．    1+1/2+1/3+1/4+1/5
C．    1/2+2/3+3/4+4/5
D．    1/2+1/3+1/4+1/5
25．下列可作为VBA变量名的是
A．    A#A
B．    4A
C．    ?xy
D．    constA
26．在窗体上画一个命令按钮，然后编写如下事件过程：
  Private Sub Command1_Click(．
      Dim a(．
      a=Array(1,3,5,7)
      s=0
      For i=1 To 3
        s=s*10+a(i)
      Next i
      Print s
  End Sub
程序运行后，输出结果为
A    135
B    357
C    531
D    753
27．在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As String * 10
Private Sub Command1_Click()
    a = "1234"
    b = Len(a)
    Me.Lb1.Caption = b
End Sub
打开窗体后单击命令按钮，窗体中显示的内容是
A．    4                    B．    5
C．    10                    D．    40
28．使用VBA的逻辑值进行算术运算时，True值被处理为
A．    -1                        B．    0
C．    1                        D．    任意值
29．在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click( )
Dim a(10,10．
For m=2 To 4
  For n=4 To 5
    a(m,n)=m*n
  Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A．    22                    B．    32
C．    42                    D．    52
30．以下程序段运行结束后，变量x的值为
x = 2
y = 4
Do
　 x = x*y
　 y = y+1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。