紧急求助，求1+2+3……+100的VB编程代码；

Private Sub Form_Click()
Dim I as Integer,S as Integer
For i=1 to 100
S=S+I
Next
Print S
End Sub

这个的···
dim i as Integer
i <> 100
i=i+1

或
dim i as Integer
i =i+1
if i=100 then ```````

Print (1+100)*100/2
梯形面积还记得吗