Ver Mensaje Individual
  #8 (permalink)  
Antiguo 26/05/2010, 11:10
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: ordenar varios números ascendentemente

Es que está usando vb script, no vb6.

Este sería el script para el ejemplo que has propuesto en primer lugar:

Código vb:
Ver original
  1. Dim Numeros(10), I, J
  2.     Dim Aux
  3.     Dim strMsg
  4.    
  5.     Numeros(0) = 23
  6.     Numeros(1) = 4
  7.     Numeros(2) = 27
  8.     Numeros(3) = 30
  9.     Numeros(4) = 1
  10.     Numeros(5) = 8
  11.     Numeros(6) = 13
  12.     Numeros(7) = 26
  13.     Numeros(8) = 32
  14.     Numeros(9) = 2
  15.  
  16.     For I = 0 To 10
  17.         For J = 0 To 10
  18.             If Numeros(I) < Numeros(J) Then
  19.                 Aux = Numeros(J)
  20.                 Numeros(J) = Numeros(I)
  21.                 Numeros(I) = Aux
  22.             End If
  23.         Next
  24.     Next
  25.    
  26.     For I = 0 To 10
  27.         strMsg = strMsg & Numeros(I) & ", "
  28.     Next
  29.    
  30.     MsgBox strMsg

Se escribe en un fichero de texto, se le dá extensión .vbs y si tienes activados los scripts, con hacer doble click sobre él se ejecuta.

Saludos

PD: Minette1988, dijiste que tenías que usar For y Next. Intenta usar el código de Lokoman.

PD2: Sobre lo del Dim, para scripts creo que no se puede definir el tipo de datos en la declaración, de modo que tú no copies nunca lo de As Integer o As String, etc..., al igual que en los Next no puedes incluir la variable Next I o Next J. Solo debes poner Next.

Tampoco es que tenga mucha idea sobre scripts.
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 26/05/2010 a las 11:18