Excel VBA中的多次抛硬币

Sub CoinToss()
    Dim numTosses As Integer
    Dim numHeads As Integer
    Dim numTails As Integer
    Dim i As Integer
    
    numTosses = 100 ' 抛硬币的次数
    numHeads = 0 ' 正面朝上的次数
    numTails = 0 ' 反面朝上的次数
    
    ' 循环抛硬币
    For i = 1 To numTosses
        ' 生成随机数，0表示反面，1表示正面
        If Rnd() < 0.5 Then
            numTails = numTails + 1
        Else
            numHeads = numHeads + 1
        End If
    Next i
    
    ' 输出结果
    MsgBox "正面朝上的次数：" & numHeads & vbCrLf & "反面朝上的次数：" & numTails
End Sub