VB随机数组统计

来源：百度知道 编辑：UC知道 时间：2024/06/30 07:21:29
6个黑球，6个白球，放进布袋里，看不见的；然后进布袋随机抽6个球出来，重复抽取10万次，请统计出黑白球各种搭配比例出现的次数
比例包括：
0：6
1：5
2：4
3：3
4：2
5：1
6：0
统计出在10万次内以上比例出现的次数；球数可任填，次数可任填，比例自然也就跟着变。

我的理解和楼上不太一样，我觉得统计次数越多各种比例越应该均等！
Private Sub Command1_Click()
Dim x, h0, h1, h2, h3, h4, h5, h6 As Integer
Cls
For i = 1 To 100000
Randomize
x = Int(Rnd * 7)'6个球中用一个0-6的随机数表示黑球的个数
Select Case x
Case 0
h0 = h0 + 1
Case 1
h1 = h1 + 1
Case 2
h2 = h2 + 1
Case 3
h3 = h3 + 1
Case 4
h4 = h4 + 1
Case 5
h5 = h5 + 1
Case 6
h6 = h6 + 1
End Select
Next
Print "黑白比0：6出现次数为："; h0
Print "黑白比1：5出现次数为："; h1
Print "黑白比2：4出现次数为："; h2
Print "黑白比3：3出现次数为："; h3
Print "黑白比4：2出现次数为："; h4
Print "黑白比5：1出现次数为："; h5
Print "黑白比6：0出现次数为："; h6
End Sub

好不容易做好了。建一个Command1，单击即可模拟。结果输出在窗体上。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Long, b As Integer, m(6) As Long

Private Sub Command1_Click()
Randomize
For i = 1 To 100000
For j = 1 To 6
Dim s As Integer
b = In