vb程序设计——用数据保存随机产生的10个介于20~50之间的整数,求最大数,最小数和平均数然后将10个随机数和最大数,最小数以及平均数显示在窗体上
网友回答
Sub form_click()
Dim i(10)
For n = 1 To 10
i(n) = Int(Rnd * 30 + 20)
Nextmaxnum = 20
For n = 1 To 10
If i(n) > maxnum Then maxnum = i(n)
Nextminnum = 50
For n = 1 To 10
If i(n) Nextsumnum = 0
For n = 1 To 10
sumnum = sumnum + i(n)
NextClsPrint maxnum
Print minnum
Print sumnum / 10
End Sub