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

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 = FalseEnd FunctionPrivate Sub Command1_Click() if ish(val(text1.text)) then