程序填空，当单击窗体后，计算出1+2+3+……+N<500的最大值，并在文本框中显示出来

Private Sub Form-Click()

Dim S As Integer

Dim N As Integer

N=0

S=0    ‘S变量存放的是总和

Do While    (条件)

N=N+1

S=S+N

Loop

Text1. Text=Str()

End Sub