已知s=1+2+3+。。。+n找出一个最大整数N使得是《30000 这用VB怎么写

望各位大侠帮帮忙,小弟我下午就要会考了
2024-11-30 08:23:22
推荐回答(1个)
回答1:

Dim s, i As Integer
i = 1
s = 0
While s < 30000
s = i + s
i = i + 1
Wend
N = i - 1
N为所求的值应为245