Niner since 2004
Private Function IsPalindrome(ByVal TestString As String) As Boolean
Dim First As Integer = 0
Dim Last As Integer = TestString.Length - 1
While First < Last
If TestString.Substring(First, 1) = TestString.Substring(Last, 1) Then
First += 1
Last -= 1
Else
Return False
End If
End While
Return True
End Function
Here is a list of Channel 9 staff members.
Gary Daniels and Evan Goldring - Mock whiteboard problem
Aug 24, 2004 at 2:39 PMPrivate Function IsPalindrome(ByVal TestString As String) As Boolean
Dim First As Integer = 0
Dim Last As Integer = TestString.Length - 1
While First < Last
If TestString.Substring(First, 1) = TestString.Substring(Last, 1) Then
First += 1
Last -= 1
Else
Return False
End If
End While
Return True
End Function