利用VB如何设计下面问题:利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值.

问题描述:

利用VB如何设计下面问题:利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值.

Private Sub Form_click()Dim a(9)Dim m(),n() 'm()为偶数集,n()为奇数集Dim i,p,qDim sumDim avg1,avg2 'avg1为奇数平均数,avg2为偶数平均数Dim max,minFor i = 0 To 9Randomizea(i) = Int(Rnd() * 99 + 1)If a(i) ...