Access数据库应用技术

sir3的返回值是（ ）。

A hel B loworld C rld D hellowo 参考答案C

397 运行下面的程序段： For k＝5 to 10 Step 2 k＝k*2 Next k

则循环次数为（ ）。 A 1 B 2 C 3 D 5 参考答案A 398 程序段： x＝0

For i＝1 to 10 step 2 x＝x＋i i＝i*2 Next i

当循环结束后，变量i的值为（ ）。 A 22 B 10 C 11 D 16 参考答案A 402 程序段：

Str＝“计算机科学技术” Str＝Mid（str，3,2） Str的返回值是（ ）。

A 计算机科学 B 机科学技术 C 机科 D 科学 参考答案C

406 VBA中定义符号常量可以用关键字（ ）。 A Const B Dim C Public D Static 参考答案A 407 已知程序段: S＝0

For I=1 to 10 step 2 S=S+1 I=I*2 Next I

当循环结束后变量I,S的值分别为（ ）。 A 22,3 B 11,4 C 10,5 D 16,6 参考答案A

410 VBA中用实际参数a和 b调用有参函数过程 Area（m，n）的正确形式是（A Area m，n B Area a，b C Call Area（m,n） D Call Area a，b 参考答案B

414 VBA数据类型符号 “＆”表示的数据类型是（ ） A 整数 B 长整数 C 单精度数 D 双精度数 参考答案B

420 下列算式正确的是（ ）。 A Int（2.5）=3 B Int（2.5）=2 C Int（2.5）＝25 D Int（2.5）＝0.5 参考答案B

VBA数据库编程

31 在Access中，DAO的含义是

37

）。 Access数据库应用技术

A 开放数据库互连应用编程接口 B 数据库访问对象

C Active数据对象 D 数据库动态链接库 参考答案B 67 ADO 的含义是

A 开放数据库互连应用编程接口 B 数据库访问对象 C 动态链接库 D Active 数据对象 参考答案D

104 在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click( ) Dim flag As Boolcan result=0 flag=True Do While flag

result=Val(InputBox(\请输入学生成绩:\输入\ If result>=0 And result <=100 Then ___________ Else

MsgBox \成绩输入错误，请重新输入\ End If Loop

Rem 成绩输入正确后的程序代码略 End Sub

程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是 A flag=False B flag=Not flag C flag=True D Exit Do 参考答案C

133 在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是 A DoCmd.OpenForm “学生信息录入” B OpenForm “学生信息录入”

C DoCmd.OpenWindows “学生信息录入” D OpenWindows “学生信息录入” 参考答案A

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

Public Function f (m As Integer)As Integer      Do while m<>n            Do While m>n                 m=m-n           Loop           Do While m
38 
Access数据库应用技术 
End Function 

窗体打开运行后，单击命令按钮，则消息框的输出结果是 A 2 B 4 C 6 D 8 参考答案C

165 窗体中有3个命令按钮，分别命名为Command1、Command2和 Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是 A private sub Command1_Click() Command2.Visible = true Command3.Visible = false B private sub Command1_Click() Command2.Enable = true Command3.Enable = false C private sub Command1_Click() Command2.Enable = true Command3.Visible = false D private sub Command1_Click() Command2.Visible = true Command3.Enable = false 参考答案C

174 下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。 Sub GetRecNum( ) Dim rs As Object Set rs = Me.Recordset MsgBox----- End Sub

程序空白处应填写的是 A Count B rs.Count C RecordCount D rs. RecordCount 参考答案D

201 能够实现从指定记录集里检索特定字段值的函数是 A Nz B Find C Lookup D DLookup 参考答案 D

209 下列程序段的功能是实现“学生”表中“年龄”字段值加1 Dim Str As String Str=\

Docmd.RunSQL Str

空白处应填入的程序代码是

A 年龄=年龄+1 B Update学生 Set 年龄=年龄+1 C Set 年龄=年龄+1 D Edit 学生 年龄=年龄+l 参考答案B

244 运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是 Private Sub Form _click（） Dim sum AsInteger,m As Integer sum=0 Do

m=InputBox（“输入m”） sum=sum+m Loop Until m=0 MsgBox sum

39

Access数据库应用技术

End Sub

A 0 B 17 C 20 D 21 参考答案C

40