Question

如何用VB语言编写这个程序?已知S=1+2+3+……+N,找出一个最大的整数N,使得S

Answer 1

dim n as integer

dim s as intger

Private Sub Command1_Click()

Do

n = n + 1

s = s + n

Loop untill s>=30000

Print n - 1

End Su