VB用过程计算N个数据的平均数

vbyou127

VB用过程计算N个数据的平均数

用inputbox输入n个数，然后求平均数，用过程实现

vbyou127

Private Sub Command1_Click()
  n = CInt(InputBox("请输入数据的个数N＝？"))
  Dim a()
  ReDim a(n)
  Print "输入的 " & n & " 个数据是:"
  For i = 1 To n
    a(i) = Val(InputBox("请输入第" & i & "个数据:"))
    Print a(i);
  Next i
  Print
  aver a(), n, av
  Print n & "个数据的平均值＝" & av
End Sub

Sub aver(a(), n, av)
  s = 0
  For i = 1 To n
    s = s + a(i)
  Next i
  av = s / n
End Sub