|
 |
 |
 |
| |
 Inverser une chaîne de caractères
Public Function InverseChaineDeCaracteres(Chaine As String) As String
Dim Inverse As Long
InverseChaineDeCaracteres = ""
For Inverse = Len(Chaine) To 1 Step –1
InverseChaineDeCaracteres = InverseChaineDeCaracteres & Mid$(Chaine, Inverse, 1)
Next
End Function
MsgBox InverseChaineDeCaracteres("bonjour")
|
|
 |
 |
 |
|