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

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/01 12:55:16
请问这个‘VB程序’怎么编写:编写程序,利用随机函数模拟硬币的结果,用两个硬币一起投,统计“两个正面,两个反面,一正一反”三种情况出现的次数
xR[OA+ Jӝ҅D&&J _l^].irQ}PTH&V '#%44/s9ߙ`Fsp(,R_ƷUh >E/+p,~J9\ގ;Aq4:|L6U>_KErߤw)LNFYq%|2,huȄ;eE󯌜h]7=xL a@Se2ޓsX7hKmz-1Qk"Qk@ĴrX 8 ⵓX;6&2|Ϩ:.ٟ@2b`/J{cF[f %d?i+)O

请问这个‘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