title image


Smiley Na, solange du das keinen Mathematiker sehen lässt...
aber auch dann würde ich das nicht in eine Tabelle packen (ist doch viel zu lahm!), sondern jeweils errechnen:



Public Function RelativeWahrscheinlichkeit()

Dim S1 As Long, S2 As Long, S3 As Long, S4 As Long, S5 As Long, S6 As Long, I As Long

For S1 = 1 To 49

For S2 = S1 + 1 To 49

For S3 = S2 + 1 To 49

For S4 = S3 + 1 To 49

For S5 = S4 + 1 To 49

For S6 = S5 + 1 To 49

If DeineBedingung Then I = I + 1

Next S6

Next S5

Next S4

Next S3

Next S2

Next S1

RelativeWahrscheinlichkeit = I / 13983816

End Function



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: