1. 在报表中，要计算"数学"字段的最低分，应将控件的"控件来源"属性设置为______。
A、=Min([数学])B、=Min(数学)C、=Min[数学]D、Min(数学)
2. 在打开窗体时，依次发生的事件是______。
A、打开(Open)→加载(Load)→调整大小(Resize)→激活(Activate)B、打开(Open)→激活(Activate)→加载(Load)→调整大小(Resize)C、打开(Open)→调整大小(Resize)→加载(Load)→激活(Activate)D、打开(Open)→激活(Activate)→调整大小(Resize)→加载(Load)
3. 如果在文本框内输入数据后，按Enter键或按Tab键，输入焦点可立即移至下一指定文本框，应设置的属性是______。
A、"制表位"属性B、"Tab键索引"属性C、"自动Tab键"属性D、"Enter键行为"属性
4. 窗体Caption属性的作用是______。
A、确定窗体的标题B、确定窗体的名称C、确定窗体的边界类型D、确定窗体的字体
5. 窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是______。
A、Private Sub Command1_Click( )
Command2.Visible = True
Command3.Visible = False
End SubB、Private Sub Command1_Click( )
Command2.Enabled = True
Command3.Enabled = False
End SubC、Private Sub Command1_Click( )
Command2.Enabled = True
Command3.Visible = False
End SubD、Private Sub Command1_Click( )
Command2.Visible = True
Command3.Enabled = False
End Sub
11213

1. 在报表中要计算"实发工资"字段的平均值，应将控件的"控件来源"属性设置为______。
A、= Avg([实发工资])
B、Avg(实发工资)
C、= Avg[实发工资]
D、= Avg(实发工资)
2. 如果变量A是Boolean型，则下列赋值语句中，正确的是______。
A、A = "No"
B、A = .No.
C、A = #TURE#
D、A = 2<10
3. 宏命令RunMacro的功能是______。
A、执行指定的SQL语句
B、执行指定的外部应用程序
C、执行指定的宏命令
D、执行设置属性值的宏命令
4. 如果在北京时间12点00分运行以下代码，程序的输出是______。
Sub Procedure( )
If Hour(Time( )) >= 8 And Hour(Time( )) <12 Then
　Debug.Print "上午好！"
ElseIf Hour(Time( )) >= 12 And Hour(Time( )) <18 Then
　Debug.Print "下午好！"
Else
Debug.Print "欢迎下次光临!"
End If
End Sub
A、欢迎下次光临!
B、上午好！
C、下午好！
D、无输出
5. 在计算控件的表达式中必须使用运算符是______。
A、=
B、!
C、圆括号()
D、方括号[]
14331

1．下列If语句的功能是统计性别为男、职称为副教授以上且年龄小于40岁的人数，错误的语句是______。
A、If sex="男" And age<40 InStr(duty,"教授")>0 Then n=n+1
B、If sex="男" And age<40 InStr(duty="教授" or duty="副教授" )>0 Then n=n+1
C、If sex="男" And age<40 Right(duty，2)= "教授" Then n=n+1
D、If sex="男" And age<40 And (duty="教授" Or duty＝"副教授") Then n=n+1
2. 下列数组声明语句中，正确的是______。
A、Dim a[3,4] As Integer
B、Dim a(3,4) As Integer
C、Dim a(n,n) As Integer
D、Dim a[3,n] As Integer
3. 在VBA定义过程时，说明形参是传值方式的关键字是______。
A、Var
B、ByDef
C、ByVal
D、Value
4. 若有以下两个过程：
Sub S1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t = x : x = y : y = t
End Sub
则下列说法中，正确的是______。
A、使用过程S1可以交换调用函数中两个变量的值，S2不能实现
B、使用过程S2可以交换调用函数中两个变量的值，S1不能实现
C、过程S1和S2都可以实现交换调用函数中两个变量的值
D、过程S1和S2都不能实现交换调用函数中两个变量的值
5. 在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮，事件过程：
Private sub command1_click()
Dim x as Integer, n as Integer
x = 1
n = 0
Do While x < 20
x = x * 3

1. 打开窗体时，触发事件的顺序是______。
A、打开，加载，调整大小，激活，成为当前
B、加载，打开，调整大小，激活，成为当前
C、打开，加载，激活，调整大小，成为当前
D、加载，打开，成为当前，调整大小，激活
2. 窗体中有文本框为Text1和Text2。运行程序，在Text1中输入整数m（m>0），单击"运行"按钮Command1，将m分解为质因子之积，并在Text2中给出结果。例如，18=2*3*3，输出结果为"2,3,3,"；28=2*2*7，输出结果为"2,2,7,"。事件代码如下：
Private Sub Command1_Click()
m = Val(Me!Text1)
resule = ""
k = 2
Do While m > 1
If m Mod k = 0 Then
result = result & k & ","
m = m / k
Else
【 】
End If
Loop
Me!Text2 = result
End Sub
程序【 】处应填写的语句是______。
A、k=k+1
B、k=1
C、m=m-k
D、m=m/k
3. 函数Sgn(3.1416)的返回值是______。
A、-1
B、4
C、1
D、3
4. 下列选项中，不是VBA基本数据类型的是______。
A、Char
B、Boolean
C、Currency
D、Date
5. ADO对象模型中有5个主要对象，他们是Connection、CommanD、RecordSet、Error和______。
A、Database
B、Workspace
C、Field
D、DBEngine
11313

考过了。

拿到证了