Question

vb编写一个函数过程，用于求任意一维数组的所有元素的平均值（使用数组参数）。在“生成随机数”按钮的

click事件过程中生成20个【0,100】区间的随机整数，显示在第一个文本框中，在“求平均值”按钮的click时间过程中调用函数过程求这些随机整数的平均值，显示在第二个文本框中。

Answer 1

Option Explicit
'窗体放两个文本框，两个按钮
Dim i%, p#, S%, sjs%(20)
Private Sub Command1_Click()
Randomize
    Text1 = ""
    For i = 1 To 20
        sjs(i) = Int(Rnd * 101)
        Text1 = Trim(Text1 & " " & sjs(i))
    Next
End Sub

Private Sub Command2_Click()
    Text2 = PJZ(sjs)
End Sub

Function PJZ(Ar%()) As Double
    Dim p%
    For i = 1 To UBound(Ar)
        p = p + Ar(i)
    Next
    PJZ = p / UBound(Ar)
End Function

追问

我知道了 “”之间少了个空格