随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果

问题描述:

随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果
::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结果

我在电脑上试过的.在窗体上加一个command按钮,程序如下:Private Sub Command1_Click() Dim A(10) As Integer,i As Integer,Max As Integer,Min As Integer,s As Integer,Ave As Integer For i = 1 To 10 A(i) = Int...