Question

inputbox()输入10个数存于数组a中输出数组元素求这10个数的总和、平均值最大值最小值并将？

Answer 1

题目明显没写完整啊，为什么不仔细看一下呢？

下面的程序是：

inputbox()输入10个数存于数组a中输出数组元素求这10个数的总和、平均值最大值最小值并将它们输出。

Private Sub Command1_Click()

  Dim a(10) As Double, s, av, max, min

  max = -99999

  min = 99999

  For i = 1 To 10

    a(i) = Val(InputBox("请输入第" & i & "个数："))

    s = s + a(i)

    If a(i) > max Then max = a(i)

    If a(i) < min Then min = a(i)

  Next i

  Print "输入的10个数是："

  For i = 1 To 10

    Print a(i);

  Next i

  Print

  Print "平均值="; s / 10

  Print "最大值="; max

  Print "最小值="; min

End Sub