Autore: Vito Arconzo

Questa funzione restituisce la stringa passata come parametro invertita.

1    Public Function ReverseString(ByVal stringToReverse As String) As String
2         ' dichiarazione variabili

3         Dim s As String = ""
4         Dim lunghezza As Integer = 0
5         If stringToReverse = "" Then
6              ' se stringa vuota restituiscila
7              s = ""
8         Else
9              ' altrimenti esegui l'inversione della stringa
10             lunghezza = stringToReverse.Length
11             For i As Integer = (lunghezza - 1) To 0 Step -1
12                  s = String.Concat(s, stringToReverse.Substring(i, 1))
13             Next
14        End If
15        Return (s)
16   End Function