题目：编程找出10000以内所有的回文数的平方仍是回文数的数。

Private Sub Command1_Click() For i = 1 To 10000 If huiwen(i) And huiwen(i * i) Then List1.AddItem i End If Next i End Sub Function huiwen(ByVal n) As Boolean f = 0 m = n While n > 0 f = f * 10 + n Mod 10 n = n \ 10 Wend huiwen = f = m End Functio