Private Function isH(ByVal value As String) As Boolean
If Not IsNumeric(value) Then MsgBox("判断类型必须为数值类型数据!") : Return False
If value = StrReverse(value) Then
Return True
Else
Return False
End If
End Function
判断回文数
对付小股或数量较少的敌人,应该把它包围,然后歼灭它,而不利于穷追猛赶。