Question

用VB语言求满足 1^2+2^2+3^2+4^2+…+N^2<1000最大的N值，写出代码

Answer 1

Dim i As Integer
Dim s As Integer
i = 1
Do
s = s + i * i
i = i + 1
Loop Until s > 1000
MsgBox i - 1
答案是14 望采纳

Answer 2

sum=0
i=0
while sum <1000
i=i+1
sum=sum+i*i
wend
msgbox "最大N值为 " & i-1

Answer 3

sum=0
i=0
while sum <1000
i=i+1
sum=sum+i*i
wend
msgbox "最大N值为 " & i

Answer 4

Private Sub Form_Click()
s = 0
i = 1
Do While s < 1000
s = i * 2 + s
i = i + 1
Loop
Print i - 2
End Sub