VB 编程题~~ 帮帮忙~~

来源：百度知道 编辑：UC知道 时间：2024/06/08 01:57:05
编程 找出 1～1000 之间的全部“同构数”。
图在 http://132zq132.blog.163.com/album/#p1 上~给 command1写代码~

Private Sub Command1_Click()
Dim i As Integer, s As Long, L As Integer
For i = 1 To 1000
s = i ^ 2
s = s - i
L = Len(Trim(i))
If s Mod 10 ^ L = 0 Then
List1.AddItem i
End If
Next i
End Sub

5的平方是25，5出现在它的平方数的右边，5就是 “同构数”
这个我一时搞不清楚了它的意思~~~

Private Sub Command1_Click()
For i = 1 To 1000
If CInt(Right(CStr(i ^ 2), Len(CStr(i)))) = i Then List1.AddItem i
Next i
End Sub