Réécriture d'une phrase à l'envers

Pseudo-code

AFFICHE "Entre une phrase quelconque : "
ACCEPTE Phrase
POUR Ctr = LONGUEUR (Phrase) JUSQU'A 1
AFFICHE Phrase[Ctr]
SUIVANT Ctr

Visual Basic

Sub PhraseALenvers()
  Dim Phrase As String
  Dim PhraseEnvers As String
  Phrase = "Tu l'as trop écrasé, César, ce port-salut"
  For compteur = Len(Phrase) To 1 Step -1
    PhraseEnvers = PhraseEnvers & Mid(Phrase, compteur, 1)
  Next
  MsgBox PhraseEnvers
End Sub

Améliorations :

- Laisser le choix à l'utilisateur de la phrase
- Réécrire la phrase une lettre sur 2