VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值

Private Sub Form_click()Dim n(1 To 20) As IntegerDim i,j,ave,tempRandomizeFor i = 1 To 20n(i) = Int((51 * Rnd) + 50)Print n(i)Next iFor j = 1 To 19For i = j + 1 To 20If n(i) >= n(j) Thentemp = n(i)n(i) = n(j)n(j) = tempEnd IfNextNextave = 0For i = 1 To 20ave = ave + n(i)Nextave = ave / 20Print "最大值为："; n(1)Print "最小值为："; n(20)Print "平均值为："; aveEnd Su