Dim a1 As Double, a2 As Double, huiwen As Boolean
For i = 1 To 1000
     a1 = Trim(Str(i))
     n1 = Len(Trim(i))
     a2 = Trim(Str(i * i))
     n2 = Len(Trim(i * i))
     For j = 1 To n1
         If Mid(a1, j, 1) <> Mid(a1, n1 - j + 1, 1) Then
         huiwen = False
         Exit For
         End If
     Next j
     For k = 1 To n2
         If Mid(a2, k, 1) <> Mid(a2, n2 - k + 1, 1) Then
         huiwen = False
         Exit For
         End If
     Next k
     If huiwen = True Then List1.AddItem i & "的平方是" & i ^ 2
     huiwen = True
Next i