VB的一个小问题哦 调用过程 编译完了之后不管打什么数 label里都显示该数是回文数！！高手来帮帮忙
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 编辑 ]
