计算机程序设计 期末考试试卷
一、判断题( ( 每题 1 1 分，共 0 10 分) )
1．事件是由 Visual Basic 预先定义的对象能够识别的动作。
2．过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后值。
3．不论步长是正值或负值，当循环变量的值大于终值时，结束循环。
4．用 DIM 定义数值变量时，该数值变量自动赋初值为 0。
5．单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全一样。
6．可以通过合理设置组合框的 MultiSelect 属性使组合框支持简单复选或扩展复选。
7．滚动条控件可作为用户输入数据的一种方法。
8．用 OutPut 模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。
9．在图片框中添加的控件，其 Top 和 Left 属性值是相对图片框而言的，与窗体无关。
10．通用对话框的 FileName 属性返回的是一个输入或选取的文件名字符串。
二、单选题( ( 每题 1 1 分，共 0 20 分) ) 1．在 Visual Basic 中，称对象的数据是
。
A、属性
B、方法
C、事件
D、封装 2．语句 Print “5*5”的执行结果为
。
A、25
B、“5*5”
C、5*5
D、出现错误 3．输入对话框 InputBox 的返回值类型是
。
A、字符串
B、整数
C、浮点数
D、长整数 4．若 I 的初值为 8，则下列循环语句的循环次数为
次。
Do While I <= 17
I = I + 2
Loop
A、3 次
B、4 次
C、5 次
D、6 次 5．在下列关于 Select Case 的叙述中，错误的是
。
A、Case 10 To 100
表示判断 Is 是否介于 10 与 100 之间
B、Case "abc","ABC" 表示判断 Is 是否和"abc"、"ABC"两个字符串中的一个相同
C、Case "X"
表示判断 Is 是否为大写字母 X
D、Case -7,0,100
表示判断 Is 是否等于字符串"-7，
0，100" 6．标签控件的标题和文本框控件的显示文本的对齐方式由
属性决定。
A、WordWrap
B、AutoSize
C、Alignment
D、Style 7．以下
语句将删除列表框 List1 中的最后一项。
List1.RemoveItem List1.ListCount List1.Clear List1.List（List1.ListCount-1）＝“” List1.RemoveItem List1.ListCount-1 8．文本框中选定的内容，由下列
属性来反映。
A、Seltext
B、Sellenght
C、Text
D、Caption 9．单击滚动条两端的任意一个滚动箭头，将触发滚动条的
事件。
A、KeyDown
B、Change
C、Scroll
D 、Click 10．将图片框的
属性设置为 True 时，可使图片框根据图片调整大小。
A、Picture
B、Stretch
C、AutoSize
D、
AutoRedraw 11．设计动画时通常用时钟控件
属性来控制动画速度。
A、Interval
B、Timer
C、Move
D、Enabled 12 ． 语 句 “ Circle(1000,1000),800,,-3.1415926/3,-3.1415926/2”绘制的是
。
A、弧
B、椭圆
C、扇形
D、同心圆 13．在 VB 中，以下控件不能作为其他控件的容器的是
。
A、框架
B、图片框
C、影像框
D、窗体 14．形状（Shape）控件所显示的图形不可能是
。
A、圆
B、椭圆
C、圆角正方形
D、等边三角形 15．Visual Basic 用下列哪一条指令来绘制直线
。
A、Line 方法
B、Pset 方法
C、Point 方法
D、Circle 方法 16．将通用对话框类型设置为“另存为”对话框，应修改
属性。
A、Filter
B、Font
C、Action
D、FileName 17．每创建一个菜单，它的下面最多可以有
级子菜单。
A、1
B、3
C、5
D、6 18．语句“open c:\dat.txt for output”用于打开一个顺
序文件，该语句的一个重要错误是没有
。
A、指定打开方式
B、指定文件号
C、指定文件名
D、指定打开类型 19．已知 A、B、C 中 C 最小，则判断 A、B、C 可否构成三角形三条边长的逻辑表达式是
。
A、A>=B And B>=C And C>0
B、A+C>B And B+C>A And C>0
C、(A+B>=C Or A-C<=C) And C>0
D、A+B>C And A-B>C And C>0 20．若目录列表框控件 Dir1 的 Path 属性当前值为“C：\”，双击该列表框的表项“Pwin2000”后，控件 Dir1 的 Path 属性当前值为
。
A、“c:\Pwin2000”
B、“c:\\Pwin2000\”
C、“c:\Pwin2000\”
D、“c:Pwin2000\”
三、填空题( ( 每题 1 1 分，共 0 10 分) ) 1．用 Dim X(2 to 5) As Integer 语句定义的数组占用
个字节的内存空间。
2．算术式 ln(x)+sin(30°)的 VB 表达式为
。
3. 语句 Print Not 10 > 15 And 8 < 5 + 2 的输出结果
为
。
4．运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过
属性来实现。
5．组合框具有文本框和
两种控件的基本功能。
6．定时器控件只能接收
事件。
7．以窗体 Form1 的中心为圆心，画一个半径为 800 缇的圆的方法是
。
8．在图片框中加一幅图片（从磁盘装入）可用
函数来实现。
9．文件的当前读写位置是否到达文件末尾，应用
函数。
10．在设计菜单时，可在 VB 主窗口的菜单栏中选择
，单击后从它的下拉菜单中选择 “菜单编辑器”菜单项。
四、程序阅读题（每题 5 5 分，共 0 20 分）
程序 1：当程序运行时，输入 n 的值为 7，写出图片框上的输出结果。
Private Sub Command1_Click()
Dim i As Byte, j As Byte, n As Byte
Do
n = InputBox("n=","输入 1-9 之间的整数")
Loop While n<1 Or n>9
For i = 1 To n
Picture1.Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Picture1.Print Trim(Str(i));
Next j
Next i
End Sub
2．程序 2：写出下列程序运行时单击窗体后屏幕上的显示结果 Dim x as Integer Private Sub Form_Click()
Dim y as Integer, z as Integer
y = 1: z = 2
Call init (y, z)
Print "y="; y, "z="; z
y = op(y, z)
Print "x="; x, "y="; y, "z="; z End Sub Private Sub init(ByVal a As Integer, b As Integer)
a = a + 2: b = b + 2: x = x + 1 End Sub Private Function op(a As Integer, b As Integer) As Integer
a = a + 1: b = b + 1: op = a + b End Function
3．程序 3：写出下列程序运行时单击窗体后屏幕上的显示结果 Private Sub Form_Click()
Dim a(6) As Integer, k As Integer, j As Integer
Open "c:\a1.dat" For Output As #1
For i% = 1 To 6
j = i% * i% : Print #1, j;
Next i%
Close #1
Open "c:\a1.dat" For Input As #2
k = 0
Do While Not EOF(2)
k = k + 1 : Input #2, a(k)
Loop
Close #2
For i% = k To 1 Step -1 : Form1.Print a(i%); : Next i% End Sub 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。
4．程序4：已知控件Hscroll1的属性设置如下 Hscroll1.Min =1 Hscroll1.Max=9 Hscroll1.Value=1 Hscroll1.SmallChange=2 Hscroll1.LargeChange=4 下列程序运行时,4次单击滚动条右端箭头,写出各次单击时 Text1 上的显示结果。
Dim y As Integer
Private Sub HScroll1_Change()
Dim x2 As Integer, i As Integer
Static x1 As Integer
x2 = HScroll1.Value
For i = x1 To x2
y = y + i
Next i
Print "y="; y
x1 = i End Sub
五、程序( ( 选择 ) 填空题( ( 每空 2 2 分，共 0 20 分) ) 1．【程序说明】下列程序用来在窗体上输出如下数据。
1 0 0 0 1 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 1 0 0 0 1 Private Sub Form_Click() Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As
Integer For i = 1 To 5
For j = 1 To 5
if ______（1）________ then
______(2)_________
End If
Next j Next i For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
_____(3)__________ Next I：End Sub （1）A、i=j
B、i=j and i+j=6
C、i=j or i+j=6
D、i<>j and i+j<>6 （2）A、a(i, j)=0
B、a(i, j)=1
C、Print a(i, j)
D、Print a(i, j); （3）A 、Print
B、 Print i
C、 i=i+1
D、 a(i, j)=i
2．【程序说明】创建一个彩色的演示程序，要求在 Picture1中画出水平方向半径较长的彩色椭圆 50 个，圆心均在一条水平线上，椭圆的长轴与短轴之比 a/b=2。
Dim r!, g!, b! Dim i% Sub circledemo()
Dim radius!
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
xpos = Picture1.ScaleWidth * Rnd
ypos =
（4）
radius = ((xpos * 0.9) + 1) * Rnd
Picture1.
（5）
End Sub Private Sub Command1_Click()
For i = 1 To 50
Call
（6）
Next i
End Sub （4）A、Picture1.Scaleheitht*rnd
B、Picture1.Scaleheight*rnd
C、Picture1.Scalewidth*rnd
D、Picture1.ScaleHeight / 2 （5）A、Circle (xpos, ypos), radius, RGB(r, g, b), , ,1 / 2
B、Circle (xpos, ypos), radius, RGB(r, g, b), 1 / 2
C、Circle (xpos, ypos), radius, RGB(r, g, b), 2
D、Circle (xpos, ypos), radius, RGB(r, g, b), , , 2 （6）A、Sub circledemo
B、circledemo
C、circledemo(50)
D、Sub circledemo()
3.【程序说明】利用 1 个计时器、1 个标签框和 2 个命令按钮制作一个动态秒表。
各控件名称取缺省值，控件 Command1、Command2 标题分别
为“开始”、“结束”。运行时，单击“开始”秒表开始记时，并在标签上显示总秒数；单击“结束”记时结束，在窗体上显示出运行的时间。（折算成小时，分钟和秒数）
Dim x As Long Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False End Sub Private Sub Command1_Click()
Cls
x=0
（7）
End Sub Private Sub Command2_Click()
Dim h As Integer, m As Integer, s As Integer
Timer1.Enabled = False
h =
（8）
‘小时数 m =
（9）
‘分数 s = x Mod 3600 Mod 60 print "运行" + Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒
" End Sub Private Sub Timer1_Timer()
（10）
Label1.Caption=x End Sub （7）A、Timer1.Enabled=False
B、Timer1.Enabled=True
C、Timer1.Enabled=Fales
D、Timer1.Visible=False （8）A、x\3600
B、x/3600
C、x mod 60
D、x mod 3600\60 （9）A、x\3600
B、(x mod 3600)\60
C、x mod 3600 \60
D、x\60 （10）A、Timer1.Enabled=True
B、Label1.Left=Label1.left+1
C、x=x+1
D、Timer1.Enabled=False
六、程序设计题( ( 每题 0 10 分，共 0 20 分) )
1．编程，通过文本框输入 x 值，按下式计算并在图片框上输出 y 值。
用户界面如图 1 所示，用于实现左右两个列表框中数据的传递功能。程序开始运行时，在左边列表框框中随机生成 10个三位正整数，现要求完成：
单击“>>”按钮，左边列表框的 10 个列表项中的偶数复制到右边列表框，并使所有的偶数按由小到大顺序排列。如图 0 01 03 13 3 ln) (2xx xx xx xx f y
2 所示。
单击“结束”按钮，结束程序运行。
所有控件的标题属性都已经完成设置。请分别写出两个命令按钮的单击事件和窗体的 Load 事件。
图 1
图 2
相关热词搜索： 程序设计 期末考试 试卷
