Tilfældige og FORSKELLIGE tal

du kan evt. lægge alle tal i en array og så "randomizere" array en

læs evt. her om hvorledes du kan "randomizere" en array

http://www.4guysfromrolla.com/webtech/110800-1.shtml

:)

Dim arPick(1 To 50) As Double
Dim arResult(1 To 50) As Integer
Dim i As Integer, j As Integer, k As Integer, dblPick As Double

'Nu laver vi et array af tilfældige tal
Randomize
For i = 1 To 50
  arPick(i) = Rnd()
Next i

'Nu Sorterer vi efter de tilfældige tal og bruger indekset som tal mellem 1 og 50
j = 1
While j <= 50
k = 0
dblPick = 0
  For i = 1 To 50
    If arPick(i) <> 0 And arPick(i) > dblPick Then
        dblPick = arPick(i)
        k = i 'gem indeks
    End If
  Next i
  arResult(j) = k
  arPick(k) = 0 'set element til 0
  j = j + 1
Wend

'nu skriver vi lige de 50 tilfældige tal
For i = 1 To 50
  Debug.Print arResult(i)
Next i



/Jennemaan

>jennemaan
Jeg får meddelelsen: Subscript out of range.
Det virker i Immediate vinduet, men hvis jeg skriver:
arrXX(arResult(i)) = "Et eller andet" tæller den en for højt. Jeg har prøvet med "- 1" forskellige steder, men det virker fortsat ikke.

check hvordan dit arrXX er indekseret (om det starter med 0 eller 1)

1
Helt præcist: arrXX(1 to 66)
Det kunne jeg jo lige så godt ha' sagt med det samme :-)

hvis du checker arResult i watchvinduet vil du kunne se at der kun forefindes værdier mellem 1 og 50. Derfor må fejlen ligge et andet sted. Har du prøvet i debug mode (der hvor fejlen opstår) at checke de enkelte værdier/arrays?

/Jennemaan

Jeg havde placeret arrXX() på den forkerte side af For...løkken

Så nu virker det

Tak for hjælpen