3 tilfældige tal...?

Brug Rnd()

To sekunder ...

Eller rettere Randomize (VBScript: http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vbstoc.htm) ..

Læg det i en løkke hvor du f.eks. gemmer tallene i en array ..

Sig til hvis du skal ha\' mere hjælp

Ikke testet:  Du kan evt fjerne Random_Number_Min og Random_Number_Max. Så bliver det Random_Number1 = Int((5 * Rnd). Det skal så også ændre for de 2 andre:

Randomize
Random_Number_Min = 1
Random_Number_Max = 5
Random_Number1 = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
DO
  Random_Number2 = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
Loop While (Random_Number1 = Random_Number2)
DO
  Random_Number3 = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
Loop While (Random_Number1 = Random_Number3) OR (Random_Number2 = Random_Number3)

Tak, virker perfekt.

/Buzz