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
追问我知道了 “”之间少了个空格