'サイコロの確率　実教P109
Sub saikoro()
    Dim Kaisu(7), Kakuritsu(7) As Long
    Dim kazu, deme, i As Long
    kazu = 1000
    Kaisu(1) = 0
    Kaisu(2) = 0
    Kaisu(3) = 0
    Kaisu(4) = 0
    Kaisu(5) = 0
    Kaisu(6) = 0
    Kakuritsu(1) = 0
    Kakuritsu(2) = 0
    Kakuritsu(3) = 0
    Kakuritsu(4) = 0
    Kakuritsu(5) = 0
    Kakuritsu(6) = 0
    For i = 1 To kazu
        deme = Int(Rnd * 6) + 1                 'deme = 乱数(1,6)
        'Kaisu(オ) = Kaisu(オ) + 1
    Next i
    For i = 1 To 6
        'Kakuritsu(i) = Int(  カ  * 100)
    Next i
    'For i = 1 To 6
        MsgBox Kaisu(i)                               '表示する("各目の回数：",Kaisu
        MsgBox Kakuritsu(i)                         '表示する("各目の回数：",Kakuritsu
    'Next i
End Sub