
25/07/2007, 12:13
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
Re: no repetir preguntas. . . Hola, a mi se me ocurre algo así:
Código:
<%
arreglo = array("¿Archivo editable de Flash?","¿Simbolo que se puede programar?","¿FPS de una linea de tiempo estandar?","¿Funcion para detener linea de tiempo?","¿Metacomando para separar un objeto?","¿Tecla de función para crear un nuevo fotograma clave?","¿Cuantos tipod se animaciones existen?")
limite = ubound(arreglo)
cuantos = 3
function pregazar(limite, cuantos)
tmp = ""
i = 1
randomize()
while i <= cuantos
aleatorio = int(rnd*limite)
if InStr(tmp, aleatorio) = 0 then
tmp = tmp & aleatorio & ","
i = i + 1
end if
wend
pregazar = split(left(tmp, len(tmp) - 1), ",")
end function
arr = pregazar(limite, cuantos)
response.write "<ol>"
for i = 0 to cuantos - 1
response.write "<li>" & arreglo(arr(i)) & "</li>"
next
response.write("</ol>")
%>
Saludos |