12秋电大《VB程序设计》在线作业2

《VB程序设计》在线作业2
试卷总分：100
单选题


一、单选题（共 20 道试题，共 100 分。）
1.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A. 12
B. 13
C. 14
D. 15

2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500

3.设a=10,b=5,c=1,执行语句Print abc后，窗体上显示的是（ ）。
A. True
B. False
C. 1
D. 出错信息

4.执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写

5.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。
A. Autosize
B. Stretch
C. Autoredraw
D. Appearance

6.设a=3,b=5,则以下表达式值为真的是（ ）。
A. a=b And b10
B. ab) or (b0)
C. (a<0) Eqv (b0)
D. (-3=5a) And (b0)

7.使文本框获得焦点的方法是（ ）。
A. GotFocus
B. Change
C. ListFocus
D. SetFocus
此题选: D
8.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)||(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”

9.当拖动滚动条中的滚动块时，将触发滚动条的哪个事件（ ）。
A. Move
B. Change
C. Scroll
D. SetFocus

10.设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。
A. 4321
B. 5432
C. 6543
D. 7654

11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Array1(10,10) As Integer Dim i As Integer, j As Integer For i= 1 To 3 For j = 2 To 4 Array1 (i,j) = i + j Next j Next i Text1.Text = Array1(2,3) + Array1 (3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A. 15
B. 14
C. 13
D. 12
此题选: D
12.ADO控件的RecordSet对象表示（ ）。
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据

13.下列哪种说法正确的是（ ）。
A. 通用对话框是Visual Basic 6.0的内部标准控件
B. 要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”
C. 打开“部件”对话框只有一种方法
D. 程序运行过程中，通用对话框在窗体中是可见的

14.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（ ）。
A. 11
B. 10
C. 9
D. 8

15.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A. *
B. =
C. &
D. -
此题选: D
16.指出下面哪个语句不是写文件语句（ ）。
A. Print
B. Output
C. Write
D. Put

17.在窗体上画一个名称为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. 死循环

18.DataCombo控件的RowSource属性是表示（ ）。
A. 给DataComebo控件提供列表项的字段
B. 目的表的数据源
C. 给DataCombo控件提供列表项的数据源
D. 更新目的表的字段

19.下列控件哪一个具有Align属性（ ）。
A. 图像框
B. 图片框
C. 标签
D. 列表框

20.下列列表框属性中哪一项不是数组（ ）。
A. Selected
B. ListCount
C. List
D. Index