Question

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

vb程序：求满足1^2+2^2+3^2+…+n^2＞1000的最小值的程序求各位大神帮忙用vb编一下程序！拜托

Answer 1

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

追问

能在帮我一下吗

这是题目

能现在帮我做一下吗？

我可以给你经验

Answer 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