VB第6章课后练习答案

第6章过程与函数
一、填空题
1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。

2．一维长整型数组a作过程形参写作：a() As Long，二维长整型数组b作过程形
参写作：____b() As Long ____。

3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。

4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按
值传递____方式。

5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地
址传递____方式。

6．声明Single类型全局变量x，写作____Public x As Single（或 Public
x!）____；声明Integer类型静态变量
x，写作____Static x As Integer （或
Static x%）____。

7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作
____Form2.y____。

8．阅读如下代码，单击窗体后，窗体上的显示结果为____s = 2 s = 5 s = 9____。

Dim i As Integer, n As Integer
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 3
s = sum(i): Print "s ="; s;
Next i
End Sub
Private Function sum(n As Integer)
Static j As Integer
j = j + n + 1: sum = j
End Function
二、选择题
1.VB程序设计语言中，函数过程与子过程必
须分别用关键字（ C）声明。

(A)Private，Public (B)Public，
Private
(C)Function, Sub (D)Sub, Function
2.要调用一个已经定义好的函数
myfunction( )，用语句的方式调用函
数，下列写法哪个是正确的（ D）
(A)Call myfunction (B)myFunction
(C)myFunction ( ) (D)Call
myFunction( )
3.定义过程时，如果在过程名前加关键字
Private，则该过程为（ A）。

(A)它是私有过程，仅在定义该过程的
模块内有效，模块内的过程可以调用该
过程
(B)它是公有过程，在整个工程内有效，
模块外的过程可以调用该过程
(C)它是私有过程，在整个工程内有效，
模块外的过程可以调用该过程
(D)它是公有过程，仅在定义该过程的
模块内有效，模块内的过程可以调用该
过程
4.在过程中用Dim保留字定义的变量是
（ B）
(A)全局变量 (B)局部变量 (C)静态变
量 (D)以上都不是
5.防止递归函数进入死锁的机制是
（ A）
(A)在适当的条件下返回 (B)通过Stop
语句终止递归调用
(C)通过End语句终止递归函数 (D)不
需要返回
6.关于函数与子程序的关系，下面说法正确
的是（ A）
(A) 函数执行完后将得到一个返回值，
而子程序只是执行一系列动作
(B) 函数可以不带参数，而子程序必须
带参数
(C) 在函数中只用到传地址的方式，而
子程序只能用到传值方式
(D)子程序可以被其他子程序调用，而
函数不能被其他函数调用
7.Visual Basic 6.0 中缺省的参数传递机
制是（ B）
(A) 传值 (B) 传址 (C) 传值和传地
址 (D)从实参到形参
8.使用（ C）语句可以实现过程的特殊
出口。

(A) Public Sub/Function (B) Call 过
程名
(C) Exit Sub/Function (D)Private
Sub/Function
三、思考题
1.静态变量和动态变量的区别是什么？
2.函数过程与子程序过程有什么区别？
3.子过程调用有哪几种形式？
4.什么是形参？什么是实参？什么是值引
用？什么是地址引用？对应的实参有
没有限制？
5.怎样引用其他模块的过程和变量？
6.编制通用函数过程，计算Double类型一
维数组所有元素的平均值。

7.编制通用Sub过程，将Single类型一维
数组反序排放（如实参数组元素依次为
6、5、9、7，调用后为
7、9、5、6；若
为-3.2、4、2.6、31、7.3，调用后为
7.3、31、2.6、4、-3.2）。

8．编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及
该元素的行号、列号（提示：Sub过程
的形参列表如x() As Single, m As
byte, n As Byte, xmax As Single,ki
As Byte,kj As Byte）。

9.输出100—300间的素数，要求：
（1）用函数判断素数。

（2）每行输出10个数。

10．设计一个将一维数组按降序排列的子过程（假设数据个数不知道），然后编程：（1）自动产生并输出100个[100，999]间的正整数，并要求每行输出10个数
据。

（2）调用该过程对数据按降序排列后再按每行10个输出。

6-3-7解答：
Private Sub Form_Click()
Dim a() As Single
ReDim a(10)
Print "反序前："
For i = 1 To 10
a(i) = Rnd * 201 - 100
Print Format(a(i), "###.## "); Next i
Print
Call inver(a(), 10)
Print "反序后："
For i = 1 To 10
Print Format(a(i), "###.## ");
Next i
Print
End Sub
Private Sub inver(a() As Single, n As Integer)
Dim i As Integer, t As Single
For i = 1 To n \ 2
t = a(n - i + 1)
a(n - i + 1) = a(i)
a(i) = t
Next i
End Sub
6-3-8解答：
6-3-9解答：
Private Sub Form_Click()
s = 0
For i = 100 To 300
If prime(i) Then
Print i;: s = s + 1
If s Mod 10 = 0 Then Print
End If
Next i
End Sub
Private Function prime(x) As Boolean If x < 2 Then
prime = False
Exit Function
End If
k = Sqr(x)
For i = 2 To k
If x Mod i = 0 Then
prime = False
Exit Function
End If
Next
prime = True
End Function
6-3-10解答：
Private Sub Form_Click()
Dim i As Integer, n As Integer Dim a(100) As Integer
Print "排序前："
For i = 1 To 100
a(i) = Int(900 * Rnd() + 100) Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
Print "排序后："
Call ss(a(), 100)
For i = 1 To 100
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
Private Sub ss(a() As Integer, n As Integer)
For i = 1 To n - 1
For j = i + 1 To n
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
End Sub。