Tem como deixar esse código menor?

[Viana007 0]

Faça um programa que aceite quatro números quaisquer e exiba-os em ordem crescente.

ASP

Private Sub cmd_veri_Click()

Dim intgodinis As Double

Dim dbln1 As Variant, dbln2 As Variant, dbln3 As Variant, dbln4 As Variant

dbln1 = Val(txt_1)

dbln2 = Val(txt_2)

dbln3 = Val(txt_3)

dbln4 = Val(txt_4)

If dbln1 > dbln2 And dbln1 > dbln3 And dbln1 > dbln4 Then

    intgodinis = dbln1

Else

    If dbln2 > dbln1 And dbln2 > dbln3 And dbln2 > dbln4 Then

        intgodinis = dbln2

    Else

        If dbln3 > dbln1 And dbln3 > dbln2 And dbln3 > dbln4 Then

            intgodinis = dbln3

        Else

            If dbln4 > dbln1 And dbln4 > dbln2 And dbln4 > dbln3 Then

                intgodinis = dbln4

            Else

            End If

        End If

    End If

End If

If dbln1 > dbln2 And dbln1 > dbln3 And dbln1 > dbln4 Then

    If dbln2 > dbln3 And dbln2 > dbln4 Then

        intgodinis = intgodinis & dbln2

    Else

        If dbln3 > dbln2 And dbln3 > dbln4 Then

            intgodinis = intgodinis & dbln3

        Else

            If dbln4 > dbln2 And dbln4 > dbln3 Then

                intgodinis = intgodinis & dbln4

            Else

            End If

        End If

    End If

Else

    If dbln2 > dbln1 And dbln2 > dbln3 And dbln2 > dbln4 Then

        If dbln1 > dbln3 And dbln1 > dbln4 Then

            intgodinis = intgodinis & dbln1

        Else

            If dbln3 > dbln1 And dbln3 > dbln4 Then

                intgodinis = intgodinis & dbln3

            Else

                If dbln4 > dbln1 And dbln4 > dbln3 Then

                    intgodinis = intgodinis & dbln4

                Else

                End If

            End If

        End If

    End If

End If

If dbln3 > dbln1 And dbln3 > dbln2 And dbln3 > dbln4 Then

    If dbln1 > dbln2 And dbln1 > dbln4 Then

        intgodinis = intgodinis & dbln1

    Else

        If dbln2 > dbln1 And dbln2 > dbln4 Then

            intgodinis = intgodinis & dbln2

        Else

            If dbln4 > dbln1 And dbln4 > dbln2 Then

                intgodinis = intgodinis & dbln4

            Else

            End If

        End If

    End If

Else

    If dbln4 > dbln1 And dbln4 > dbln2 And dbln4 > dbln3 Then

        If dbln1 > dbln2 And dbln1 > dbln3 Then

            intgodinis = intgodinis & dbln1

        Else

            If dbln2 > dbln1 And dbln2 > dbln3 Then

                intgodinis = intgodinis & dbln2

            Else

                If dbln3 > dbln1 And dbln3 > dbln2 Then

                    intgodinis = intgodinis & dbln3

                Else

                End If

            End If

        End If

    End If

End If

If dbln1 < dbln2 And dbln1 < dbln3 And dbln1 < dbln4 Then

    If dbln2 < dbln3 And dbln2 < dbln4 Then

        intgodinis = intgodinis & dbln2

    Else

        If dbln3 < dbln2 And dbln3 < dbln4 Then

            intgodinis = intgodinis & dbln3

        Else

            If dbln4 < dbln2 And dbln4 < dbln3 Then

                intgodinis = intgodinis & dbln4

            Else

            End If

        End If

    End If

Else

    If dbln2 < dbln1 And dbln2 < dbln3 And dbln2 < dbln4 Then

        If dbln1 < dbln3 And dbln1 < dbln4 Then

            intgodinis = intgodinis & dbln1

        Else

            If dbln3 < dbln1 And dbln3 < dbln4 Then

                intgodinis = intgodinis & dbln3

            Else

                If dbln4 < dbln1 And dbln4 < dbln3 Then

                    intgodinis = intgodinis & dbln4

                Else

                End If

            End If

        End If

    End If

End If

If dbln3 < dbln1 And dbln3 < dbln2 And dbln3 < dbln4 Then

    If dbln1 < dbln2 And dbln1 < dbln4 Then

        intgodinis = intgodinis & dbln1

    Else

        If dbln2 < dbln1 And dbln2 < dbln4 Then

            intgodinis = intgodinis & dbln2

        Else

            If dbln4 < dbln1 And dbln4 < dbln2 Then

                intgodinis = intgodinis & dbln4

            Else

            End If

        End If

    End If

Else

    If dbln4 < dbln1 And dbln4 < dbln2 And dbln4 < dbln3 Then

        If dbln1 < dbln2 And dbln1 < dbln3 Then

            intgodinis = intgodinis & dbln1

        Else

            If dbln2 < dbln1 And dbln2 < dbln3 Then

                intgodinis = intgodinis & dbln2

            Else

                If dbln3 < dbln1 And dbln3 < dbln2 Then

                    intgodinis = intgodinis & dbln3

                Else

                End If

            End If

        End If

    End If

End If

If dbln1 < dbln2 And dbln1 < dbln3 And dbln1 < dbln4 Then

    intgodinis = intgodinis & dbln1

Else

    If dbln2 < dbln1 And dbln2 < dbln3 And dbln2 < dbln4 Then

        intgodinis = intgodinis & dbln2

    Else

        If dbln3 < dbln1 And dbln3 < dbln2 And dbln3 < dbln4 Then

            intgodinis = intgodinis & dbln3

        Else

            If dbln4 < dbln1 And dbln4 < dbln2 And dbln4 < dbln3 Then

                intgodinis = intgodinis & dbln4

            Else

            End If

        End If

    End If

End If

MsgBox intgodinis

End Sub

[Fernando Almeida 0]

nã entendi muito bem se esse codigo é de vb realamente pq tem o asp lah no alto, mas em vb ao invez de ir fazendo

if condicao thenelse    if condicao then    else    end ifend if

poderia ser assim

 

if condicao thenelseif condicao thenelseend if

fica bem parecido com o select case, mas você pode fazer condições + elaboradas.

 

de resto acho que é só isso mesmo.

[Ulukai 0]

Pode ser assim:

 

Private Sub cmd_veri_Click

 

Dim ord(4) As Double

Dim aux As Double

Dim tam As Integer, i As Integer, j As Integer

ord(0) = Val(txt_1)

ord(1) = Val(txt_2)

ord(2) = Val(txt_3)

ord(3) = Val(txt_4)

 

tam = 3

 

For i=0 To tam

For j=0 To tam

If ord(i)<ord(j) Then

aux = ord(i)

ord(i) = ord(j)

ord(j) = aux

End If

Next

Next

 

For i=0 To tam

Msgbox "Sequência de números em ordem crescente: " & ord(i)

Next

 

End Sub

 

 

'Espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif , Abraço