19.  目录列表框的Path属性的作用是（ ）。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
      满分：5  分
20.  ADO数据控件的RecordSoure属性是表示（ ）。
A. 与ADO数据控件连接的数据库
B. 与数据库的连接方式
C. 数据库类型
D. ADO数据控件可访问的数据来源
      满分：5  分
3.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A. 7 9
B. 34 0
C. 9 7
D. 死循环
      满分：5  分
4.  DataCombo控件的RowSource属性是表示（ ）。
A. 给DataComebo控件提供列表项的字段
B. 目的表的数据源
C. 给DataCombo控件提供列表项的数据源
D. 更新目的表的字段
      满分：5  分
5.  刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
A. 单选按钮
B. 图片框
C. 通用对话框
D. 文本框
      满分：5  分
6.  如果要改变窗体的标题，则需要设置的属性是（ ）。
A. Caption
B. Name
C. BackColor
D. Borderstyle
      满分：5  分
7.  用下面语句定义的数组，其元素个数是（ ）。 Dim A (-3 To 5) As Integer
A. 6
B. 7
C. 8
D. 9
      满分：5  分
8.  ADO控件的RecordSet对象表示（ ）。
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据
      满分：5  分
9.  设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
A. 10
B. 15
C. 25
D. 24
      满分：5  分