作业帮 > 数学 > 作业

VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个?

来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/11/10 18:41:00
VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个?
VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个?
Private Sub Command1_Click()
Dim a(10 To 99) As Integer
For i = 1 To 1000
x = Int(90 * Rnd()) + 10 ‘产生10~99的随机数
a(x) = a(x) + 1 ’统计此数个数
Next i
Max = -1
For i = 10 To 99
If a(i) > Max Then Max = a(i) ‘找出个数最多的数
Next i
For i = 10 To 99
If a(i) = Max Then Print i; ’输出所有个数为Max的随机数
Next i
Print
End Su