用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
问题描述:
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
答
Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()ClsScale (0,0)-(100,100)For u = 1 To 20a(u) = Int(Rnd * 50) + 50b = b + a(u)Print a(u)Next uc = b / 20For i = 1 To 19For j = i + 1 To 20If a(i) > a...