已知S=1+2+3+.......+N,找出一个最大的整数N，使得S<30000。编写程序解决这个问题。
要求用do   loop until
Private Sub Command1_Click()
n = 0
s = 0
Do
n = n + 1
s = s + n
Loop Until s > 30000
Print "s="; s, "n="; n

End Sub
这里>30000 时S=30135 N=245不各要求吧
俺刚来，如何写更完善呢。

Private Sub Command1_Click()
Dim n&, s&
n = 0
s = 0
Do
n = n + 1
s = s + n
Loop While s < 30000
Print "s="; s, "n="; n
End Sub

2楼的答案不对吧。

通过循环找出S 后，需要 对S进行修正，
s=s-n
n=n-1

再输出结果来吧。

二搂的是不对。

Private Sub Command1_Click()
Dim n, sum
n = 0
sum = 0
While sum < 30000
    n = n + 1
    sum = sum + n
Wend
sum = sum - n
n = n - 1
Debug.Print sum
Debug.Print n
End Sub

29890
 244

只用do while