求 小于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