Question

VB程序设计题目！！

求一组数中所有偶数元素的平均值，要求：
（1）编制一个自定义函数过程Even，计算数组中所有偶数元素的平均值。
（2）编制一个事件过程Form_Click，随机产生10个100以内的随机正整数，通过调用Even函数输出偶数平均值。
顺便请各位好心人帮我看一下这道题
Dim z As Integer
Private Sub a()
Dim x As Integer, y As Integer, z As Integer
x = 4 : y = 6 : z = x + y + z
Print x ; y ; z
End Sub
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 3 : y = 5 : z= z + x mod y
Call a()
Print x ; y ; z
End Sub
第二次单击窗体后, 输出 ——————

Answer 1

Private Function Even(intData() As Integer) As Long
Dim i As Long, sum As Long, ic As Long
sum = 0
ic = 0
For i = LBound(intData) To UBound(intData)
If ((intData(i) Mod 2) = 0) Then
sum = sum + intData(i)
ic = ic + 1
End If
Next
Even = sum / ic
End Function

Private Sub Form_Click()
Dim intData(9) As Integer, i As Integer
Randomize
Me.Cls
For i = 0 To 9
intData(i) = 1 + CInt(99 * Rnd)
Next
Me.Print Even(intData)
End Sub

追问

大神谢谢你，我补充的问题也帮我解答一下好吗

追答

4 6 10
3 5 3
4 6 10
3 5 6
上课不认真,你们老师考你对局部变量的认识

追问

请问Z不是在CLICK的时候变成3，然后到a（）的时候变成13吗？

追答

Dim z As Integer'在最前面的这句定义了个窗体级的局级变量
a()过程中也定义了个Z,这个Z只在这过程中有效,a()过程执行结束就没啦