funciones de visual

[vdiaz18]

SALUDOS, ESPERO QUE ESTE CODIGO TE SEA DE AYUDA !...

Private Sub Command1_Click()
Dim Pares(5), Impares(5), Numero(5), Aux, Acumulador As Integer
'pasamos todos los numeros al vector cifras
For i = 1 To 5
Numero(i) = Val(Mid(Me.txtNumero.Text, i, 1))
Next
'verificamos si el numero es par o impar
'y almacenamos el valor en su respectivo vector
'el acumulador es para sumar las cifras
Acumulador = 0
For i = 1 To 5
Aux = Numero(i) Mod 2
If Aux = 0 Then
Pares(i) = Numero(i)
Else
Impares(i) = Numero(i)
End If
Acumulador = Acumulador + Numero(i)
Next
'ordenamos las cifras
For i = 1 To 5
For j = i + 1 To 5
If Numero(i) < Numero(j) Then
Aux = Numero(i)
Numero(i) = Numero(j)
Numero(j) = Aux
End If
Next
Next i
'presentamos los datos
For i = 1 To 5
Me.txtPares = Me.txtPares + Str(Pares(i)) + " "
Me.txtImpares = Me.txtImpares + Str(Impares(i)) + " "
Me.txtOrdenado = Me.txtOrdenado + Str(Numero(i)) + " "
Next
Me.txtSuma = Acumulador
End Sub