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