vb求同构数

for i=0 to 100000

m=val(right(str(i^2)))

if m=i then msgbox i & " 是同构数"

next

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

Dim

i

As

Long

Dim

a(1

To

1000)

As

Long

For

i

=

1

To

1000

a(i)

=

i

i

If

Len(CStr(a(i)))

-

Len(CStr(i))

<>

0

And

Mid(CStr(a(i)),

Int(Len(CStr(a(i)))

-

Len(CStr(i))

+

1),

Len(i))

=

i

Then

Print

i;

End

If

Next

i

End

Sub

不懂的地方我会帮你解释的

Private Sub Form_click()

Dim n As Integer, m As Integer, num1 As Integer, num2 As Integer

For n = 1 To 100

m = n n

num1 = Len(Str(n)) - 1

If n = m Mod (10 ^ num1) Then Print n, m

Next

End Sub

以上就是关于vb求同构数全部的内容，包括:vb求同构数、求1个VB编程,1-1000的同构数,有没有不分块的方法~~、一个关于VB的程序编写!!在线等!!等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！