VB题输入n后,再输入n个数,按照下列公式计算输入n后,再输入n个数a1,a2,a3.,按照下列公式计算s的值并显示.s=（a1+a2+.an)/n

Question

VB题输入n后,再输入n个数,按照下列公式计算
输入n后,再输入n个数a1,a2,a3.,按照下列公式计算s的值并显示.
s=（a1+a2+.an)/n

Answer 1

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a() As Integer
Dim sum As Integer
n = InputBox("请输入多少个数","第一步","10")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("请输入第" & i & "个数","第二步","10")
sum = sum + a(i)
Next
Debug.Print sum / n
End Sub