16春奥鹏电子科技大学《VB程序设计》在线作业3

奥鹏网院作业

16春《VB程序设计》在线作业3

一、单选题：
1.使文本框获得焦点的方法是(    )。          (满分:5)
    A. GotFocus
    B. Change
    C. ListFocus
    D. SetFocus
2.以下关于焦点的叙述中，错误的是(    )。          (满分:5)
    A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
    B. 当文本框失去焦点时，触发LostFocus事件
    C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
    D. 可以用TabIndex属性改变Tab顺序
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(    )。          (满分:5)
    A. 工程资源管理器窗口
    B. 工具箱窗口
    C. 代码窗口
    D. 属性窗口
4.在下列动作中，不能引发命令按钮Click事件的是(    )。          (满分:5)
    A. 在按钮上单击鼠标左键
    B. 在按钮上单击鼠标右键
    C. 把焦点转移到按钮上，然后按回车
    D. 如果按钮有快捷字母键，按Alt+快捷字母键
5.当拖动滚动条中的滚动块时，将触发滚动条的哪个事件(    )。          (满分:5)
    A. Move
    B. Change
    C. Scroll
    D. SetFocus
6.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是(    )。          (满分:5)
    A. Autosize
    B. Stretch
    C. Autoredraw
    D. Appearance
7.指出下面哪个语句不是写文件语句(    )。          (满分:5)
    A. Print
    B. Output
    C. Write
    D. Put
8.下面叙述错误的是(    )。          (满分:5)
    A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
    B. 目录列表框DirListBox显示当前驱动器分层目录树
    C. 文件列表框FileListBox显示选定目录中的所有文件
    D. 文件列表框FileName属性是设定允许显示文件名的文件类型
9.如果要改变窗体的标题，则需要设置的属性是(    )。          (满分:5)
    A. Caption
    B. Name
    C. BackColor
    D. Borderstyle
10.在窗体上创建一个名称为Text1的文本框，并编写如下程序：Private Sub FormLoad(    )ShowText1.Text=""Text1.SetFocusEnd  SubPrivate Sub FormMouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single)Print "程序设计"End  SubPrivate Sub Text1KeyDown(KeyCode As Integer,Shift As Integer)Print "Visual Basic";End  Sub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是(    )。          (满分:5)
    A. Visual Basic
    B. “程序设计”
    C. “A程序设计”
    D. “Visual Basic程序设计”
11.当一个工程含有多个窗体时，其中的启动窗体是(    )。          (满分:5)
    A. 启动Vosual Basic时建立的窗体
    B. 第一个添加的窗体
    C. 最后一个添加的窗体工程属性
    D. 在“工程属性”对话框中指定的窗体
12.为了保留动态数组中原有元素的值，需要使用关健字(    )。          (满分:5)
    A. Static
    B. Preserve
    C. Option Base
    D. Option Compare
13.窗体上有一组合框Combol,窗体加载时的代码如下：  Private Sub FormLoad(    )      Combol. AddItem“电视机”      Combol. AddItem“录像机”      Combol. AddItem“VCD”      Combol. AddItem“组合音响”  End Sub  要在文本框Textl中显示列表中的第三个项目，则正确的语句的是(    )。          (满分:5)
    A. Textl.Text=Combol.List(0)
    B. Textl.Text=Combol.List(1)
    C. Textl.Text=Combol.List(2)
    D. Textl.Text=Combol.List(3)
14.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是(    )。          (满分:5)
    A. CommonDialog1.Filter=“*.DOC|*.doc”
    B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
    C. CommonDialog1.Filter=“text(.doc)(    )(*.doc)”
    D. CommonDialog1.Filter=“text(.doc)(*.doc)”
15.DataCombo控件的RowSource属性是表示(    )。          (满分:5)
    A. 给DataComebo控件提供列表项的字段
    B. 目的表的数据源
    C. 给DataCombo控件提供列表项的数据源
    D. 更新目的表的字段
16.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click(    )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd  Sub程序运行后，单击命令按钮，在窗体上显示的是(    )。          (满分:5)
    A. 11
    B. 10
    C. 9
    D. 8
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click(    )Dim num As Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd  Sub程序运行后，单击命令按钮，则窗体上显示的内容是(    )。          (满分:5)
    A. 1 3.4 5.8
    B. 1 3 5
    C. 1 4 7
    D. 无数据输出
18.设有如下程序：Option Base 0Private Sub FormClick(    )Dim  aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 - I);Next  IEnd  Sub程序运行后，单击窗体，则在窗体上显示的是(    )。          (满分:5)
    A. 4321
    B. 5432
    C. 6543
    D. 7654
19.目录列表框的Path属性的作用是(    )。          (满分:5)
    A. 显示当前驱动器或指定驱动器上的目录结构
    B. 显示当前驱动器或指定驱动器上的某目录下的文件名
    C. 显示根目录下的文件名
    D. 显示该路径下的文件
20.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(    )。          (满分:5)
    A. 单选按钮
    B. 图片框
    C. 通用对话框
    D. 文本框