Dim a(99), xis(99) As Double
Dim b, he, pj, ee As Double
Private Sub Form_Click()
For pij = 1 To b - 1
he = he + a(pij)
Next pij
pj = he / (b - 1)
For pij = 1 To b - 1
If pj >= a(pij) Then
xis(pij) = pj - a(pij)
Else
xis(pij) = a(pij) - pj
End If
Next pij
For pij = 1 To b - 1
If xis(pij) < xis(pij - 1) Then
ee = a(pij)
End If
Next pij
For ese = 1 To b - 1
Print a(ese)
Next ese
Print "平均数位:" & pj & "最接近平均数的为:" & ee
End Sub
Private Sub Form_Load()
a(0) = 1
Do While a(b) <> 0
b = b + 1
a(b) = Val(InputBox("输入除0以外的任意数字", "输入0或者取消结束", "0"))
Loop
End Sub
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。