华东石油2015年秋季学期《VB程序设计》在线考试适用于2015年12月份考试

谋学网www.mouxue.com

2015年秋季学期《VB程序设计》在线考试(适用于2015年12月份考试)

一、单选题（共 15 道试题，共 15 分。）V 1. 以下哪个是合法的变量（ ）A. right B. abc@123 C. 123_abc D. ab123c

满分：1 分

2. 使文本框获得焦点的方法是（ ）A. Change B. GetFocus C. SetFocus D. LostFocus

满分：1 分

3. 程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（ ）A. DragDrop B. MouseDown C. MouseUp D. MouseMove

满分：1 分

4. 变量未赋值时，数值型变量的值为（ ）A. 0 B. 空 C. 1

D. 无任何值

满分：1 分

5. 以下合法的Visual Basic标识符是（ ）A. ForLoop B. Const C. 9abc D. a#x

满分：1 分

6. 为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（ ）A. 0 B. 1 C. 2 D. 3

满分：1 分

7. 不可以通过下列（ ）操作将焦点赋给对象A. 运行时使用TAB键 B. 在代码中用CALL语句调用 C. 在代码中用SETFOCUS方法

D. 用访问键或用鼠标单击选择对象 满分：1 分

8. 应用程序设计完成后，应将程序保存，保存的过程是（ ）A. 只保存窗体文件即可 B. 只保存工程文件即可

C. 先保存工程文件，之后保存窗体文件 D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件

谋学网www.mouxue.com

满分：1 分

9. 表达式 5 Mod 3+3\\5*2的值是（ ）A. 0 B. 2 C. 4 D. 6

满分：1 分

10. 以下能够触发文本框Change事件的操作是（ ）A. 文本框失去焦点 B. 文本框获得焦点 C. 设置文本框的焦点 D. 改变文本框的内容 满分：1 分 11.

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(\\分支 1\Case Is >4 Print \分支 2\Case Else Print \分支 \程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）A. 分支1 B. 分支2 C. Else分支 D. 程序出错

满分：1 分

12. 要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应：（ ）A. 设置窗体的VISIBLE属性 B. 设置窗体的CAPTION C. 调用窗体的SHOW方法 D. 设置窗体ENABLED属性 满分：1 分

13. 下列关于控件画法的叙述错误的是（ ）A. 单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件

B. 按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件

C. 双击工具箱中的控件图标，所画控件的大小和位置是固定的

D. 不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符 满分：1 分

14. 下面程序运行后输出的结果是：（ ） A$=\

B$=STRING$(3,A$) PRINT B$ END A. CHI B. CCC C. INA D. AAA

谋学网www.mouxue.com

满分：1 分

15. 滚动条控件的属性中，表示取值范围最大值的属性是（ ）A. Max B. LargeChange C. Min D. Value

满分：1 分 二、计算题（共 2 道试题，共 10 分。）V 1. 阅读下面的程序，写出执行结果。Private Sub Form_load() Form1.show d = 0

For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d

End Sub

满分：5 分2. 阅读下面的程序，分析并写出其功能。Sub insert(a() As Single,ByVal x As Single) Dim m as integer,n as integer n=1

Do While n<20 And x>a(n) n=n+1 Loop

For m=20-1 To n Step –1 a(m+1)=a(m) Next m a(n)=x End Sub

满分：5 分

三、简答题（共 10 道试题，共 30 分。）V 1. 在程序设计中为什么尽量不用GoTo语句？

满分：3 分2. 表达式2>3 And 4＜=5 Or 4>4的值是什么？

谋学网www.mouxue.com

满分：3 分3. 如何为一个菜单项设置热键和快捷键？

满分：3 分4. 什么是文件？文件的作用是什么？

满分：3 分5. 表间的关系类型有哪几种？

满分：3 分6. 在什么情况下可以设置断点？

满分：3 分7. 请说明PRINT #和WRITE #语句的区别。

满分：3 分8. 框架的作用是什么？

满分：3 分9. 在工程资源管理器窗口中，主要列出了哪三类文件？

满分：3 分10. 什么是对象？如何建立对象？

满分：3 分

四、论述题（共 2 道试题，共 20 分。）V 1. 编程题

输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。（界面自行设计）

满分：10 分2. 编程题

实现二进制方式文件的复制。（界面自行设计）

满分：10 分

谋学网www.mouxue.com

五、主观填空题（共 1 道试题，共 5 分。）V 1. 设某列表框共有10项，按题目要求补齐程序，完成相应的功能。

（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上： Private Sub Command1_Click( ) List.(7)=True Print List1. End Sub

（2）单击列表框某一项时立即将该项打印在窗体上： Private Sub List1_Click( ) Print End Sub

（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项： Private Sub Command1_Click( ) For I=1 To 5 List1. Next I End Sub

（4）在列表框的每一项之后插入一个新的项： Private Sub Command1_Click( ) For I=1 to 10

X=InputBox(“请输入插入的第” & I & “项内容”) List1.AddItem Next I End Sub

试题满分：5 分

第 1 空、 满分：1 分 第 2 空、 满分：1 分 第 3 空、 满分：1 分 第 4 空、 满分：1 分 第 5 空、 满分：1 分 六、主观填空题（共 1 道试题，共 4 分。）V 1. 设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1.( ) Label1.Caption = Hscroll1. End Sub

要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1.( ) Label1.Caption = Hscroll1. End Sub

试题满分：4 分

本文来源：https://www.bwwdw.com/article/t3vh.html