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

可以不分块，直接寻找就行，以下代码可以帮你找出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

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