利用随机函数产生10个 100之间的整数（不包括100）,计算出他们的平均值,并找出最接近平均值的那个数.主要是最后一问

Private Sub Command1_Click() Dim a(9) As Integer, i As Integer, sum As Integer Dim average As Single, ans As Integer, cha As Single For i = 0 To 9 Randomize a(i) = Int((99 - 0 + 1) * Rnd + 0) Print a(i) sum = sum + a(i) Next i average = sum / 10 ans = a(0): cha = Abs(a(0) - average) For i = 1 To 9 If Abs(a(i) - average) < cha Then cha = Abs(a(i) - average) ans = a(i) End If Next i Print "平均值为：", average, "最接近平均值的那个数为：", ans End Sub