求小于1000的完全平方数之和,算法Private Sub Command1_Click()i = 1:j = 0Do Whil_数学解答

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

人气：222 ℃　时间：2020-04-16 06:47:14

解答

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