vb期末考试复习资料（经典总结版）(8)

在上面的程序中，如果把过程Proc的参数改为传值方式，结果会如何呢?在这种情况下，事件过程中的实参与通用过程中的形参没有任何关系，输出结果仍为5 4。 例2 阅读程序：

Function func(n As Integer) As Integer Sum = 0 For i= 1 To n

Sum = Sum + (i + 1) * i Next i

func = Sum End Function

Private Sub Command1_Click()

19

Dim a As Integer a=5

s = func(a) Print s End Sub

程序运行后，单击命令按钮，输出结果为 A．80 B．60 C．70 D．15

【分析】 该例调用一个Function过程Func，该过程只有一个参数，类型为整型，返回值也为整型。过程的调用十分简单，关键是要搞清楚过程func的功能。从循环 For i= 1 To n

Sum = Sum + (i + 1) * i Next i

可以看出，该过程的功能是计算 1*2+2*3+3*4+…+(n+1)*n

在调用过程时，实参a的值为5，即上式中的n=5。因此返回的值为： 1*2+2*3+3*4+4*5+5*6=70 【答案】 C

例3 阅读下面的程序：

Function Func(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x+y n=n+1 Loop Func = x End Function

Private Sub Command1_Click() Dim x As Integer, y As Integer Dim n As Integer, z As Integer x=1 y=1

For n = 1 To 6 z = Func(x, y) Next n Print z End Sub

程序运行后，单击命令按钮，输出结果是 A．16 B．21 C．26 D．31

【分析】 过程Func有两个参数，使用的是引用方式，参数和返回值均为整型，在命令按钮事件过程的For循环中调用Func过程，共循环6次，每次循环调用一次。两个过程中使用的变量(包括参数)基本相同，但由于是局部变量，不会发生冲突。无论在事件过程还是通用过程中，y的值始终保持不变，总等于1。在Func过程中，Do-Loop循环共执行5次，通过变量n控制(从0到4)，每次都执行x=x+1，因此，每调用一次Func过程，都使得x=x+5，并把返回值赋给事件过程中的变量z。6次调用中，循环变量n及返回值z的结果如下： n z 1 6 2 11 3 16 4 21 5 26 6 31 【答案】 D

例4 编写如下通用过程：

Sub proc(By Val num As Long, ByRef ren As Long) Dim k As Long

20