[已解决]VBA用数组随机随机 有什么问题

laoau138

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


假设两个硬币随机200次   出现两个面都是正面，两个面都是反面，一正一反这3种情况各出现多少次


总得这个代码有不完善的地方，如何改正啊


Sub 随机模拟有什么问题()
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
Next

For i = 1 To 200

   If a(i) = 1 Then
    x = x + 1
   ElseIf a(i) = 2 Then
   y = y + 1
   ElseIf a(i) = 3 Then
    z = z + 1
   End If
Next

Debug.Print "两个正面出现:" & x & "次."
Debug.Print "两个反面出现:" & y & "次."
Debug.Print "一正一反出现:" & z & "次."
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2017-6-26 15:54

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

复制代码

跳转到最佳答案楼层

大灰狼1976

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

复制代码

grf1973

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

复制代码

grf1973

双正:双反:正反 大约为1:1:2

grf1973

也可以
a = Int(Rnd * 4) + 1
当a=1时x=x+1
当a=2时y=y+1
else  z=z+1

大灰狼1976

一正一反的概率确实是其他情况的两倍。
随便重做了一个，没按你的格式来，注意结果中间是一正一反。

1. Sub aaa()
   
2. Dim n&, arr(0 To 2, 1 To 1), i&, x As Byte, y As Byte
   
3. Randomize
   
4. n = InputBox("")
   
5. For i = 1 To n
   
6.   x = Int(Rnd() * 2)
   
7.   y = Int(Rnd() * 2)
   
8.   arr(x + y, 1) = arr(x + y, 1) + 1
   
9. Next i
   
10. [a1:a3] = arr
    
11. End Sub

复制代码

laoau138

grf1973 发表于 2017-6-26 15:54

看起来，只有你这个最合理