VB编程 1+1+2+1+2+3...

补充：i=1 l=1 
i=2 l=1+1+2=4
i=3 l=1+1+2+3=16
i=4 l=1+1+2+3+1+2+3+4=36
我的这个程序可以完成1以后的加法
但缺点就是当i=1时就不能用了
		

追问：是错的啊 你用4测试一下 结果等于20啊
4 应该是
1+1+2+1+2+3+1+2+3+4=36

答案：
没有vb环境... 用vba搞的...
Function func(n)

    func = n * (1 + n) / 2

End Function

Sub run()

    Dim sum As Long
    
    sum = 0
    
    For i = 1 To 1000
    
        sum = sum + func(i)
    
    Next i

End Sub
你做错了，应该是
for i=1 to 100
a=a+i
b=b+a
next i
Print b

上一个：计算机VB编程
下一个：VB编程问题