Cita: Mensaje Original por indis
<%
Dim N (1 To 6) As Integer
Dim i As Integer, j As Integer
Dim A As Integer, OK As Boolean
Randomize Timer
N(1) = 1 + Int(Rnd * 49)
For i = 2 To 6
Do
A = 1 + Int(Rnd * 49)
OK = True
For j = 1 To i - 1
If N(j) = A Then
OK = False
Exit For
End If
Next j
Loop Until OK
N(i) = A
Next i
Cls
For i = 1 To 6
Print "N("; i; ")="; N(i)
Next i
%>
------------------------
lo que esta en negritas no es ASP...
