求1+2+3+……+100累加和(单击窗体执行程序)。

Private sub form_click()

Dim  i%，s！          (2’)

S=0                   (2’)

For i=1 to 100           (2’)            

S=s+I               (2’)

Next

Print “s=”;s            (2’)

End Sub