以下程序的功能是单击Command1按钮,将输出1~100之间的所有同构数。同构数是指该数出现在它的平方数的右边,如52=25、252=625。 Private Sub Command1_Click() Dim i As Integer,

admin2009-02-13  28

问题 以下程序的功能是单击Command1按钮,将输出1~100之间的所有同构数。同构数是指该数出现在它的平方数的右边,如52=25、252=625。
   Private Sub Command1_Click()
      Dim i As Integer,ip As Integer
      For i=1 To 100
        ip=【  】
        If i<10 Then
           If【  】Then
              Print i,ip
           End If
        Else
           If【  】Then
              Print i,ip
           End If
        End If
      Next i
   End Sub

选项

答案i*i , ip Mod 10=i , ip Mod100=i

解析 判断某数是否为同构数,可先求出该数的平方,然后再判断该数是否小于10,如果小于10,看它的平方除以 10的余数是否和该数相等,如果相等,则该数是同构数;如果该数在10~100之间,则看该数的平方除以100的余数是否和该数相等,若相等,则该数为同构数。本题中中用来存放i的平方,所以[9]处应填“i*i”,在[10]处应判断某一位数i是否为同构数,应填“ip Mod 10=i”,在[11]处应判断其两位数i是否为同构数,应填“ip Mod100=i”。
转载请注明原文地址:https://kaotiyun.com/show/t11p777K
0

最新回复(0)