题目内容
（请给出正确答案）
[主观题]
编写程序，随机产生100个1~6的整数，统计每个数出现的次数。修改程序，使之产生1000个1~6的随机数，并统计每个数出现的次数。比较不同的结果并给出结论。
查看答案
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
更多“编写程序，随机产生100个1~6的整数，统计每个数出现的次数…”相关的问题
andomize语句的功能是（）。
A．产生个(0，1)之间的随机小数
B．产生一个[1，10]之间的随机整数
C．产生一个(-1，1)之间的随机小数
D．产生新的随机整数
A.Int(Rnd*21+30)
B.Int(Rnd*20+30)
C.Int(Rnd*50-Rnd$30)
D.Int(Rnd*30+50)
A.(int)(20+Math.random()*979)
B. 20+(int)(Math.random()*980)
C. (int)Math.random()*999
D. 20+(int)Math.random()*980
下面的程序的作用是利用随机函数产生10个100~300（不包含300） 之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。
Sub TOF（）
Randomize
Dim s As Double
Dim a（10） As Integer
For i=0 To 9
【10】
Next
For i=0 To 9
If 【11】 Then
Print a（i）
s=s + a（i）
【12】
Next i
Print "S="; s
End Sub
A、Int(Rnd()*27)+10
B、Int(Rnd()*28)+10
C、Int(Rnd()*27)+11
D、Int(Rnd()*28)+11
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【说明】
已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。
【程序代码】
Dim intA(1 To 10)As integer
Private Sub cmdGene_Click()
Dim intl As Integer
Randomize
For intl = 1 To 10
intA(intl) =(1)
Next intl
End Sub
Private Sub cmdSort_Click()
Dim intl, intJ,intMin, intTemp As Integer
For intl = 1 To 9
intMin = intA(intl)
For intJ=(2) To 10
If intA(intJ) ＜ intMin Then
Temp = intA(intJ)
intA(intJ)=(3)
intMin = intTemp
End If
Next intJ
(4)
(5)
For intl = 1 To 10
Print Str(intA(intl))+" ";
Next intl
Next lntl
End Sub
