以下程序的功能是单击Command1按钮 将输出1～100之间的所有同构数。同构数是指该数出现在它的
以下程序的功能是单击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
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***262
2023-07-21 07:43:40
正确答案：i*i ip Mod 10=i ip Mod100=i
判断某数是否为同构数，可先求出该数的平方，然后再判断该数是否小于10，如果小于10，看它的平方除以10的余数是否和该数相等，如果相等，则该数是同构数；如果该数在10～100之间，则看该数的平方除以100的余数是否和该数相等，若相等，则该数为同构数。本题中中用来存放i的平方，所以[9处应填“i*i”，在[10处应判断某一位数i是否为同构数，应填“ipMod10=i”，在[11处应判断其两位数i是否为同构数，应填“ipMod100=i”。
相似问题
在窗体上建立名称为了ext1 Text2和Text3的三个文本框 其中Text1和Text2文本框用
在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击
下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标 请填空。 Option
下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As
下面程序的功能是：求出所有的三位数 其各位数字的立方和等于该数。如： 153=13+53+33。 O
下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As
下列程序的功能是：当发生窗体的单击事件时 求出3～1000之间的所有素数的和以及所有能被3和5整除的
下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体
下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2 如3和5 11和1
下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As
