Dim ev() As Integer = {1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1}
        Dim throws(10) As Integer
 
        For i = 1 To 1000000
            throws(Zufallszahl() - 2) += 1
        Next
 
        For i = 0 To 10
            Dim pc As Double = throws(i) / 10000
 
            Dim ex As Double = ev(i) * 100 / 36
 
            Dim pcd As Double = Math.Abs(pc - ex) * 100 / ex
 
            Debug.WriteLine((i + 2).ToString() & ": " & pc.ToString() & " " & _
              ex.ToString() & " " & pcd.ToString())
        Next

2: 3,264 2,77777777777778 17,504
3: 6,6507 5,55555555555556 19,7126
4: 9,9157 8,33333333333333 18,9884
5: 13,1999 11,1111111111111 18,7991
6: 16,5594 13,8888888888889 19,22768
7: 16,5199 16,6666666666667 0,880600000000008
8: 13,2419 13,8888888888889 4,65832000000001
9: 9,8997 11,1111111111111 10,9027
10: 6,6308 8,33333333333333 20,4304
11: 3,2883 5,55555555555556 40,8106
12: 0,8297 2,77777777777778 70,1308

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist