Was stimmt an der Wahrscheinlichkeitsrg. nicht?
13.02.2004 17:56:15
Markus H.
ich habe in Tabelle2!A1 =Zufallszahl()
in B1 habe ich =WENN(LINKS(A1;3)>"0,5";1;0)
dann hab ich dieses Makro
was in Tabelle1 läuft
Sub er()
Worksheets("Tabelle2").Range("A5") = "Startzeit: " & Time
For Zeile = 1 To 65536
For Spalte = 1 To 256
Cells(Zeile, Spalte) = Worksheets("Tabelle2").Range("B1")
Next
ActiveWindow.SmallScroll Down:=1
Next
Worksheets("Tabelle2").Range("A6") = "Endzeit: " & Time
End Sub
als ergebnis bekam ich das:
Anzahl 0en -->10065382
Anzahl 1en -->6711834
und das kann doch nicht sein oder?
Anzeige