[填空題] 以下程序的功能是單擊Command1按鈕，將輸出1～100之間的所有同構(gòu)數(shù)。同構(gòu)數(shù)是指該數(shù)出現(xiàn)在它的平方數(shù)的右邊，如5²=25、25²=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

判斷某數(shù)是否為同構(gòu)數(shù)，可先求出該數(shù)的平方，然后再判斷該數(shù)是否小于10，如果小于10，看它的平方除以 10的余數(shù)是否和該數(shù)相等，如果相等，則該數(shù)是同構(gòu)數(shù)；如果該數(shù)在10～100之間，則看該數(shù)的平方除以100的余數(shù)是否和該數(shù)相等，若相等，則該數(shù)為同構(gòu)數(shù)。本題中中用來存放i的平方，所以[9]處應(yīng)填“i*i”，在[10]處應(yīng)判斷某一位數(shù)i是否為同構(gòu)數(shù)，應(yīng)填“ip Mod 10=i”，在[11]處應(yīng)判斷其兩位數(shù)i是否為同構(gòu)數(shù)，應(yīng)填“ip Mod100=i”。