随机产生10个30～100（包括30,100）的正整数,求最大值、最小值和均值,并显示整个数组的值和结果.

Dim x(10) As Integer, i As Integer, k As Integer
For i = 1 To 10
x [i] = 30 + Int(70 * Rnd(1) + 0.5)
Next
k = 0
For i = 1 To 10
If x(i) > k Then k = x(i)
Next
Print k
End