作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/07/16 04:58:03
VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
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