输入一个范围,求范围内回文数VB(急...)

Private Sub Command1_Click()
Dim I As Long, J As Long
Dim X1 As Long, X2 As Long
Dim str As String
Dim Flag As Boolean

X1 = InputBox("输入启始数(正整数)")
X2 = InputBox("输入结束数(正整数)")

str = "从 " & X1 & " 到 " & X2 & "之间的回文数有：" & vbCrLf

For I = X1 To X2
Flag = False
For J = 1 To Len(CStr(I))
If Mid(CStr(I), J, 1) <> Mid(CStr(I), Len(CStr(I)) - J + 1, 1) Then
Flag = True
Exit For
End If
Next J
If Flag = False Then str = str & I & " "
Next I

MsgBox str

End Sub

绝对是调试通过 可以执行的!

微调代码，2分走人
Private Sub Command1_Click()
Dim I&, J&,X1&,X2&,str$,Flag As Boolean

X1 = CLng(InputBox("输入起始数(正整数)"))
X2 = CLng(InputBox("输入结束数(正整数)"))

str = "从 " & X1 & " 到 " & X2 & "之间的回