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

谋学网

谋学网: www.mouxue.com 主要提供奥鹏作业资料，奥鹏在线作业资料，奥鹏离线作业资料以及奥鹏毕业论文，致力打造中国最专业远程教育辅导社区。

一、单选题（共 20 道试题，共 100 分。）V 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
      满分：5  分
2.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
      满分：5  分
3.  设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是（ ）。
A. True
B. False
C. 1
D. 出错信息
      满分：5  分
4.  执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
      满分：5  分
5.  图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。
A. Autosize
B. Stretch
C. Autoredraw
D. Appearance
      满分：5  分
6.  设a=3,b=5,则以下表达式值为真的是（ ）。
A. a>=b And b>10
B. a>b) or (b>0)
C. (a<0) Eqv (b>0)
D. (-3=5>a) And (b>0)
      满分：5  分
7.  使文本框获得焦点的方法是（ ）。
A. GotFocus
B. Change
C. ListFocus
D. SetFocus
      满分：5  分
8.  在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)||(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”
      满分：5  分
9.  当拖动滚动条中的滚动块时，将触发滚动条的哪个事件（ ）。
A. Move
B. Change
C. Scroll
D. SetFocus
      满分：5  分
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
      满分：5  分
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
      满分：5  分
12.  ADO控件的RecordSet对象表示（ ）。
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据
      满分：5  分
13.  下列哪种说法正确的是（ ）。
A. 通用对话框是Visual Basic 6.0的内部标准控件
B. 要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”
C. 打开“部件”对话框只有一种方法
D. 程序运行过程中，通用对话框在窗体中是可见的
      满分：5  分
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
      满分：5  分
15.  如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A. *
B. =
C. &
D. -
      满分：5  分
16.  指出下面哪个语句不是写文件语句（ ）。
A. Print
B. Output
C. Write
D. Put
      满分：5  分
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. 死循环
      满分：5  分
18.  DataCombo控件的RowSource属性是表示（ ）。
A. 给DataComebo控件提供列表项的字段
B. 目的表的数据源
C. 给DataCombo控件提供列表项的数据源
D. 更新目的表的字段
      满分：5  分
19.  下列控件哪一个具有Align属性（ ）。
A. 图像框
B. 图片框
C. 标签
D. 列表框
      满分：5  分
20.  下列列表框属性中哪一项不是数组（ ）。
A. Selected
B. ListCount
C. List
D. Index
      满分：5  分

谋学网: www.mouxue.com 主要提供奥鹏作业资料，奥鹏在线作业资料，奥鹏离线作业资料以及奥鹏毕业论文，致力打造中国最专业远程教育辅导社区。