已知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不各要求吧
俺刚来，如何写更完善呢。

二搂的是不对。

只用do while