Private Sub Form_Click()Dim i As Integer, n As IntegerFor i = 100 To 999 If Int(Sqr(i)) ^ 2 = i Then Print Str(i); n = n + 1 If n Mod 10 = 0 Then Print End IfNextEnd Sub
