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
e = Len(Str(n))
For i = 1 To (n \ 2)
a = Mid(Str(n), i, 1)
b = Mid(Str(n), 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 就是个回文数   正着读与反着读是一样的

[ 本帖最后由 a86819318 于 2009-11-12 19:05 编辑 ]

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
e = Len(Str(n))                           'str(n) 前面会自动生成一个空格,你这个算法,需要去掉这个空格
For i = 1 To (n \ 2)                    '计算出来的长度是 e ,不是N ,变量用错了
a = Mid(Str(n), i, 1)
b = Mid(Str(n), 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 就是个回文数   正着读与反着读是一样的

修改的代码:

Option Explicit

Private Sub Command1_Click()
Dim a As Integer, b
a = Text1.Text
b = gcd(a)
Label1.Caption = b
End Sub

Function gcd(n%)
Dim i
Dim e
Dim a As String
Dim b As String
Dim k As String
k = Trim(Str(n))        '转字串,并去掉前后空格
e = Len(k)
For i = 1 To (e \ 2)
a = Mid(k, i, 1)                 '所有的取数,直接用前面处理好的字串
b = Mid(k, e - i + 1, 1)
If a <> b Then Exit For
Next i
If i > (e \ 2) Then
gcd = "该数是回文数"
Else
gcd = "该数不是回文数"
End If
End Function

Function gcd$(n%)
Dim i&, e&
Dim a As Byte
Dim b As Byte
Dim k() As Byte
k = StrConv(n, vbFromUnicode)
e = UBound(k) + 1
For i = 1 To (e \ 2)
a = k(i - 1)
b = k(e - i)
If a <> b Then Exit For
Next i
If i > (e \ 2) Then
gcd = "该数是回文数"
Else
gcd = "该数不是回文数"
End If
End Function

要弄这么隆重,使用数组啊.......

不过,他这个函数本身就有问题,传入的参数是 int ,很容易就溢出的.