Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
$1 = 0 $2 = 0 $3 = 0 $4 = 0 $5 = 0 $6 = 0 $anzal = Int(InputBox("Würfeln","Wie oft soll gewürfelt werden")) ; Maximal 1000000 (1Mio.) Sonst dauert es ewig ^^ For $i = 1 To $anzal Switch Random(1,6,1) Case 1 $1 += 1 Case 2 $2 += 1 Case 3 $3 += 1 Case 4 $4 += 1 Case 5 $5 += 1 Case 6 $6 += 1 EndSwitch Next MsgBox(0,"","Die 1 kam "&$1&" Mal vor") MsgBox(0,"","Die 2 kam "&$2&" Mal vor") MsgBox(0,"","Die 3 kam "&$3&" Mal vor") MsgBox(0,"","Die 4 kam "&$4&" Mal vor") MsgBox(0,"","Die 5 kam "&$5&" Mal vor") MsgBox(0,"","Die 6 kam "&$6&" Mal vor")
Dauerhaft angemeldet bleiben?