1、 随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

Answer 1

你的问题我们无法正确的给出你答案，请去别的网站上查询。给你带来的不便请谅解..

Answer 2

Private Sub Command1_Click()
Dim a(9)
Sum = 0
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 100) + 1
Print a(i);
Sum = Sum + a(i)
Next i
Min = a(0)
Max = a(0)
For i = 1 To 9
If a(i) < Min Then
Min = a(i)
End If
If a(i) > Max Then
Max = a(i)
End If
Next i
Print
Print "最大值" & Max
Print "最小值" & Min
Print "和" & Sum
print "平均值" & sum/10
End Sub