Private Sub Command1_Click()
Dim a As String, n As Integer, i As Integer
a = Text1.Text
n = Len(a)
For i = 1 To n
If Mid(a, i, 1) <> Mid(a, n - i + 1, 1) Then Exit For
Next i
If i = n+1 Then
Print "是回文数"
Else
Print "不是回文数"
End If
End Sub
回文？都不知道你在说什么，我要举报你
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024