Question

VB编程 累加器的问题 已知S=1+2+3·······+N,找出一个最大的整数N,使得S

Answer 1

dim s as long,n as integer

For n=1 to 30000

if s +n >=30000 Then Exit For

s=s+n

Next

Msgbox "最大数是" & n