Private Sub Command2_Click()
Dim a As Integer, c As String
a = Text1.Text
Call gcd(a, c)
Label1.Caption = c
End Sub

Sub gcd(h%, c)
Dim i
Dim e
Dim a As String
Dim b As String
f = Trim(Str(h))
e = Len(f)
For i = 1 To (n \ 2)
a = Mid(f, i, 1)
b = Mid(f, e - i + 1, 1)
If a <> b Then Exit For
Next i
If i > (n \ 2) Then
c = "该数是回文数"
Else
c = "该数不是回文数"
End If
End Sub
所谓的回文数例如12321就是个回文数，即对称

不要重复发贴吧.

看你前面发的.
https://bbs.bccn.net/thread-292090-1-1.html

前面的我改了些错误的 没看清楚别乱说啊 这个跟那个不一样的

我前面给你指出了三个地方的错误.

结果你按着我指出的,改了一个地方,还有另外二个地方,你没改啊.怎么会结果对呢.