Option Explicit
Dim Cache, Anzahl, x
Dim Zahl(6)
dim MyArray()
 
' Hier wird die Anzahl der Würfe abgefragt:
' =========================================
   Anzahl = InputBox("Geben Sie die Anzahl der Würfe ein!")
 
' Wenn nichts eingegeben wird, dann werden 1000 Würfe angenommen:
' ================================================================
   If Anzahl = "" Then Anzahl = 1000
 
' Jetzt werden die Würfe simuliert:
' =================================
   For x = 0 To Anzahl - 1
    Randomize
    ' dimensionieren des Arrays:
    ' ==========================
    ' das Array wird bei jedem Schleifendurchlauf jeweils um
    ' ein Element erweitert. Durch die Anweisung Redim Preserve
    ' bleiben die bestehenden Elemente des Arrays erhalten
    ReDim Preserve MyArray(x)
    ' im neuen Element wird das Zufallsergebnis abgelegt
    MyArray(x) = Int(6 * Rnd) + 1
   Next
 
' Statistik / Ermittlung der Vorkommen:
' =====================================
' zunächst wird das Ergebnis-Array initialisiert
' (also die Elemente jeweils mit dem Wert 0 vorbelegt)
' sieht am Ende bei der Ausgabe der Statistik schöner aus.
' Das Array hat zwar 7 Elemente (Dimensionen 0 - 6), aber es
' werden nur die letzten sechs (Dimensionen 1 - 6) verwendet (s.u.)
   for x = lbound(Zahl) to ubound(Zahl) 
     zahl(x) = 0
   next
 
' Jetzt wird das Array mit den Zufallszahlen abgearbeitet
' und die Vorkommen im Ergebnis-Array gezählt:
' ============================================
   for x = lbound(MyArray) to ubound(MyArray)
     cache = myarray(x)
     zahl(cache) = zahl(cache) + 1
   next
 
   cache = "Anzahl der Würfe: " & Anzahl & vbcrlf 
 
' Am Ende wird die Ausgabe auf-/vorbereitet:
' ==========================================
   for x = 1 to 6
     cache = cache & x & ": " & zahl(x) & vbcrlf
   next
 
' ...und ausgegeben:
' ===============
   msgbox cache,,"Würfel-Statistik © 2006 by http://www.vbarchiv.net"

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell