下面的程序功能是找出满足下列条件的四位整数；（1）是一个完全平方数；（2）第一，二位数相等，第三、四位数相等，同时统计满足条件的数的个数，完善程序。
Private Sub Form_Click()
Dim i As Integer,m As Integer,n As Integer
n = 0
For i = 32 To 99
m = i * i
If （）Then
Print m;
（）
End If
Next i
Print
MsgBox "共找出" & s & "个符合条件的四位数"
End Sub