填空题

下列程序用来计算1+2+…n，当和大于100时停止计算，请填空。
Private Sub Form_Click()
Dim n as integer，S as integer，I as integer，k as integer
s=0
k=0
n=inputbox(”请输入n的值)
For i=1 to 100
　k=k+1
　s=s+1
______
Next 1
Print s
End Sub