VB程序设计题目!求一组数中所有偶数元素的平均值,要求:(1)编制一个自定义函数过程Even,计算数组中所有偶数元素的平
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
第二次单击窗体后,输出 ——————