Foro de programacion

juanvaz_300 · #1 (**permalink**) 21 de abril,2009, 18:33

bueno para empezar , soy nuevo, recien arranco el tema de la programacion, con este tipo de lenguaje,, me dieron un ejercicio,.q dice, si un texto tiene espacios ordeno las palabras de atras para adelante, la verdad esto me dificulta mucho y no se bien como se hace, si alguien me puede ayudar,, ahh tmb tengo q utilizar en este ejercicio una function

Codigo47 · #2 (**permalink**) 28 de abril,2009, 14:29

Hola Juan,

Pone este codigo en un formulario, la funcion InvertirPalabras hace el trabajo que necesitas... cualquier cosa avisame.

Código:

Private Sub Form_Load()
MsgBox InvertirPalabras("juanvaz 300")
End Sub

Private Function InvertirPalabras(Texto As String) As String
Dim i As Integer
Dim Palabras() As String
Palabras = Split(Texto, " ")

For i = UBound(Palabras) To 0 Step -1
    InvertirPalabras = InvertirPalabras & " " & Palabras(i)
Next
End Function

Saludos.