随机产生10～100包括（10和100）的10个正整数，求这10个数的和及这10个数的平均值、最大值、最小值。

Question

如题所述

Answer 1

Private Sub Form_Click()
Dim arr(1 To 10), max, min, sum, i
Cls
For i = 1 To 10
Randomize
arr(i) = Int(Rnd * 91) + 10
sum = sum + arr(i)
If i > 1 Then
If max < arr(i) Then max = arr(i)
If min > arr(i) Then min = arr(i)
Else
max = arr(i)
min = max
End If
Next
Print Join(arr)
Print "和："; sum, "平均数："; sum / 10, "最大值："; max, "最小值：", min
End Sub追问

额，确定这是从10到100中选出的？

追答

arr(i) = Int(Rnd * 91) + 10
这还不能确定？

Answer 2

Option Explicit

Private Sub Form_Click()
Dim myrnd(9) As Integer, s As String, i As Integer, _
ipingj As Integer, imax As Integer, imin As Integer
Randomize

For i = 0 To 9
myrnd(i) = Int(Rnd() * 91) + 10
Next i

imin = myrnd(0)

For i = 0 To 9
s = Str(myrnd(i)) & " " & s
ipingj = myrnd(i) + ipingj
If myrnd(i) < imin Then imin = myrnd(i)
If myrnd(i) > imax Then imax = myrnd(i)
Next i

Print s

ipingj = ipingj / 10

Print "平均数为:" & Str(ipingj)

Print "最大的数是:" & Str(imax)

Print "最小的数是:" & Str(imin)

Print

End Sub