Question

请帮忙检查一下VB程序，非常感谢

想用这个函数 判断某数是否为回文数 就是两边对称那种 例 1，111，121，56265，都是。
函数要为布尔型
Function IsH(n) As Boolean
l = Len(Text1)
For i = 1 To l
If Mid(Text1, i, 1) <> Mid(Text1, l - i, 1) Then
Exit For
IsH = False
Else
IsH = True
End If
Next
End Function
为什么一直是 false？
要求用MID 函数从两边往中间一个一个比较
拜托善良而智慧的朋友帮帮忙吧
急……

Answer 1

Function IsH(n) As Boolean
dim aa as string
aa=format(n)
if aa=StrReverse(aa) then
ish=true
else
ish=false
endif

End Function

晕：
Private Sub Command1_Click()

Print IsH(Text1)

End Sub
Function IsH(n) As Boolean
Dim aa As String
aa = Format(n)
n = Len(aa)
For i = 1 To n \ 2
If Mid(aa, i, 1) <> Mid(aa, n + 1 - i, 1) Then
IsH = False
Exit For
Else
IsH = True
End If
Next

End Function

Answer 2

mid函数的第二个参数不能为0,只能从1开始
Mid(Text1, l - i, 1) 这句话,你的 i是从1 to l的,所以,当i=l的时候,l-i就是0了,会报错..

改成
For i = 1 To l-1

Answer 3

Private Sub Command1_Click()
Call IsH
MsgBox IsH
End Sub

Function IsH() As Boolean
If Len(Text1) = 1 Then
IsH = True
End If

If Len(Text1) > 1 Then
If Left(Text1, 1) = Right(Text1, 1) Then
IsH = True
Else
IsH = False
End If
End If
End Function

Answer 4

If Mid(Text1, i, 1) <> Mid(Text1, l - i, 1) Then

改为 If Mid(Text1, i, 1) <> Mid(Text1, l - i+1, 1) Then