VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个?
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/11/10 18:41:00
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
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
End Su
VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个?
JAVA问题:随机产生50个10以内(0-9)的整数,统计每个数出现的次数,以及出现次数最多的数?
VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字
vb问题利用随机函数产生80个10~99之间的随机整数,
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
关于Java的HashMap使用.想产生40个随机数,从10-50,然后分别统计各个数字出现的次数.
VB编程产生100个[10,99]的随机数
编程 C语言 随机产生十个数 并统计其中各个数字出现的次数
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数