title image


Smiley Re: Problem mit Zufallszahlen, bitte um Hilfe
Hallo Serge,kleiner Denksport vor dem Frühstück...: Const anzahl = 60 Dim zeiger(anzahl) As Integer, ergebnis(anzahl) As Integer Dim i As Integer, j As Integer, ziehung As Integer Randomize For i = 1 To anzahl zeiger(i) = i Next For ziehung = 1 To anzahl j = Rnd * (anzahl - ziehung) If j = 0 Then j = 1 ergebnis(ziehung) = zeiger(j) For i = j To anzahl - ziehung zeiger(i) = zeiger(i + 1) Next Debug.Print ergebnis(ziehung) NextGruß K.K

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: