Invertire un determinata Frase
Funzione che inverte un frase determinata.
'*********************************************
'CAD = frase da convertire
'*********************************************
Function FraseRovesciata(CAD As String) As String
Dim i As Integer, CADAUX As String
If Len(CAD) = 0 Then Exit Function
For i = Len(CAD) To 1 Step -1
CADAUX = CADAUX & Mid(CAD, i, 1)
Next i
FraseRovesciata = CADAUX
End Function
Testato su: Tutti i Sistemi operativi
Oppure con VB6, utilizzando la Funzione StrReverse:
MsgBox StrReverse(FrasedaInvertire)
Testato su: Tutti i Sistemi operativi