VB同构数代码

同构数是会出现在它的平方的右边的数如5×5＝25，6×6＝36。
程序如下:

Private Sub Command1_Click()
Dim n As Long, i As Long, j As Long
n = Int(Val(Trim(InputBox("请输入一个整数：", "提示信息"))))
For i = 1 To n
j = i ^ 2
If CStr(i) = Right(CStr(j), Len(CStr(i))) Then Print i
Next i
End Sub

只要在窗体上画一个按钮控件就可以了!

谢谢~
给分吧~!~

同构数是会出现在它的平方的右边的数如5×5＝25，6×6＝36。
程序如下:

Private Sub Command1_Click()
Dim n As Long, i As Long, j As Long
n = Int(Val(Trim(InputBox("请输入一个整数：", "提示信息"))))
For i = 1 To n
j = i ^ 2
If CStr(i) = Right(CStr(j), Len(CStr(i))) Then Print i
Next i
End Sub

只要在窗体上画一个按钮控件就可以了。

在窗体上放一个按钮和一个listbox

Private Sub Command1_Click()

n = InputBox("输入N的值", "求N的同构数")
n=int(n)

List1.AddItem ("N=" & n)

For i = 1 To n

p2 = i ^ 2

If