Private Sub Command1_Click()
Dim n As String
n = InputBox("請輸入一個整數：")
If n = StrReverse(n) Then
Print "是回文數。"
Else
Print "不是回文數"
End If
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim h As Boolean
h = True
For i = 1 To Int(Len(Text1.Text) / 2)
If Mid(Text1.Text, i, 1) <> Mid(Text1.Text, Len(Text1.Text) - i + 1, 1) Then
h = False
Exit For
End If
Next
If h = True Then
MsgBox "回數"
Else
MsgBox "不是回數"
End If
End Sub