Question

求高手用VB编程 3位正整数中,既是完全平方数,又有两位数相同,找出所有这样的数.

Answer 1

Private Sub Command1_Click()

Dim x,y,z,a,b As Integer

For a = 10 To 31 '9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止

b = a * a

x = b 100

y = (b - x * 100) 10

z = b - 100 * x - 10 * y

If x = y Or x = z Or y = z Then Print b

Next

End Su