Question

vb 求100到999之间所有的完全平方数

vb 求100到999之间所有的完全平方数详细一点

Answer 1

Private Sub Form_Click()
Dim i As Integer, n As Integer
For 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 If
Next

End Sub