求1个VB编程,1-1000的同构数,有没有不分块的方法~~

Question

求1个VB编程,1-1000的同构数,有没有不分块的方法~~

Answer 1

可以不分块，直接寻找就行，以下代码可以帮你找出1－1000的同构数。
dim i as integer,n as long
for i=1 to 1000
n=i^2
if (n-i) mod 10^(len(trim(str(i))))=0 then print i;
next i
运行结果： 1 5 6 25 76 376 625

Answer 2

len()函数只能识别字符串，所以要把变量i字符串化，即：
把语句：
n
=
len(i)
m
=
len(s)
改为：
n
=
len(val(i))
m
=
len(val(s))
*******************
再运行，即可。

Answer 3

Private Sub Form_click()
k = 10
For i = 1 To 10000
If i = k Then k = k * 10
j = i * i
If j Mod k = i Then Print i
Next i
End Sub