Private Sub Form_Load()
Dim i, s As Integer
i = 1: s = 0
While (s <= 1000)
s = s + i ^ 2
i = i + 1
Wend
Print "满足条件的n最小为" & i
End Sub
