VB：编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-5
作者：Caleb Sung

题目要求

编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于是回文数显示一个”★”，如下图：

提示

1. 所谓回文数是指顺读与倒读数字相同，即指最高位与最低位相同，次高位与次低位相同，依次类推。当只有一位数时，也认为是回文数。
2. 回文数的求法，只要对输入的数(按字符串类型处理)，利用MID函数从两边往中间逐位比较，若不相同，就不是回文数。

参考代码

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Not IsNumeric(Text1) Then
            MsgBox "输入非数字串，重新输入"
            Text1.Text = ""
            Text1.SetFocus
        Else
            If IsH(Text1) Then
                Picture1.Print Text1; " ★ "
            Else
                Picture1.Print Text1
            End If
            Text1 = ""
        End If
    End If
End Sub

Function IsH(ss As String) As Boolean
    Dim i%, Ls%
    IsH = True
    ss = Trim(ss)
    Ls = Len(ss)
    For i = 1 To Ls \ 2
        If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) Then
            IsH = False
            Exit Function
        End If
    Next i
End Function