求 小于1000的完全平方数之和,算法

题目

求 小于1000的完全平方数之和,算法
Private Sub Command1_Click()
i = 1:j = 0
Do While s = i ^ 2
If s

答案

这样吧：
Private Sub Command1_Click()
i = 1:j = 0:s=i*i
Do While s