在VBA中怎么求解守数,守数定义：一个数其平方数的尾数是其自身,该数称为守数.求出前10个守数.

Question

在VBA中怎么求解守数,守数定义：一个数其平方数的尾数是其自身,该数称为守数.求出前10个守数.

Answer 1

Sub ff()
Dim a,b,c,d,e As doubel
d = 1
For e = 1 To 10000
If d = 11 Then Exit For
a = Len(CStr(e))
c = e * e
If Right(c,a) = e Then
Sheet1.Cells(d,1) = e
d = d + 1
End If
Next
End Sub
'前十个守数分别是
1
5
6
25
76
376
625
9376
90625
109376