Private Sub Command1_Click()
For i = 1 To 100
For j = 1 To 100
If Int(Sqr((j + i))) = Sqr(j + i) And Int(Sqr((Abs(i - j)))) = Sqr(Abs(j - i)) Then
'Print i,j
k = k + 1
End If
Next j,i
Print "一个有"; k; "个"
End Sub