用VBA数组随机模拟硬币正反面出现次数

laoau128

用VBA数组随机模拟硬币正反面出现次数


用VBA随机函数模拟硬币，出现两个面都是正面，两个面都是反面，一正一反这3种情况各出现多少次

DevilW

给你个思路吧，两个随机数，0-0.5为正面，0.5-1反面，然后比较
或者两个随机数剩10万取整，以奇偶数判别正反面

DevilW

有空测试了下，两套方案各模拟1亿次结果相差才几百次
全正面、全反面、正反面 的模拟结果比例是 1：1：2

maditate

1. Sub test()
   
2.     Dim arr(1 To 10000000), brr(0 To 2)
   
3.     For h = 1 To 10000000
   
4.         Randomize
   
5.         arr(h) = Int((1 - 0 + 1) * Rnd + 0)
   
6.     Next h
   
7.     For h = 1 To 10000000 Step 2
   
8.          s = arr(h) + arr(h + 1)
   
9.          brr(s) = brr(s) + 1
   
10.     Next h
    
11.     For h = 0 To 2
    
12.         a = a + brr(h)
    
13.         Cells(h + 2, 2) = brr(h)
    
14.     Next h
    
15.     Cells(1, 1) = "面朝向"
    
16.     Cells(1, 2) = "出现次数"
    
17.     Cells(2, 1) = "全正面"
    
18.     Cells(3, 1) = "混合"
    
19.     Cells(4, 1) = "全反面"
    
20. End Sub
    

复制代码