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

laoau128

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

laoau128

谁能如何做

yeminqiang

过来膜拜一下

yayahzmeng

骑摩拜来膜拜：
无论你娃抛多少次，都不可能出现两个面都是正面，也不可能出现两个面都是反面！
如果出现了，一定是铸币厂搞错了，你也就发财了

香川群子

yayahzmeng 发表于 2017-6-26 16:06
骑摩拜来膜拜：
无论你娃抛多少次，都不可能出现两个面都是正面，也不可能出现两个面都是反面！
如果出现 ...

应该是，每次抛2个硬币得到一种结果，有4种情形：
正正、正反、反正、反反。

楼主要求进行200次后统计。并把 正反 和 反正 算作一起。

qingc0221

每回合抛两次,每次得出两个数据,应该定义数组a(1 to 200,1 to 2)来存放结果

laoau128

香川群子 发表于 2017-6-26 17:05
应该是，每次抛2个硬币得到一种结果，有4种情形：
正正、正反、反正、反反。

你好聪明啊，可惜没有写代码

laoau128

qingc0221 发表于 2017-6-26 17:22
每回合抛两次,每次得出两个数据,应该定义数组a(1 to 200,1 to 2)来存放结果

具体一点要如何写

qingc0221

只是加一列数字,然后改一下判断条件而已,其他都不用变,自己写一下嘛

yayahzmeng

都已经高级了，这点还不是小CASE？