Private Function Reverse(ByVal input As String) As String If Not IsNothing(input) AndAlso input.Length <> 0 Then Dim chars() As Char = input.ToCharArray() Array.Reverse(chars) Return New String(chars) End If End Function
c = StrReverse(c)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionString,il a automatiquement un Methode qui se nomme "Reverse"
Dim a As String = "Renfield" For Each c As Char In a MessageBox.Show(c.ToString()) Next MessageBox.Show("Reverse, now !") For Each c As Char In a.Reverse MessageBox.Show(c.ToString()) Next