阅读下面的程序； Function Func(x As Integer，y As

问题单项选择题

阅读下面的程序；
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 Integet, 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

答案

参考答案：D

解析：

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