Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: minette1988 en 24 Mayo 2010, 11:40 am

Título: ordenar tres numeros de teclado ascendentemente
Publicado por: minette1988 en 24 Mayo 2010, 11:40 am

Hola, el siguiente script en Visual Basic ordena tres números tomados de teclado y quería saber si está bien:

Código

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

Título: Re: ordenar tres numeros de teclado ascendentemente
Publicado por: Shell Root en 24 Mayo 2010, 21:04 pm

No, no entiendo varias cosas que haces allí.
1. Declara el tipo de variable a usar

Código

Dim a, b, c As Ineger

2. var, no está declarada. Debería ser así.

Código

a = InputBox("Introduce Numero 1:")
b = InputBox("Introduce Numero 2:")
c = InputBox("Introduce Numero 3:")

Sería más fácil, si usaras un vector y después lo ordenaras.

Título: Re: ordenar tres numeros de teclado ascendentemente
Publicado por: seba123neo en 25 Mayo 2010, 03:43 am

Cita de: Alex@ShellRoot en 24 Mayo 2010, 21:04 pm

No, no entiendo varias cosas que haces allí.
1. Declara el tipo de variable a usar

Código

Dim a, b, c As Integer

Alex, declarar las variables de esa forma en .NET es valido, las 3 serian Integers, pero en visual basic 6 , solo la ultima seria Integer y las otras de tipo Variant, o sea que se deberian declarar asi:

Código

Dim a As Integer, b As Integer, c As Integer

saludos.

Título: Re: ordenar tres numeros de teclado ascendentemente
Publicado por: Shell Root en 25 Mayo 2010, 03:50 am

Es cierto, y creo que alguien más me lo dijo, pero ahora ya no programo en VB. Así que se me olvida... :D