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

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


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

2.当一个工程含有多个窗体时，其中的启动窗体是（ ）。
A. 启动Vosual Basic时建立的窗体
B. 第一个添加的窗体
C. 最后一个添加的窗体工程属性
D. 在“工程属性”对话框中指定的窗体
此题选: D
3.如果要改变窗体的标题，则需要设置的属性是（ ）。
A. Caption
B. Name
C. BackColor
D. Borderstyle

4.能够触发文本框Chang事件的操作是（ ）。
A. 文本框失去焦点
B. 文本框获得焦点
C. 设置文本框的焦点
D. 改变文本框的内容
此题选: D
5.有关控件数组特点，下面表达正确的是（ ）。
A. Name相同，Intex不同
B. Name相同，Caption也相同
C. Name相同，ID不同
D. Name相同，TabIntex不同

6.以下关于焦点的叙述中，错误的是（ ）。
A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B. 当文本框失去焦点时，触发LostFocus事件
C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
D. 可以用TabIndex属性改变Tab顺序

7.设有如下程序： 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

8.ADO控件的RecordSet对象表示（ ）。
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据

9.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口

10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A. 1 3.4 5.8
B. 1 3 5
C. 1 4 7
D. 无数据输出

11.为了保留动态数组中原有元素的值，需要使用关健字（ ）。
A. Static
B. Preserve
C. Option Base
D. Option Compare

12.下列属性中哪个不是图片框的属性（ ）。
A. Align
B. Picture
C. Stretch
D. AutoRedraw

13.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 x = 20 Case Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A. 10
B. 20
C. 30
D. 40

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

15.目录列表框的Path属性的作用是（ ）。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件

16.在窗体上画一个名称为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

17.在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是（ ）。
A. Enabled
B. Visible
C. Interval
D. Timer
此题选: D
18.在窗体上画一个名称为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
19.设有语句：x=InputBox("输入数值","0","示例") 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ）。
A. 变量x的值是数值10
B. 在inputbox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量x的值是字符串“10”
此题选: D
20.定义一个常量PI，可以使用下列语句中的（ ）。
A. .PI=3.14159
B. Set PI = 3.14159
C. Const PI = 3.14159
D. Const PI