Question

求答案VB程序设计 实验指导与测试 第3版 F过程 第4题↓↓在线等急求！！谢谢！

编写一个函数过程，IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在列表框中显示输入的数，对于是回文数显示一个“★”。
求效果和图片差不多的谢谢啦

Answer 1

Private Function IsH(n As Integer) As Boolean    '判断所给n是不是回文数,是的话,IsH返回true,否返回false
    If Trim(Str(n)) = Trim(StrReverse(Str(n))) Then IsH = True Else IsH = False
End Function

Private Sub Command1_Click()    
    if ish(val(text1.text)) then        
        list1.additem text1.text & " ★"    
    else        
        list1.additem text1.text    
    endif
End Sub