Zonder herhaling...

Tien vragen kiezen uit een verzameling van meer dan 150 vragen, zonder herhaling? Dat is dan ook weer opgelost:

function KenOpgavenToe(UserID)
   dim vraagnummer, opgavenummer, error
   FOR vraagnummer=1 to 10
      opgavenummer=GeefOpgaveRandom(8376)
      WHILE StaatInDeLijst(UserID, opgavenummer)
         opgavenummer=GeefOpgaveRandom(8376)
      WEND 
      error=ZetOpdrachtInDatabase(UserID, vraagnummer, opgavenummer)
   NEXT
end function

't Is altijd belangrijk dat je zorgt dat het 'eindig' is, zullen we maar zeggen...:-)