Thomas Risi Softwareentwicklung

ReverseText

Hierbei handelt es sich um eine kleine Spielerei, die einen Text umkehrt. Das Besondere an der Funktion ist der rekursive Aufruf.


Option Explicit Public Function ReverseText(Text As String) As String On Error Goto errorhandler If Text = "" Then Exit Function ReverseText = Right(Text, 1) & ReverseText(Left(Text, Len(Text) - 1)) Exit Function errorhandler: MsgBox Err.Description, vbExclamation End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)