编程：1+(1+2)+(1+2+3)+(1+2+3+4)+…(1+2+3+…N)+…
DO   While…L oop循环语句编写
很急啊
请高手给个指点啊！！！！！！！！

dim n as integer=cint(textbox1.text)
dim sum as long=0
dim i as integer=1
do while i<=n
sum+=i
i+=1
loop

dim n as integer=cint(textbox1.text)
dim sum as long=0
dim i as integer=1
do until i>n
sum+=i
i+=i
loop

加油

楼主，提问过去几天了，二楼的代码正确吗？

这段代码是错的，应该是这样：
 MsgBox(Sum(3))‘这段代码可以验证一下N为3时的结果
Private Function Sum(ByVal N As Integer) As Long
        Dim s As Long = 0
        Dim i As Integer = 1
        Do While i <= N
            Dim j As Integer = 1
            Dim s1 As Integer = 0
            Do While j <= i
                s1 += j
                j += 1
            Loop
            s += s1
            i += 1
        Loop
        Return s
    End Function