Question

VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值.

Answer 1

Dim sum,max,minSub aaa(ByRef sum,ByRef max,ByRef min)min = 100 ' 给最小值先给一个比较大的值For i = 1 To 100s = Int(Rnd(1) * (67 - 0)) + 0 's为算出0-67之间的随机数sum = sum + sIf s > max Then max = sIf...