[填空题] 以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。Private Sub Command1

[填空题] 以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。 Private Sub Command1

[填空题] 以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。

Private Sub Command1_Click()

Dim i As Integer,ip As Integer

For i=1 To 100

ip= 【9】

If i＜10 Then

If 【10】 Then

Print i，ip

End If

Else

If 【11】 Then

Print i，ip

End If

End If

Next i

End Sub

正确答案：

[9]i*i [10]ip Mod 10=i [11]ip Mod100=i

参考解析：

判断某数是否为同构数，可先求出该数的平方，然后再判断该数是否小于10，如果小于10，看它的平方除以 10的余数是否和该数相等，如果相等，则该数是同构数；如果该数在10～100之间，则看该数的平方除以100的余数是否和该数相等，若相等，则该数为同构数。本题中中用来存放i的平方，所以[9]处应填“i*i”，在[10]处应判断某一位数i是否为同构数，应填“ip Mod 10=i”，在[11]处应判断其两位数i是否为同构数，应填“ip Mod100=i”。