程序填空，求8=1+2+3+…+100的和。

Private Sub Form_Click()

n=1

s=0

Do while

s=

n=n+1

Loop

Print s

End sub