Opgave i IT

Håber det er lige til -

Split på mellemrum så det kommer ned i et Array (gør du med streng.Split()) og så ændre du blot rækkefølgen gennem arrayet

//>Rune

Dim oIn As String = "Du er dum"
Dim oOut As String = ""
Dim oStmp As String() = oIn.Split(" "C)
For i As Integer = oStmp.Length - 1 To 0 Step -1
    oOut += oStmp(i) + " "
Next

Vh Nicki

Hvis det er en Console app kan du bare udskrive værdien i oOut efter løkken.

Var det noget du kunne bruge?

Eller smartere endnu: benyt String.Split, Array.Reverse og String.Join :)

  Protected Function ReverseWords(ByVal pInput As String) As String
    Dim arr As String()
    arr = pInput.Split(" "c)
    Array.Reverse(arr)
    Return String.Join(" "c, arr)
  End Function


Kald den fx således:

  MessageBox.Show(ReverseWords("du er dum"))

Kunne svarene bruges?