Using Visual Basic to Identify Palindromic Numbers
A palindrome is a word that is the same both forward and backward. Some numbers are also palindromes. 101 is such a number.
This function, written in Visual Basic, accepts an integer and returns a boolean indicating whether or not the number is a palindrome. The trick is to convert the number to a string, then reverse the string and compare it to the original. If the two strings match, then the original integer is a palindrome.
The function can be placed into any class. Pass the function an integer; it returns a boolean. The return value is "true" if the integer is a palindrome.
'********************************************************************* '* Determine is an integer is a palindrome * '* Author: nicomp * '* Language: Visual Basic * '********************************************************************* Function IsPalindrome(ByVal intNum As Integer) As Boolean Dim str1, str2 As String Dim i As Integer = 0 Dim blnStatus As Boolean = False str1 = intNum.ToString str2 = "" For i = str1.Length - 1 To 0 Step -1 str2 += str1.Substring(i, 1) Next If str1 = str2 Then blnStatus = True Return blnStatus End Function