Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i=1 to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub
微信扫码预览、分享更方便