title image


Smiley Re: Primzahlen Zufallsgenerator
Hi!



Private Function ZufallsPrimzahl(Optional BereichStart As Long, Optional BereichEnde As Long) As Long

If BereichStart = 0 Then BereichStart = 2

If BereichEnde = 0 Then BereichEnde = 99999999

Dim i As Long, j As Long, l As Long, primz As Boolean

Randomize

l = BereichEnde - (Rnd(1) * BereichEnde \ 2)

For i = l To 2 Step -1

primz = True

For j = 2 To Sqr(i)

If i Mod j = 0 Then

primz = False

Exit For

End If

Next j

If primz = True Then

ZufallsPrimzahl = i

Exit Function

End If

Next i

End Function







MfG

Mr. S ICQ #67858520http://www.developersmanual.com/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: