4 numeri casuali diversi

[alspam]

Devo generare 4 numeri casuali compresi tra 1 e 10.

I 4 numeri devono essere diversi.

Come posso fare ?

[deleted_c]

estrai
confronti con quelli già estratti
aggiungi tra gli estratti se non presente o riprovi

[alspam]

Ho provato a far cosi':

<%
Do while not a<>b<>c<>d
Randomize
a=Cint(Rnd*6)+1
b=Cint(Rnd*6)+1
c=Cint(Rnd*6)+1
d=Cint(Rnd*6)+1
loop
if a=b or b=c or a=c or a=d or b=d or c=d then
response.write "1 - 2 - 3 -4"
else
response.write a & " - " & b & " - " & c & " - " & d
end if
%>

[teorema55]

Argh....l'informatica grida vendetta........come devono essere i quattro numeri, fino a 10?

[teorema55]

dim myRandom(4)
randomize()
myRandom(0) = cint(rnd*9)+1
j = 1
do until j = 4
	myRandom(j) = cint(rnd*9)+1 	
        for k=0 to (j-1)
		    if myRandom(j) = myRandom(k) then
			j = j - 1
                        exit for
			end if			
		next	
	j = j + 1
loop

for h = 0 to 3
response.write(myRandom(h)&"
")
next

In questo modo non esce mai lo zero.