Private Sub Command1_Click()
  Call sub1
End Sub
Static Sub sub1()
  Dim i%, sum%
  For i = 1 To 10
    sum = sum + 1
  Next i
  Print sum
End Sub

知道了，不好意思哦

说到1+2+。。。+100，虽说可以很快计算得到，但这种编程思路是不提倡的。要好好学习一下算法。伟大的算法祖师高斯小学的时候，就解决了这个问题。编程的话，执行3个语句就能得到结果，比起老实的编程思路不知道要快多少。这个算法被计算机界奉为为什么要研究算法的经典案例。

[ 本帖最后由 vbvcr51 于 2014-7-4 17:32 编辑 ]

呵呵，sum=sum+i楼主看出来的是这个吧？