VBA用数组随机随机 有什么问题

maditate

记得以前提出过此问题，我还为此帮他写过代码。当时不是200次，好象是上千上万次的。

maditate

用VBA数组随机模拟硬币正反面出现次数
http://club.excelhome.net/thread-1343542-1-1.html
(出处: ExcelHome技术论坛)

yayahzmeng

还是忍不住手痒：

1. Sub tst()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For i = 1 To 200
   
4. Select Case Int(Rnd * 2) & Int(Rnd * 2)
   
5. Case "00": ss = "正正"
   
6. Case "01": ss = "正反"
   
7. Case "10": ss = "正反"
   
8. Case "11": ss = "反反"
   
9. End Select
   
10. d(ss) = d(ss) + 1
    
11. Next
    
12. [a1].Resize(3, 2) = Application.Transpose(Array(d.keys, d.items))
    
13. End Sub

复制代码

下次发帖，来点真正意义上的实际编写代码时遇到的困难，不要脑壳一冒泡，就考考大家，还摆出一副老师改作业的范！

香川群子

1. Sub 随机模拟_200()
   
2.     Dim a&(2), i&, m&
   
3.     Randomize
   
4.    
   
5.     m = 200
   
6.     Debug.Print vbCr; "模拟"; m; "次结果"
   
7.    
   
8.     For i = 0 To m - 1
   
9.         If Rnd < 0.5 Then '正
   
10.             If Rnd < 0.5 Then '正正
    
11.                 a(0) = a(0) + 1
    
12.             Else '正反
    
13.                 a(1) = a(1) + 1
    
14.             End If
    
15.         Else '反
    
16.             If Rnd < 0.5 Then '反正
    
17.                 a(1) = a(1) + 1
    
18.             Else '反反
    
19.                 a(2) = a(2) + 1
    
20.             End If
    
21.         End If
    
22.     Next
    
23.    
    
24.     Debug.Print "两个正面出现:"; a(0); "次."; Format(a(0) / i, "0.000%")
    
25.     Debug.Print "两个反面出现:"; a(1); "次."; Format(a(1) / i, "0.000%")
    
26.     Debug.Print "一正一反出现:"; a(2); "次."; Format(a(2) / i, "0.000%")
    
27. End Sub

复制代码

香川群子

yayahzmeng 发表于 2017-6-26 19:56
还是忍不住手痒：下次发帖，来点真正意义上的实际编写代码时遇到的困难，不要脑壳一冒泡，就考考大家，还摆 ...

为啥要用字典？没有字典不能活了！哈哈

香川群子

yayahzmeng 发表于 2017-6-26 19:56
还是忍不住手痒：下次发帖，来点真正意义上的实际编写代码时遇到的困难，不要脑壳一冒泡，就考考大家，还摆 ...

你的代码这样改：

1. Sub test()
   
2.     Dim a&(2)
   
3.     For i = 1 To 200
   
4.         t = Int(Rnd * 2) + Int(Rnd * 2)
   
5.         a(t) = a(t) + 1
   
6.     Next
   
7.     [a1].Resize(, 3) = Array("反反", "反正/正反", "正正")
   
8.     [a2].Resize(, 3) = a
   
9. End Sub

复制代码

2个硬币的随机结果 0/1 组合之和只有3种： 0/1/2
1. 正+正 = 1 + 1 =2
2. 正+反 = 1 + 0 =1
3. 反+正 = 0 + 1 =1
4. 反+反 = 0 + 0 =0

以上。

yayahzmeng

不过，回到本次发帖，还是很好的，既摆出了自己的代码，提出了不完善，也要求帮助修改，只是忘记了原来已经得到过帮助。

那就指指问题吧：
Dim a(1 To 200) As Integer      '仅仅只定义了个一位数组
Dim x%, y%, z%, i%
Randomize
Debug.Print "模拟200次结果"
For i = 1 To 200
a(i) = Int(Rnd * 3) + 1            '此处实际只描述了抛1次的概率，且a(i)=1 or 2 or 3 的概率分别占33.33333%，
                                             '与单个硬币要么正要么反的概率完全不同
                                             '你抛硬币能 正、反、正反 各占1/3，那你就是神人了
                                             '更不是同时抛2个硬币的概率
                                             '此处错了，后面循环计数就毫无意义
Next

yayahzmeng

对数组的应用还没到女侠你的出神入化的地步，思维有点僵，仅仅感觉代码会更简短些，哈哈哈

比如本例，和你一样，我也不记下产生的硬币结果数组，而是直接判断每次结果并计数，但我本能地想到用字典，而你直接用个变量就解决了（说道这，发现你代码中也不需要dim a&(2)哈哈!）

qingc0221

照原来的改

1. Sub 随机模拟有什么问题()
   
2. Dim a(1 To 200, 1 To 2) As Integer
   
3. Dim x%, y%, z%, i%
   
4. Randomize
   
5. Debug.Print "模拟200次结果"
   
6.     For i = 1 To 200
   
7.         a(i, 1) = Int(Rnd * 2) + 1
   
8.         a(i, 2) = Int(Rnd * 2) + 1
   
9.         If a(i, 1) + a(i, 2) = 4 Then '正
   
10.             x = x + 1
    
11.         ElseIf a(i, 1) + a(i, 2) = 2 Then   '反
    
12.             y = y + 1
    
13.         ElseIf a(i, 1) + a(i, 2) = 3 Then   '一正一反
    
14.             z = z + 1
    
15.         End If
    
16.     Next i
    
17. Debug.Print "两个正面出现:" & x & "次."
    
18. Debug.Print "两个反面出现:" & y & "次."
    
19. Debug.Print "一正一反出现:" & z & "次."
    
20. End Sub
    

复制代码

yayahzmeng

香川群子 发表于 2017-6-26 20:27
你的代码这样改：

哎，女侠这一改，赏心悦目啊，两者一加，直接去掉每步的if或case和字典，化腐朽为神奇，效率提高进10倍，太棒了！