Private Sub Form _Click()
Dim s As Integer,n as Integer
Show
S =0 : n=1
Do While n<=100
S= s+n
n=n+1
Loop
Print “1+2+3+…100=”;s
End sub
Private Sub Form _Click()
Dim s As Integer,n as Integer
Show
S =0 : n=1
Do While n<=100
S= s+n
n=n+1
Loop
Print “1+2+3+…100=”;s
End sub