ordenar varios números ascendentemente

[minette1988]

Hola, quiero hacer un script en Visual Basic que me ordene varios números usando el bucle for, pero no se cómo hacerlo. ¿Pueden ayudarme?. Gracias.

[lokoman]

Hola!!
Usando el metodo de la burbuja, mira el codigo:

Código vb:

Private Sub Command1_Click()
    Dim Numeros(10) As Integer, I As Integer, J As Integer
    Dim Aux As Integer
    Dim strMsg As String
    
    Numeros(0) = 23
    Numeros(1) = 4
    Numeros(2) = 27
    Numeros(3) = 30
    Numeros(4) = 1
    Numeros(5) = 8
    Numeros(6) = 13
    Numeros(7) = 26
    Numeros(8) = 32
    Numeros(9) = 2
 
    For I = 0 To 10
        For J = 0 To 10
            If Numeros(I) < Numeros(J) Then
                Aux = Numeros(J)
                Numeros(J) = Numeros(I)
                Numeros(I) = Aux
            End If
        Next J
    Next I
    
    For I = 0 To 10
        strMsg = strMsg & Numeros(I) & ", "
    Next I
    
    MsgBox strMsg
End Sub
 

Nos cuentas!!

[minette1988]

Hola, una duda: Si cuando declaro las variables no pongo el tipo de dato, por ejemplo, dim = j As integer y sólo pongo dim = j ¿funcionaría igual?. Otra pregunta ¿qué hace la variable StrMsg?
Estas dudas no las puedo probar porque no tengo windows, por eso recurro a vuestro foro. Sois de gran ayuda. Gracias.

[minette1988]

Esta forma ¿sería válida?,¿funcionaría correctamente?, el ejercicio me pide introducir los tres números por teclado:

Código vb:

a = InputBox("Introduce Numero 1:")
b = InputBox("Introduce Numero 2:")
c = InputBox("Introduce Numero 3:")
 
Option Explicit
Dim a, b, c
var = InputBox("Introduce tre números:")
MsgBox(a, b, c)
If (( a > b) && (a > c)) Then
    If (b > c)
     MsgBox(c, b, a)
    Else
         MsgBox(b, c, a)
End If
If (( b > a) && (b > c)) Then
      If (a > c)
         MsgBox(c, a, b)
      Else
           MsgBox(a, c, b)
End If
If (( c > a) && ( c > b)) Then
     If ( a > b)
        MsgBox(b, a, c)
     Else
          MsgBox(a, b, c)
End If
 

[minette1988]

Las tres variables de arriba irían en la linea 7 es que me he equivocado al copiar y pegar, perdonad.

[minette1988]

Muestro el script que he hecho haber si es válido, ignorad lo último que he publicado fijaros, por favor, en este último código haber si es correcto:

Código vb:

Option Explicit
Dim a, b, c
 
a = InputBox("Introduce Numero 1:")
b = InputBox("Introduce Numero 2:")
c = InputBox("Introduce Numero 3:")
 
If (( a > b) && (a > c)) Then
    If (b > c)
     MsgBox(c, b, a)
    Else
         MsgBox(b, c, a)
End If
If (( b > a) && (b > c)) Then
      If (a > c)
         MsgBox(c, a, b)
      Else
           MsgBox(a, c, b)
End If
If (( c > a) && ( c > b)) Then
     If ( a > b)
        MsgBox(b, a, c)
     Else
          MsgBox(a, b, c)
End If
 

[lokoman]

Hola!
En tu codigo tienes varios errores, creo que estas usando sintaxis de lenguaje C:

Código vb:

dim = j As integer 'la declaracion es incorrecta, el = no va
If (( a > b) && (a > c)) Then 'los && dan error
MsgBox(c, b, a) 'si usas los (..) debes asignar el msgbox
 

La variable "StrMsg" almacena los numeros organizados y los muestra en un msgbox.

Este es el mismo codigo que te puse pero introduciendo 3 numeros:

Código vb:

Private Sub Command1_Click()
    Dim Numeros(3) As Integer, I As Integer, J As Integer
    Dim Aux As Integer
    Dim strMsg As String
 
    Numeros(0) = InputBox("Introduce Numero 1:")
    Numeros(1) = InputBox("Introduce Numero 2:")
    Numeros(2) = InputBox("Introduce Numero 3:")
 
    For I = 0 To 2
        For J = 0 To 2
            If Numeros(I) < Numeros(J) Then
                Aux = Numeros(J)
                Numeros(J) = Numeros(I)
                Numeros(I) = Aux
            End If
        Next J
    Next I
    
    For I = 0 To 2
        strMsg = strMsg & Numeros(I) & ", "
    Next I
    
    MsgBox strMsg
End Sub
 

Si lo que quieres es el mayor de 3 numeros:

Código vb:

Private Sub Command3_Click()
    Dim A As Integer, B As Integer, C As Integer
    
    A = InputBox("Introduce Numero 1:")
    B = InputBox("Introduce Numero 2:")
    C = InputBox("Introduce Numero 3:")
    If (A > B) Then
        If (A > C) Then
            MsgBox "El mayor es: " & A
        Else
            If (C > B) Then MsgBox "El mayor es: " & C
        End If
    Else
        If (B > C) Then
            MsgBox "El mayor es: " & B
        Else
            If (C > A) Then MsgBox "El mayor es: " & C
        End If
    End If
End Sub
 

[pkj]

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:

Dim Numeros(10), I, J
    Dim Aux 
    Dim strMsg 
    
    Numeros(0) = 23
    Numeros(1) = 4
    Numeros(2) = 27
    Numeros(3) = 30
    Numeros(4) = 1
    Numeros(5) = 8
    Numeros(6) = 13
    Numeros(7) = 26
    Numeros(8) = 32
    Numeros(9) = 2
 
    For I = 0 To 10
        For J = 0 To 10
            If Numeros(I) < Numeros(J) Then
                Aux = Numeros(J)
                Numeros(J) = Numeros(I)
                Numeros(I) = Aux
            End If
        Next
    Next
    
    For I = 0 To 10
        strMsg = strMsg & Numeros(I) & ", "
    Next
    
    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.