Question

VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.

Answer 1

Dim sum As Integer

Dim cun As Double

sum =0

For i = 0 To 29

Randomize

sum = sum + Int((500 - 100) * Rnd + 100)

Next

cun = sum / 30

print sum

print cun