ordenar tres numeros de teclado ascendentemente

[minette1988]

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

Código (vb) [Seleccionar] Expandir

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

[Shell Root]

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

Código (vb) [Seleccionar] Expandir

Dim a, b, c As Ineger

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

Código (vb) [Seleccionar] Expandir

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.

[seba123neo]

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

Código (vb) [Seleccionar] Expandir

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 (vb) [Seleccionar] Expandir

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

saludos.

[Shell Root]

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