2000-2001学年下学期计算机程序设计VB期末试卷班级名称,学号： 姓名： 成绩,
语言基础题（40分）
（一）判断题（每题1分，共10分）
1,所谓属性是指对象的名字、大小、位置和颜色等特性。
2,所谓属性是指对象的名字、大小、位置和颜色等特性。
3,事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。
4,子程序调用时,如果参数按址传递并且实在参数是变量，则子程序在执行时 对形参的修改不会影响到对应传递的实参变量的内容。
5,控件数组的每个元素都有相同的NAME属性值和不同的INDEX属性值，其中最 小的INDEX属性值为1。
6,Caption是标签的缺省属性；text是文本框的缺省属性。
7,滚动条控件、TEXTBOX控件、INPUTBOX函数都可被作为输入数据用。
8,当影像框image控件的stretch属性为true时，image控件能自动调整自已的 尺寸以与显示的图片尺寸匹配。
9,CommonDialog控件的font 对话框打开之后，必须设置CommonDialog控件的 flags属性值。
10,在drive1_change过程中，语句dir1.path=drive1.drive的作用是：当选取 了不同的驱动器时，目录列表框中的目录项也随不同的驱动器作相应的改变。
（二）单选题（每题1分，共10分）
（1） 对象能使用print方法
A.文本框 B.图片框 C.列表框 D.框架长整数的取值范围为 （2）
A．-215 ～215 B．-231 ～231-1 C．-215 ～215 -1 D．-215 ～231-1
（3） 对象具有Clear方法
A.列表框 B.图片框 C.窗体 D.框架要改变控件的宽度，应修改该控件的 （4） 属性
A.Top B.Left C.width D.Height
将命令按纽Command1设置为不可见，应修改该命令按纽的 （5） 属性
A.Visible B.value C.Caption D.Enabled
6,单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（6） 事件
A.Scroll B.Keydown C.Change D.Dragover
重新定义图片框控件的坐标系统，可采用该图片框的（7）方法
A.Scale B.ScaleX C.ScaleY D.SetFocus
将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该对话框的（8）方法
A.Showopen B.ShowSave C,ShowColor D,S owFont
Timer函数的功能是：（9）
A.获得系统当前的时间 B.获得系统当前的日期和时间 C.返回从午夜12点至当前时间的秒数 D.触发Timer()事件
（10） 对象不能响应Click事件
A.列表框 B.图片框 C.窗体 D.计时器
（三）填空题（每题2分，共20分）
1,写出Print Not (3 > 8),(3 > 9) Or (5 < 6) And (7 >= 0),(8 > 3) Xor (5 < 6) 语句执行后的结果。
2,写出函数INT(SQR(17))的值。
3,将数学式写成VB表达式。
4,把a和b都为正整数或同为负数写成VB关系或逻辑表达式。
5,写出表达式81\7 mod 2^2的值。
6,写出循环结构FOR I=30 TO 10 STEP –3 …next I 的循环次数。
7,假设列表框具有多选功能，你采用什么方法能判别出列表框中被选中的表 项？
8,程序运行时，单击水平滚动条右边的箭头时，滚动条的value属性值怎样娈 化？
9,pi = 3.14159265,Circle (1500,1500),1000,,-pi / 3,-pi / 2语句画出的是什么图形？
10,执行line(500,500)-step(1000,0),line -step(0,1000),line –step(-1000,0),line –step(0,-1000) 语句画出的是什么图形？
程序阅读题（每题5分，共20分）
阅读下列程序，写出运行结果
1,程序1
Dim b As Integer,k As Integer
B = 1
For k = 1 to 5
B = b*k
If b >= 15 Then
Exit For
Else
K = k + 1
End if
Next k
Print k,b
2,程序2
Private Sub Command1_Click( )
Dim x As integer,y As integer,n As integer,z As integer
X = 1,y = 1
For n=1 to 6
Z = func1(x,y)
Print n,z
Next
End Sub
Private Function Func1( x As integer,y As integer ) As integer
Dim n As integer
Do While n <= 4
X = x + y
N = n +1
Loop
Func1 = x
End Function
3.程序3
private sub cmd1_click()
dim x as integer
dim y as integer
x=val(inputbox(“输入数值”)
if int(sqr(x))<>sqr(x) then
y=x*x
else
y=sqr(x)
endif
txtresult.text=”y=”+str(y)
end sub
连击三次cmd1，且输入9，3，16时的值
4,程序4
dim a as integer,y as integer
private sub form_load()
open,c:\ windows\hh.dat” for output as #1
close #1
end sub
private sub cmd1_click()
open,c:\ windows\hh.dat” for append as #1
call aa(5)
y=y+a
print #1,“y=”;y,”a=”;a
close
end sub
private sub aa(I as integer)
x=1
do until x>I
a=a+x
x=x+3
loop
end sub
连击cmd1三次的结果三、程序填空题（每空2分，共20分）
1,下列程序段实现在标签中自动依次显示"中国"，"浙江"，"杭州"，"西湖"。
Private Sub Form_Load()
Label1.AutoSize = True,Label1.FontSize = 24
Label1 = --1--
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Select Case Label1
Case --2--
Label1 = "中国"
Case --3--
Label1 = "浙江"
Case --4--
Label1 = "杭州"
Case Else
Label1 = "西湖"
--5--
End Sub
2,下列程序段首先由随机函数产生10个互不相同的二位随机整数，在窗体中显示。然后用冒泡法从大到小排序，也在窗体中显示。
Private Sub Form_Click()
Const n = 10
Dim A(1 To n) As Integer,B As Boolean
Dim I As Integer,J As Integer,Temp As Integer
Form1.Print "原始数据"
Randomize
For I = 1 To n
B = False
Do While Not B
A(I) = Int(90 * Rnd + 10)
B = True
For J = 1 To --1--
If A(I) = A(J) Then
--2--
Exit For
End If
Next J
Loop
Form1.Print A(I);
Next I
Form1.Print
I = 1
Do
For J = I + 1 To n
If A(J) > A(I) Then
Temp = A(J)
--3--
A(I) = Temp
End If
Next J
I = I + 1
Loop While --4--
Form1.Print "排序结果"
For I = 1 To n
Form1.Print A(I);
--5--
End Sub
程序设计题（每题10分，共20分）
1,用台劳级数求e的近似值，直到最后一项小于10-7。
e=1+1/1!+1/2!+1/3!+……
2,创建调色板.vbp和调色板.frm文件，完成如下功能：
调整[红]，[绿]，[蓝]三个滚动条，其值会在右边的文本框中显示出来。值的范围在0-255
调整完三个滚动条中的任一个，上边的标签背景色会作相应的改变
要求：
（1）界面设计：列出各对象并设置有关属性
（2）编写响应事件的程序代码
语言基础题（40分）
（一）判断题（每题1分，共10分）
1,所谓属性是指对象的名字、大小、位置和颜色等特性。
2,所谓属性是指对象的名字、大小、位置和颜色等特性。
3,事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。
4,子程序调用时,如果参数按址传递并且实在参数是变量，则子程序在执行时 对形参的修改不会影响到对应传递的实参变量的内容。
5,控件数组的每个元素都有相同的NAME属性值和不同的INDEX属性值，其中最 小的INDEX属性值为1。
6,Caption是标签的缺省属性；text是文本框的缺省属性。
7,滚动条控件、TEXTBOX控件、INPUTBOX函数都可被作为输入数据用。
8,当影像框image控件的stretch属性为true时，image控件能自动调整自已的 尺寸以与显示的图片尺寸匹配。
9,CommonDialog控件的font 对话框打开之后，必须设置CommonDialog控件的 flags属性值。
10,在drive1_change过程中，语句dir1.path=drive1.drive的作用是：当选取 了不同的驱动器时，目录列表框中的目录项也随不同的驱动器作相应的改变。
（二）单选题（每题1分，共10分）
（1） 对象能使用print方法
A.文本框 B.图片框 C.列表框 D.框架长整数的取值范围为 （2）
A．-215 ～215 B．-231 ～231-1 C．-215 ～215 -1 D．-215 ～231-1
（3） 对象具有Clear方法
A.列表框 B.图片框 C.窗体 D.框架要改变控件的宽度，应修改该控件的 （4） 属性
A.Top B.Left C.width D.Height
将命令按纽Command1设置为不可见，应修改该命令按纽的 （5） 属性
A.Visible B.value C.Caption D.Enabled
6,单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（6） 事件
A.Scroll B.Keydown C.Change D.Dragover
重新定义图片框控件的坐标系统，可采用该图片框的（7）方法
A.Scale B.ScaleX C.ScaleY D.SetFocus
将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该对话框的（8）方法
A.Showopen B.ShowSave C,ShowColor D,S owFont
Timer函数的功能是：（9）
A.获得系统当前的时间 B.获得系统当前的日期和时间 C.返回从午夜12点至当前时间的秒数 D.触发Timer()事件
（10） 对象不能响应Click事件
A.列表框 B.图片框 C.窗体 D.计时器
（三）填空题（每题2分，共20分）
1,写出Print Not (3 > 8),(3 > 9) Or (5 < 6) And (7 >= 0),(8 > 3) Xor (5 < 6) 语句执行后的结果。
2,写出函数INT(SQR(17))的值。
3,将数学式写成VB表达式。
4,把a和b都为正整数或同为负数写成VB关系或逻辑表达式。
5,写出表达式81\7 mod 2^2的值。
6,写出循环结构FOR I=30 TO 10 STEP –3 …next I 的循环次数。
7,假设列表框具有多选功能，你采用什么方法能判别出列表框中被选中的表 项？
8,程序运行时，单击水平滚动条右边的箭头时，滚动条的value属性值怎样娈 化？
9,pi = 3.14159265,Circle (1500,1500),1000,,-pi / 3,-pi / 2语句画出的是什么图形？
10,执行line(500,500)-step(1000,0),line -step(0,1000),line –step(-1000,0),line –step(0,-1000) 语句画出的是什么图形？
程序阅读题（每题5分，共20分）
阅读下列程序，写出运行结果
1,程序1
Dim b As Integer,k As Integer
B = 1
For k = 1 to 5
B = b*k
If b >= 15 Then
Exit For
Else
K = k + 1
End if
Next k
Print k,b
2,程序2
Private Sub Command1_Click( )
Dim x As integer,y As integer,n As integer,z As integer
X = 1,y = 1
For n=1 to 6
Z = func1(x,y)
Print n,z
Next
End Sub
Private Function Func1( x As integer,y As integer ) As integer
Dim n As integer
Do While n <= 4
X = x + y
N = n +1
Loop
Func1 = x
End Function
3.程序3
private sub cmd1_click()
dim x as integer
dim y as integer
x=val(inputbox(“输入数值”)
if int(sqr(x))<>sqr(x) then
y=x*x
else
y=sqr(x)
endif
txtresult.text=”y=”+str(y)
end sub
连击三次cmd1，且输入9，3，16时的值
4,程序4
dim a as integer,y as integer
private sub form_load()
open,c:\ windows\hh.dat” for output as #1
close #1
end sub
private sub cmd1_click()
open,c:\ windows\hh.dat” for append as #1
call aa(5)
y=y+a
print #1,“y=”;y,”a=”;a
close
end sub
private sub aa(I as integer)
x=1
do until x>I
a=a+x
x=x+3
loop
end sub
连击cmd1三次的结果三、程序填空题（每空2分，共20分）
1,下列程序段实现在标签中自动依次显示"中国"，"浙江"，"杭州"，"西湖"。
Private Sub Form_Load()
Label1.AutoSize = True,Label1.FontSize = 24
Label1 = --1--
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Select Case Label1
Case --2--
Label1 = "中国"
Case --3--
Label1 = "浙江"
Case --4--
Label1 = "杭州"
Case Else
Label1 = "西湖"
--5--
End Sub
2,下列程序段首先由随机函数产生10个互不相同的二位随机整数，在窗体中显示。然后用冒泡法从大到小排序，也在窗体中显示。
Private Sub Form_Click()
Const n = 10
Dim A(1 To n) As Integer,B As Boolean
Dim I As Integer,J As Integer,Temp As Integer
Form1.Print "原始数据"
Randomize
For I = 1 To n
B = False
Do While Not B
A(I) = Int(90 * Rnd + 10)
B = True
For J = 1 To --1--
If A(I) = A(J) Then
--2--
Exit For
End If
Next J
Loop
Form1.Print A(I);
Next I
Form1.Print
I = 1
Do
For J = I + 1 To n
If A(J) > A(I) Then
Temp = A(J)
--3--
A(I) = Temp
End If
Next J
I = I + 1
Loop While --4--
Form1.Print "排序结果"
For I = 1 To n
Form1.Print A(I);
--5--
End Sub
程序设计题（每题10分，共20分）
1,用台劳级数求e的近似值，直到最后一项小于10-7。
e=1+1/1!+1/2!+1/3!+……
2,创建调色板.vbp和调色板.frm文件，完成如下功能：
调整[红]，[绿]，[蓝]三个滚动条，其值会在右边的文本框中显示出来。值的范围在0-255
调整完三个滚动条中的任一个，上边的标签背景色会作相应的改变
要求：
（1）界面设计：列出各对象并设置有关属性
（2）编写响应事件的程序代码
