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

分类: 作业答案 • 2022-09-26 14:04:36

问题描述：

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

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