题目

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

提问时间：2021-01-23

答案

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