专业 班级 姓名 学号
装 订 线
《VB程序设计》 B卷考试形式：闭卷 考试时间：100分钟
所有答案均要写在答题纸上，写在试卷上无效
一、选择题(每题3分，共24分)
1.对于具有背景的对象，改变其背景是通过改变对象的_____属性实现的。 A. font
B. backcolor
C. forecolor
D. caption
2.事件过程是指____时所执行的代码
A. 运行程序
B.使用控件
C. 响应事件
D. 设置属性
3.如果参与运算的两个表达式均为true时，结果为true，该逻辑运算符是_____。
A. And
B. Or
C. Not
D. Xor
4.下列_____属性决定控件的拖放模式。
A. mousepointer
B. autoredraw
C. dragmode
D. caption
5.调用列表框控件的_____方法，可清除列表框中的所有列表项。
A. cls
B. removeitem
C. clear
D.remove
6.通过_____函数，可将指定的图形赋值给对象的picture属性。
A. loadimage
B. imageload
C. loadpicture
D. pictureload
7.下列_____语句或函数，不能读出顺序文件中的内容。
A. Get #
B. Line Input #
C. Input #
D. Input()
8.下列命令中_____可实现对顺序文件的写操作。
A. Print
B. Line Input
C. Input
D. Put
二、填空题（每空2分，共30分）
9．工程资源管理器主要包含的三种文件是_____ 、____、_____。
10． _____ 属性决定控件上显示的内容，命令按钮接收的时间是____事件，____方法的作用是在对象上输出信息。
11．常量声明使用关键字_____。可以使用____或____将两个字符串拼接起来。
12.时钟最重要的属性是___，表示两个计时器事件之间的时间间隔，单位为___ 时钟控件的唯一事件为___事件。
13.打开顺序文件的三种模式分别是___ 、____、_____。
三、简答题（每题5分，共15分）
14.静态数组与动态数组的区别是什么？
15.vb程序设计教程第二版答案请说明键盘扫描代码（keycode）和键盘ASCII码（keyasscii）的区别。
16.EOF和LOF函数的功能分别是什么？
四、程序设计题（17题9分，18题10分，19题12分，共31分）
17.求1-100之间的奇数和。
18.用circle方法在窗体上绘制由圆环构成的艺术图案，构造图案的算法是：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1绘制n个圆。
19. 设计一个简单的画图程序，当程序运行时，按下鼠标右键画圆，按下鼠标左键移动时画线。
`
装 订 线
《VB程序设计》B卷 参考答案及评分标准
一、选择题(每题3分，共24分)
1—5. B C A C B 6—8. D A A
二、填空题（每空2分，共30分）
9. 窗体文件（.frm文件） 标准模块文件（.bas文件） 类模块文件（.cls文件）10．Caption click print 11．Const & + 12.interval ms（0.001s）timer 13.input output append
三、简答题（每题5分，共15分）
14．静态数组：声明时确定了大小的数组。（1分）
动态数组： 声明时没有给定数组大小（省略了括号中的下标），使用时需要用ReDim语句重新指出其大小。（2分）
使用动态数组的优点是根据用户需要，有效地利用存储空间，它是在程序执行到ReDim语句时才分配存储单元，而静态数组是在程序编译时分配存储单元。（2分）
15．Keycode 参数表示按下的物理键。上档键字符和下档键字符也是使用同一键，它们的Keycode值相同。（2分） keycode 参数通过 ASCII 值或键代码常数来识别键。字母键的键代码与此字母的大写字符的 ASCII 值相同。（2分）KeyAscii 参数返回对应于ASCII字符代码的整型数值。 （1分）
16. EOF 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，EOF函数返回TRUE(-1)，否则返回FALSE(0)。 （3分）
LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。（2分）
四、程序设计题（17题9分，18题10分，19题12分，共31分）
17.
Dim i as integer,s as integer --------------（2分）
S=0 --------------（2分）
For i=1 to 100 step 2 --------------（2分）
s=s+i --------------（2分）
Next i --------------（1分）
18.
Private Sub Form_Click()
Dim r, x, y, x0, y0, st As Single --------------（1分）
r = Form1.ScaleHeight / 4 --------------（1分）
x0 = Form1.ScaleWidth / 2 --------------（1分）
y0 = Form1.ScaleHeight / 2 --------------（1分）
st = 3.1415926 / 20 --------------（1分）
For i = 0 To 6.283185 Step st --------------（1分）
x = r * Cos(i) + x0 --------------（1分）
y = r * Sin(i) + y0 --------------（1分）
Circle (x, y), r * 0.9 --------------（1分）
Next i --------------（1分）
End Sub
19.
Dim drawstate As Boolean --------------（1分）
Dim prex As Single
Dim prey As Single --------------（1分）
Private Sub Form_Load()
drawstate = False --------------（1分）
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
drawstate = True --------------（1分）
MousePointer = vbCustom --------------（1分）
MouseIcon = LoadPicture("D:\Program Files\Microsoft _
Visual Studio\MSDN98\98VS\2052\msdn.ico") --------------（1分）
prex = X
prey = Y --------------（1分）
End If
If Button = 2 Then
Circle (X, Y), 280 --------------（1分）
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If drawstate = True Then
Line (prex, prey)-(X, Y) --------------（1分）
prex = X
prey = Y --------------（1分）
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论