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

谋学网

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

一、单选题（共 20 道试题，共 100 分。）V 1.  在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是（ ）。
A. Enabled
B. Visible
C. Interval
D. Timer
      满分：5  分
2.  Sub过程与Function函数的最根本区别是（ ）。
A. Function过程可以有参数，而Sub过程不可以
B. 两种过程参数的传递方式不同
C. Sub过程无返回值，但Function过程有返回值
D. Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
      满分：5  分
3.  ADO数据控件的RecordSoure属性是表示（ ）。
A. 与ADO数据控件连接的数据库
B. 与数据库的连接方式
C. 数据库类型
D. ADO数据控件可访问的数据来源
      满分：5  分
4.  在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是（ ）。
A. Visual Basic
B. “程序设计”
C. “A程序设计”
D. “Visual Basic程序设计”
      满分：5  分
5.  当一个工程含有多个窗体时，其中的启动窗体是（ ）。
A. 启动Vosual Basic时建立的窗体
B. 第一个添加的窗体
C. 最后一个添加的窗体工程属性
D. 在“工程属性”对话框中指定的窗体
      满分：5  分
6.  设有如下通用过程： 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  分
7.  执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
      满分：5  分
8.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
      满分：5  分
9.  当拖动滚动条中的滚动块时，将触发滚动条的哪个事件（ ）。
A. Move
B. Change
C. Scroll
D. SetFocus
      满分：5  分
10.  以下关于焦点的叙述中，错误的是（ ）。
A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B. 当文本框失去焦点时，触发LostFocus事件
C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
D. 可以用TabIndex属性改变Tab顺序
      满分：5  分
11.  以下能判断是否到达文件尾的函数是（ ）。
A. BOF
B. LOC
C. LOF
D. EOF
      满分：5  分
12.  在窗体上画一个名称为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
      满分：5  分
13.  在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（ ）。
A. 4321
B. 1234
C. 34
D. 12
      满分：5  分
14.  下列控件哪一个具有Align属性（ ）。
A. 图像框
B. 图片框
C. 标签
D. 列表框
      满分：5  分
15.  窗体的MouseDown事件过程如下： Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single) 其中有4个参数，关于这些参数，正确的描述是（ ）。
A. 通过Button参数判定当前按下的是哪一个鼠标键
B. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt键和Ctrl键
D. 参数x、y用来设置鼠标当前位置的坐标
      满分：5  分
16.  在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)||(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”
      满分：5  分
17.  在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox("Enter the Firstinteger") b=InputBox("Enter the Secondinteger") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。
A. 246
B. 123
C. 456
D. 123123
      满分：5  分
18.  在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
      满分：5  分
19.  为了保留动态数组中原有元素的值，需要使用关健字（ ）。
A. Static
B. Preserve
C. Option Base
D. Option Compare
      满分：5  分
20.  将命令按钮设为默认命令按钮，应设置为True的属性是（ ）。
A. Value
B. Cancel
C. Default
D. Enabled
      满分：5  分

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