1. <?xml:namespace prefix="v" ns="urn:schemas-microsoft-com:vml"><?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace><?xml:namespace prefix="w" ns="urn:schemas-microsoft-com:office:word"></?xml:namespace>下面程序的功能是找出1000以内的所有同构数，并将结果按图示方式输出在列表框List1中。若自然数N出现在N2的右边，则N是同构数。例如25就是同构数，因为25出现在252即625的右边。界面如右图所示，请完善下列程序代码。</?xml:namespace>
Private Sub Command1_Click()
Dim n As Long, m As Long, k As Integer
For n = 2 To 1000
m = n * n
(19)
If n = Right(m, k) Then
(20)
End If
Next n
End Sub
