vb期末考试练习卷6及答案
法兰克福大学-预备党员半年小结
练习卷六
一、 语言基础题（40分）
判断题（本题10分，每小题1分）
1．使用声明语句建立一个变量后，VB自动将
数值类型的变量赋初值0，变长的字符串被初始化为
一个零长度的字符串（””），定长的字符串则用空
格填充，Variant变量被初始化为Empty，布尔
型的变量初始化为False。
2
．在窗体中用Show或Hide方法和在代码中将Visible属性分别设置为True或False的效果
是一样
的。
3．当对象具有焦点时，按下、松开键盘上一个键会触发该对象的KeyPpress
事件。该事件先于
KeyDown事件而后于KeyUp事件发生。
4．Dim a1,a2
As Integer 语句显式声明变量a1和a2 都为整型变量。
5．函数Len(的值是5。
6．执行Do„Loop While语句时，不管条件真假，首先会无条件地执行一次循环。
7．语句e=False 与d=False 是等价的。
8．通过对CommonDial
og通用对话框控件Action属性的赋值或方法调用可以生成所需要的如Open、
Save
As、Color、Font、Print、Help 等常用对话框。
9．当图片框Picture
Box控件的Autosize属性为True时，超过图片框尺寸的图片其超过部分会被图
片框截去。
10． 要创建新的顺序文件，必须先用Input或Output或Append方式打开该文件。
单选题（本题10分，每小题1分）
1．下列符号哪一个是VB中的合法变量名？______
[A] IF [B] 7AB
[C] A[B]7 [D] AB7
2．数学式子Sin25°写成VB表达式是______
[A] Sin25 [B] Sin（25） [C] Sin（25*3.14180） [D]
Sin(25°)
3．函数Int(Rnd(0) * 10)是在哪个范围内的整数？______
[A] （0，1） [B] （1，10） [C] （0，10） [D] （1，9）
4．若x是一个正实数，对x的第3位小数四舍五入的表达式是______
[A]
0.01 * Int(x + 0.005) [B] 0.01 * Int(100 * (x +
0.005))
[C] 0.01 * Int(100 * (x + 0.05)) [D]
0.01 * Int(x + 0.05)
5．函数Left(的值为______
[A] He [B] el [C] lo [D] True
6．函数Int(Abs(99 -
100) 2)的值为______
[A] 1 [B] 0 [C] “1” [D] “0”
7．表达式2 * 3 ^ 2 + 2 * 8 4 + 3 ^ 2的值为______
[A] 64 [B] 31 [C] 49 [D] 22
8．将命令按钮Command1设置为不可见，应修改该命令按钮的______属性。
[A] Visible [B] Value [C] Caption [D] Enabled
9．重新定义图片框控件的坐标系统，可采用该图片框的______方法。
[A]
Scale [B] ScaleX [C] ScaleY [D] SetFocus
10．
用对话框CommonDialog1的类型设置成另存为对话框，可采用该控件的______方法。
[A] ShowOpen [B] ShowSave [C] ShowColor [D]
ShowFont
填空题（本题20分，每小题2分）
1．若用变量x来存放数据7654
32.123456，应将x声明为____________变量类型。
2．VB共有5种类型的表
达式：算术表达式、____________、关系表达式、布尔表达式和日期表达
式。
3．VB是根据表达式的_______符来确定表达式的类型的。
4．写出VB算术表达式
a(c(d+e^sqr(f))+b)所对应的数学表达式___________
5．设A=7、B=3、C=4，写出表达式：A Mod 3 + B ^ 3 C
5的值________
6．把数学式T＋3≠V－2且T+V>100写成VB关系或逻辑表达式。
___________________________________
7．写出表达式Val(的值。___________
8．程序运行时，要求当鼠标移动到
文本框控件上时出现提示文本，需要对文本框的哪一个属性进行
设置？___________
9．怎样在程序设计阶段创建控件数组？___________
10． Scale
(0, 0)-(100, 100): (20, 20)-(50, 50), ,
B语句画出的是什么图形？________
二、 程序阅读题（本题20分，每小题5分）
1．请按顺序写出下列程序的运行结果：
Option Explicit
Dim
x As Long, y As Long, z As Long
Private Sub
Form_Activate()
x = 3: y = 6: z = 9
If prime(x) Then Print prime(x)
If
prime(y) Then Print y
If prime(z) Then
Print z
Else
Print
End If
End Sub
Private Function
prime(m As Long)
Dim f As Boolean, i As
Integer
f = True
If m > 3 Then
For i = 3 To Sqr(m)
If
m Mod i = 0 Then f = False: Exit For
Next
End If
prime = f
End
Function
2．请按顺序写出下列程序的运行结果：
Option
Explicit
Dim a(5), i As Integer, j As Integer
Private Sub yd(x(), n, m)
x(0) = x(n)
If n < m Then
For i = n To m -
1
x(i) = x(i + 1)
Next
Else
For i = n To m + 1 Step
-1
x(i) = x(i - 1)
Next
End If
x(m) = x(0)
End
Sub
Private Function strr(x())
Dim p
As String
p = Str(x(1))
For i = 2
To UBound(x)
p = p &
Next
strr = p
End Function
Private
Sub Form_Activate()
For i = 1 To 5
a(i) = i
Next
i = 2: j = 5
yd a(), i, j
Print strr(a)
End Sub
3．请按顺序写出下列程序的运行结果：
Option Explicit
Private Function age(n As Integer) As Integer
If n = 1 Then
age = 2
Else
age = age(n - 1) + 2
End
If
End Function
Private Sub Form_Load()
age(3)
End Sub
4．已知Text1=”Hi!,,,friends…”，写出运行Call
sep_get(Text1)后在列表框List1中显示的内容。
Public Sub
sep_get(ByVal W As String)
If Mid(W, Len(W),
1) <>
For i = 1 To Len(W)
If Mid(W, i,
1) =
n = n + 1
End If
Next
Do Until unt >= n
j = j + 1
If
Mid(W, j, 1) =
m Trim(Left(W, j - 1))
W = Trim(Right(W, Len(W) - j))
j = 0
End If
Loop
End Sub
三、 程序填空题（本题20分，每空2分）
1．下列程序段是产生一个转置矩阵，并分别打
印出转置前后的矩阵。其中Swap是两个变量对换的
子程序。
转置前的矩阵
转置后的矩阵
1 2 3 4 1 1 1 1
1 2 3 4
2 2 2 2
1 2 3 4 3 3 3 3
1 2 3
4 4 4 4 4
Private Sub Form_Click()
Dim a(4, 4) As Integer, k As Integer, j As
Integer, t As Integer
For k = 1 To 4
For j = 1 To 4
a(k, j) = j
a(k, j);
Next j
---(1)---
Next k
For k = 2 To 4
For j = 1 To ---(2)---
---(3)---
Next j
Next k
For j = 1 To 4
a(j, 1); a(j, 2); a(j,
3); a(j, 4)
Next j
End Sub
Private
Sub Swap(---(4)---)
Dim t As Integer
t = a
a = b
---(5)---
End Sub
2．下列程序段是用于在一个字符串变量中查找，并用输出对话框给出找到的个数或没有找到
的
查找结果。
Private Sub Form_Click()
Dim Str1 As String, Length As Integer, Sum As
Integer, I As Integer
Str1 =
InputBox(请输入一个字符串
Length = ---(1)---
I = 1
Sum = 0
Do While I <=
---(2)---
If ---(3)---- =
Sum = Sum + 1
End If
---(4)---
Loop
If ---(5)---Then
MsgBox 没有找到！
Else
MsgBox 找到了个
End If
End Sub
四、
程序设计题（本题20分，每小题10分）
1．编写判断是否同时被17与37整除的Functio
n过程。在列表框中输出100~1000之间所有能同时被17
与37整除的数。
2．编写
一个Function过程，取名sortxt，作用是：将s变量中的任意长度字符串按每个字符的ASCII
码
值从大到小重新排列后，结果放到s变量，并将值回传。
练习卷六标准答案及评分标准
五、 语言基础题
判断题评分标准：本题10分，每小题1分
1．√ 2．√
单选题评分标准：本题10分，每小题1分
1．D
填空题评分标准：本题20分，每小题2分
1. Double
2.
字符串表达式
3. 运算
4.
2．C 3．C 4．B 5．A 6．B
7．B 8．A 9．A 10．B
3．× 4．× 5．× 6．√ 7．× 8．√ 9．×
10．×
a
c
de
f
b
5. 2
6. (T+3<>V-2) and (T+V>100)
7. 21
8.
ToolTipText
9. 对控件复制+粘贴
说明：只要意思表述清楚都可以得分。
10. 空心矩形
六、 程序阅读题
评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。
1．
True
6
Welcome!
3．
6
2．
1,3,4,5,2
4．
Hi!
friends…
七、 程序填空题
评分标准：本题20分，每空2分。
1．
（1）
（2）
（3）
（4）
（5）
2．
（1）
（2）
（3）
（4）
（5）
k - 1
Call Swap(a(k, j), a(j,
k)) 或 Swap a(k, j), a(j, k)
a As integer, b As
integer
b = t
Len(str1)
length
Mid$$(Str1, I, 3)
I = I + 1
Sum=0
八、 程序设计题
1．评分标准：本题10分
事件名及变量声明（1分）：变量可以不声明，但是如果声明错误要扣分。
Function过程的定义（1分）
判断是否同时被17与37整除的表达式
（2分）
Function过程返回值（2分）
Function过程的调用（2分）
在列表框中输出结果（2分）
参考程序：
Option Explicit
Private Sub Form_Activate()
Dim n As
Integer
For n = 100 To 2000
If
d(n) Then m n
Next
End Sub
Private
Function d(x As Integer) As Boolean
If x
Mod 17 = 0 And x Mod 37 = 0 Then
d =
True
Else
d = False
End If
End Function
2．评分标准：本题10分
Function过程的定义（2分）
变量及数组的声明（2分）
取字符（1分）
排序（4分）
得到结果并放入s变量（1分）
参考程序：
Private Function sortxt(s As String) As String
Dim t() As String, temp As String, i As
Integer, j As Integer
n = Len(s)
ReDim t(n)
For i = 1 To n
t(i)
= Mid$$(s, i, 1)
Next i
For i = 1
To n - 1
For j = i + 1 To n
If t(i) < t(j) Then
temp =
t(i)
t(i) = t(j)
t(j) = temp
End If
Next j
Next i
s =
For i =
1 To n
s = s & t(i)
Next i
sortxt = s
End Function