下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。 Private Sub Form_Click()Dim n as inte
下列程序用来计算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+I
【 】
Next i
Print s
End Sub
![](https://lstatic.shangxueba.com/sxbcn/h5/images/tips_org.png)