用VB语言编程1~100之间的全部同构数

如题所述

所谓同构数是这样一些数：
一个N位的自然数R，它的平方的最后N位等于R，那么R叫做同构数；
例如：
1位数，5，它的平方等于25，而25的个位就是5，所以5是同构数；
1位数，6，也是同构数。
又如2位数25，它的平方是625，所以25也是也是同构数。
根据以上规则，代码如下：

Dim i As Integer
Dim L As Integer
For i = 1 To 100
L = Len(CStr(i))
If CStr(i) = Right(CStr(i * i), L) Then
Print i
End If
Next i

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/mf4m84vfqfqsf7v28m.html