设计一个判断正整数是一个回文数的算法.所谓回文数是指左右数字完全对称的自然数.例如,121,12321,484,555.

在窗体上画一个textbox控件和一个commandbutton控件
输入以下代码:
Private Sub Command1_Click()
If Text1.Text = StrReverse(Text1.Text) Then
Print Text1.Text & " 是回文数"
Else
Print Text1.Text & " 不是回文数"
End If
End Su