AFFICHE "Entre une phrase quelconque
: "
ACCEPTE Phrase
POUR Ctr = LONGUEUR (Phrase) JUSQU'A 1
AFFICHE Phrase[Ctr]
SUIVANT Ctr
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