Du skal være opmærksom på at der i rækken af tal kan være 2 eller flere ens tal, så derfor generer flere tale end du skal bruge og gem dem i en fil. denne kalder du ind igen, og gemmen 1. tal(f.ex 8) i et dimA som dit første tal(i dimA(1)), samtidig sætter du et andet dimarealB af hvor du sætte tal 8 som brugt. Når du er nået til dit dimA(80) er fundet har du 80 forskellige tal i den fundne rækkefølge i dimA
Din loop skal fortsætte så længe det tal traektal() har fundet allerede er brugt tidligere. Hvis tallet er brugt tidligere, er udtrukketTal(tallet) sandt. Og så skal der trækkes et nyt, indtil at udtrukketTal(tallet) ikke mere er sandt.
Randomize (Timer) Dim udtrukketTal(99) As Boolean Dim tallet as Integer
Function traektal() traektal = Int((storsteTal * Rnd) + mindsteTal) End Function
For j = 1 To 80 tallet = traektal() While (udtrukketTal(tallet) = True) ' træk et nyt tal ind til array udtrukketTal ikke er True tallet = traektal() Wend
udtrukketTal(tallet) = True ' gør et eller andet med tallene bagefter via array udtrukketTal Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
