> 其他 >
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
人气:347 ℃ 时间:2019-11-07 21:41:18
解答
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...
推荐
猜你喜欢
© 2026 79432.Com All Rights Reserved.
电脑版|手机版