Palindrome Number Verification And Generation

Palindrome Number Verification

iNumber = CInt(InputBox("Please enter the number"))

'CInt is used for numeric inputs, because the values entered using InputBox are treated as Strings.
Ex: MsgBox TypeName(iNumber) gives us "String" if we do not use CInt and gives us "Integer" if we use CInt

iTemp = iNumber
iReverse = 0
Do While iTemp>0
    iReverse = (iReverse * 10) + (iTemp Mod 10)
    iTemp = iTemp\10 'Note: \ is used to get ineteger quotients. / gives us decimal values
Loop
If iReverse = iNumber Then
    MsgBox "Given Number " & iNumber & " is Palindrome"
Else
    MsgBox "Given Number " & iNumber & " is NOT Palindrome"
End If

Palindrome Numbers Generation

iRange = CInt(InputBox("Please enter the range"))
For i=1 To iRange
    iTemp = i
    iReverse = 0
    Do While iTemp>0
        iReverse = (iReverse * 10) + (iTemp Mod 10)
        iTemp = iTemp\10
    Loop
    If iReverse = i Then
        iPalindromes = iPalindromes & " " & i
    End If
Next
MsgBox "Palindrome Numbers in the given range " & iRange & " are: " & iPalindromes