Private Sub Form_Click()
'找1到9999之间的同构数
Me.Show
For x = 1 To 9999
y = Len(Format(x))
z = CStr(x ^ 2)
If CStr(x) = Right(z, y) Then
Print x
End If
Next x
End Sub
在IF中判断的二个数据类型不同，当然不行，下面的图是上面程序的运行结果。
Private Sub Form_Click()
'找1到9999之间的同构数
Me.Show
For x = 1 To 9999
y = Len(Format(x))
z = CStr(x ^ 2)
If CStr(x) = Right(z, y) Then
Print x
End If
Next x
End Sub
在IF中判断的二个数据类型不同，当然不行，下面的图是上面程序的运行结果。
