Question

VB找回文数

编程找出1000以内所有的回文数的平方仍是回文数的数。实现功能：（1）单机“生成数据”按钮，应将10000以内的所有的回文数的平方仍是回文数的数按“11^2=121”形式存放在列表框中。（2）单击“返回”按钮，结束程序运行。回文数是指左右数字完全对称的自然数。例如，11，121，1221等都是回文数。
这道题我做了一节课，都做不出来，上网求教！！！
要求用到 ！！！！！！！！！！！！！（循环语句）！！！！！！！！！！！！！！！！！！！！！！~

Answer 1

'画两个command按钮和一个Listbox控件
Private Sub Command1_Click()
Dim i As Integer
Dim a As String
Dim j As Long
For i = 11 To 10000
If CStr(i) = StrReverse(CStr(i)) Then
j = i ^ 2
If CStr(j) = StrReverse(CStr(j)) Then
List1.AddItem CStr(i) & "^2=" & CStr(j)
End If
End If
Next
End Sub

Private Sub Command2_Click()
End
End Sub