Question

用VS2010做VB的题目

“自定义函数，编写函数过程IsH（n），对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在Label标签中显示输入的数字，对于回文数显示一个“★”。”题目要求，大神们求帮忙！~~

Answer 1

     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

判断回文数

追问

呃。。忘记讲还有条件了，还要利用Mid函数，然后一个数字的话也是回文数。

追答

 Public Function isH(ByVal Value As String) As Boolean
        Dim tmp As String = ""
        If Not IsNumeric(Value) Then MsgBox("判断类型必须为数值类型数据！") : Return False
        For i = Value.Length To 1 Step -1
            tmp += Strings.Mid(Value, i, 1)
        Next
        If tmp = Value Then
            Return True
        Else
            Return False
        End If
    End Function

Answer 2

对付小股或数量较少的敌人，应该把它包围，然后歼灭它，而不利于穷追猛赶。