请问这个‘VB程序’怎么编写:编写程序,利用随机函数模拟硬币的结果,用两个硬币一起投,统计“两个正面,两个反面,一正一反”三种情况出现的次数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 20:07:47

请问这个‘VB程序’怎么编写:编写程序,利用随机函数模拟硬币的结果,用两个硬币一起投,统计“两个正面,两个反面,一正一反”三种情况出现的次数
请问这个‘VB程序’怎么编写:编写程序,利用随机函数模拟硬币的结果,用两个硬币一起投,
统计“两个正面,两个反面,一正一反”三种情况出现的次数

请问这个‘VB程序’怎么编写:编写程序,利用随机函数模拟硬币的结果,用两个硬币一起投,统计“两个正面,两个反面,一正一反”三种情况出现的次数

Private Sub Command1_Click()

    Dim arr(2) As Integer, i, a, b

    Randomize

    For i = 1 To 1000

        a = Int(Rnd * 2): b = Int(Rnd * 2)

        arr(a+b) = arr(a+b) + 1

    Next

    MsgBox "全正:" & arr(2) & vbNewLine & "全反:" & arr(0) & vbNewLine & "正反:" & arr(1)

End Sub