研究问题:求1-100的和
Option Base 1 '设置下界自动为1
Private Sub Command1_Click()
Dim a(100) as integer
Dim s as integer
For i = 1 to 100
a(i)=i
Next i
s=0
For i=1 to 100
Next i
Print"1+2+3+…+100=",s
End sub