'VB s大于1000的最小正数,其中S=1+2+3+...+N 代码是什么
Dim N As Integer
Dim S As Integer
N = 1
S = 0
Do While S < 1000
S = S + N
N = N + 1
Loop
N = N - 1