numeri casuali interi

[jet]

ho bisogno di generare numeri casuali interi compresi in un intervallo da 1 a 90.

[jet]

così stampo 6 numeri da 0 a 1.

<%
Randomize
Dim i
for i=0 to 5
Response.Write(FormatNumber(Rnd(),2)&"
")
next
%>

[Corwin]

Randomize
numero = Int(Rnd*90) + 1

[jet]

così stampo 5 numeri uguali

<%
Randomize
numero = Int(Rnd*90) + 1
Dim i
for i=0 to 5
Response.Write(FormatNumber(numero,2)&"
")
next
%>

[Corwin]

<%
for i=0 to 5
Randomize
numero = Int(Rnd*90) + 1
Response.Write(FormatNumber(numero,2)&"
")
next
%>

[forzaferrari]

Questo ti stampa 5 numeri interi tra 0 e 90:


<%
for i=1 to 5
Randomize
numero = Int(Rnd*90) + 1
Response.Write(FormatNumber(numero,0)&"
")
next
%>

[forzaferrari]

Nell'esempio che ti ho dato può capitare che delle volte ti duplichi 2 numeri, ma è un caso raro