早教吧 育儿知识 作业答案 考试题库 百科 知识分享

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