15秋奥鹏电子科技大《VB程序设计》在线作业2

奥鹏网院作业

15秋《VB程序设计》在线作业2
试卷总分：100   测试时间：--
一、单选题（共20道试题，共100分。）
1.DataCombo控件的RowSource属性是表示（ ）。
A. 给DataComebo控件提供列表项的字段
B. 目的表的数据源
C. 给DataCombo控件提供列表项的数据源
D. 更新目的表的字段
满分：5分
2.执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
满分：5分
3.在窗体上画一个名称为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分
4.下列哪个属性设置文本框中文字的对齐方式（ ）。
A. SelLength
B. Alignment
C. Multiline
D. ScrollBars
满分：5分
5.以下能判断是否到达文件尾的函数是（ ）。
A. BOF
B. LOC
C. LOF
D. EOF
满分：5分
6.下面叙述错误的是（ ）。
A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
B. 目录列表框DirListBox显示当前驱动器分层目录树
C. 文件列表框FileListBox显示选定目录中的所有文件
D. 文件列表框FileName属性是设定允许显示文件名的文件类型
满分：5分
7.如果要改变窗体的标题，则需要设置的属性是（ ）。
A. Caption
B. Name
C. BackColor
D. Borderstyle
满分：5分
8.在窗体上画一个命令按钮（其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分
9.下列列表框属性中哪一项不是数组（ ）。
A. Selected
B. ListCount
C. List
D. Index
满分：5分
10.用下面语句定义的数组，其元素个数是（ ）。 Dim A (-3 To 5) As Integer
A. 6
B. 7
C. 8
D. 9
满分：5分
11.ADO控件的RecordSet对象表示（ ）。
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据
满分：5分
12.在窗体上创建一个名称为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分
13.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)||(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”
满分：5分
14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
满分：5分
15.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A. *
B. =
C. &
D. -
满分：5分
16.在窗体上画一个名称为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分
17.为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
满分：5分
18.为了保留动态数组中原有元素的值，需要使用关健字（ ）。
A. Static
B. Preserve
C. Option Base
D. Option Compare
满分：5分
19.窗体上有一组合框Combol,窗体加载时的代码如下： Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是（ ）。
A. Textl.Text=Combol.List(0)
B. Textl.Text=Combol.List(1)
C. Textl.Text=Combol.List(2)
D. Textl.Text=Combol.List(3)
满分：5分
20.目录列表框的Path属性的作用是（ ）。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
满分：5分