Sub keisan()
    Dim hoshi1 As Integer
    Dim hoshi2 As Integer
    Dim hoshi3 As Integer
    Dim hoshi4 As Integer
    Dim hoshi5 As Integer
    Dim ritu12 As Double
    Dim ritu23 As Double
    Dim ritu34 As Double
    Dim ritu56 As Double
    Dim seiko4 As Double
    Dim seiko5 As Double
    Dim ransu As Double
    Dim i, j As Integer
    
    '確率
    ritu12 = 62.1
    ritu23 = 31.9
    ritu34 = 16
    ritu45 = 6.4
    
    '成功回数
    seiko4 = 0
    seiko5 = 0
    seiko42mai = 0
    
    For j = 0 To 9
    For i = 0 To 9999
    
    '初期カード枚数
    hoshi1 = 56
    hoshi2 = 0
    hoshi3 = 0
    hoshi4 = 0
    hoshi5 = 0
    
    While hoshi1 > 1
        '乱数生成
        ransu = 100 * Rnd
        If ritu12 > ransu Then
            hoshi2 = hoshi2 + 1
            hoshi1 = hoshi1 - 2
        Else
            hoshi1 = hoshi1 - 1
        End If
    Wend
    
    While hoshi2 > 1
        '乱数生成
        ransu = 100 * Rnd
        If ritu23 > ransu Then
            hoshi3 = hoshi3 + 1
            hoshi2 = hoshi2 - 2
        Else
            hoshi2 = hoshi2 - 1
        End If
    Wend

    While hoshi3 > 1
        '乱数生成
        ransu = 100 * Rnd
        If ritu34 > ransu Then
            hoshi4 = hoshi4 + 1
            hoshi3 = hoshi3 - 2
        Else
            hoshi3 = hoshi3 - 1
        End If
    Wend
    
    While hoshi4 > 1
        seiko42mai = seiko42mai + 1
        '乱数生成
        ransu = 100 * Rnd
        If ritu45 > ransu Then
            hoshi5 = hoshi5 + 1
            hoshi4 = hoshi4 - 2
        Else
            hoshi4 = hoshi4 - 1
        End If
    Wend
    
    '成功回数を更新
    If hoshi4 > 0 Then
        seiko4 = seiko4 + 1
    End If
    
    If hoshi5 > 0 Then
        seiko5 = seiko5 + 1
    End If
    
    Next i
    Next j
    MsgBox ("☆4の成功回数は" & seiko4)
    MsgBox ("☆5の成功回数は" & seiko5)
End Sub