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

Function gcd(n%)
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 gcd = "该数是回文数"
Else
gcd = "该数不是回文数"
End If
End Function

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

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

Function gcd(n%)
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 gcd = "该数是回文数"               '因为这行 then 后面有语句,VB就把这行当作一个单行 IF 命令处理.单行IF是默认结束的
Else                             '因上面是单行IF,所以这个ELSE 语句自然找不到开始的IF语句,所以提示 else 没有 if
gcd = "该数不是回文数"
End If
End Function


修改是把红色那行分二行写就可以了.
If i > (n \ 2) Then
gcd = "该数是回文数"

谢谢！

谢谢 不过又出现新问题了的？？能不能找出错误再调试下在把过程发出来吖 ？？

Label1.Caption = b

这行,你写错了控件的名字.

用 Alt + 向右的箭头检查

谢谢！！ 观察果然入微啊

版主真是高人呀，佩服，佩服。

alt + 向右的箭头有什么功能啊？