51问答网 > vb程序：求满足1^2+2^2+3^2+…+n^2＞1000的最小值的程序

vb程序：求满足1^2+2^2+3^2+…+n^2＞1000的最小值的程序

2025-02-23 23:12:14

推荐回答（2个）

回答1：

如图所示，n=14时，和为1015。望采纳。。。。。

回答2：

50分少了

。。。。。。。。。。。。。

Private Sub Command1_Click()
Dim n As Integer
n = 0
Dim sum As Integer
sum = 0
Do While sum < 1000
    n = n + 1
    sum = sum + n ^ 2
Loop
Print n
Print sum
End Sub