vb期末考试练习卷2及答案

vb期末考试练习卷2及答案
练习卷⼆
⼀、语⾔基础题（40分）
判断题（本题10分，每⼩题1分）
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 的作⽤是：当选取了不同的驱动器时，⽬录列表框中的⽬录项也随不同的驱动器作相应的改变。

单选题（本题10分，每⼩题1分）
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
5. 将命令按纽Command1设置为不可见，应修改该命令按纽的____ 属性
[A]Visible [B]Value [C]Caption [D]Enabled
6. 单击滚动条两端的任意⼀个滚动箭头，将触发该滚动条的____ 事件
[A]Scroll [B]KeyDown [C]Change [D]DragOver
7. 重新定义图⽚框控件的坐标系统，可采⽤该图⽚框的____ ⽅法
[A]Scale [B]ScaleX [C]ScaleY [D]SetFocus
8. 将通⽤对话框CommonDialog1的类型设置成另存为对话框，可调⽤该对话框的____ ⽅法
[A]ShowOpen [B]ShowSave [C]ShowColor [D]ShowFont
9. Timer 函数的功能是：____
[A]获得系统当前的时间 [B]获得系统当前的⽇期和时间
[C]返回从午夜12点⾄当前时间的秒数 [D]触发Timer()事件 10.____ 对象不能响应Click 事件[A]列表框 [B]图⽚框 [C]窗体 [D]计时器
填空题（本题20分，每⼩题2分）
1. 写出Print Not (3 > 8), (3 > 9) Or (5 < 6) And (7 >= 0), (8 > 3) Xor (5 < 6) 语句执⾏后
的结果____ ____。

2. 写出函数Int(Sqr(17))的值____ ____。

3. 将数学式222233y x b
a y ++?+写成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) 语句画出的是____ ____图形。

⼆、程序阅读题（本题20分，每⼩题5分）
1. 写出命令按钮Command1单击后，程序运⾏结果。

Private Sub Command1_Click()
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
End Sub
2. 写出命令按钮Command1单击后，程序运⾏结果。

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.写出连击三次Cmd1，且分别输⼊9，3，16时⽂本框的内容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)
End If
Txtresult.Text=”Y=”+Str(Y)
End Sub
4. 写出连续单击Cmd1三次的结果
Dim A As Integer, Y As Integer
Private Sub Form_Load()
Open “C:\ Windows\Hh.Dat” For Out Put 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)
Dim X As Integer
X=1
Do Until X>I
A=A+X
X=X+3
Loop
End Sub
三、程序填空题（本题20分，每空2分）
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
四、程序设计题（本题20分，每⼩题10分）
1. ⽤台劳级数求E 的近似值，直到最后⼀项⼩于10-7。

E=1+1/1!+1/2!+1/3!+……
2. 设计⼀个调⾊板程序，界⾯设计如图⼀所⽰,各对象的有关属性见下表，该程序能完成如下功能：◆调整[红]，[绿]，[蓝]三个滚动条，其值会在右边的⽂本框中显⽰出来。

值的范围在0-255 ◆
调整完三个滚动条中的任⼀个，上边的标签背景⾊会作相应的改变
图⼀
练习卷⼆标准答案及评分标准
⼀、语⾔基础题（40分）
判断题评分标准：本题10分，每⼩题1分
单选题评分标准：本题10分，每⼩题1分
填空题评分标准：本题20分，每⼩题2分
1.True True False
说明：写为Ture⼀律不得分。

2. 4
3.Sqr (Y ^ 3 + 3 * (A ^ 2 + B ^ 2) / (X ^ 2 + Y ^ 2))
说明：Sqr函数⽤指数^0.5表⽰也可以。

4. A > 0 And Int(A) = A And B > 0 And Int(B) = B Or A < 0 And B < 0
说明：可以⽤A/1=A\1关系式来判断整数
5. 3
6.7
7.查其Text属性
8.变⼤
9.始、末两点与圆⼼相连的弧。

说明：意思表述正确都可以得分。

10.正⽅形
⼆、程序阅读题（本题20分，每⼩题5分）
评分标准：每⼩题5分。

完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。

三、程序填空题
评分标准：本题20分，每空2分。

1.
（1）"中国"
（2）"西湖"
（3）"中国"
（4）"浙江"
（5）End Select
2.
（1）I-1
（2）B=False
（3）A(J)=A(I)
（4）I
（5）Next I
五、程序设计题（共20分）
1．评分标准：本题10分
变量声明（1分）：变量可以不声明，但是如果声明错误要扣分；
变量初值赋值（3分）：N、I 、E 的初值各1分；
循环语句（5分）：循环条件1分，阶乘2分，累加1分，变量累加1分；
输出结果语句（1分）。

参考程序：
Dim N As Single, E As Double, I As Integer
N = 1: I = 1: E = 1
Do Until 1 / N < 10 ^ -7
N = N * I
E = E + 1 / N
I = I + 1
Loop
Print E
2．评分标准：本题10分
滚动条的属性设置（Form_Load事件）（3分）：
选取正确的事件过程（1分）；
⽂本框Text属性＝滚动条Value值（1分）；
R = Hscroll1(0).Value、G = Hscroll1(1).Value、B = Hscroll1(2).Value（3分）；Label1.Backcolor = RGB(R, G, B)（2分）。

参考程序：
Private Sub Form_Load()
Hscroll1(0).Max = 255
Hscroll1(0).Min = 0
Hscroll1(1).Max = 255
Hscroll1(1).Min = 0
Hscroll1(2).Max = 255
Hscroll1(2).Min = 0
End Sub
Private Sub Hscroll1_Change(Index As Integer)
Text1(Index).Text = Str$(Hscroll1(Index).Value)
R = Hscroll1(0).Value ' 读取第⼀个滚动条的值为R 值
G = Hscroll1(1).Value ' 读取第⼀个滚动条的值为G 值
B = Hscroll1(2).Value ' 读取第⼀个滚动条的值为B 值
Label1.Backcolor = RGB(R, G, B) ' 设置标签的背景颜⾊End Sub。