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


[ 本帖最后由 因为曾今年少 于 2011-4-18 15:33 编辑 ]

Private Sub Command1_Click()
Dim MY, I, S, N%
N = 5
   
       For I = 1 To N
          S = S + I
          MY = MY + S
         
        Next I
MsgBox MY
End Sub


Private Sub Command2_Click()
Dim MY, I, S, N%
N = 5
Do While I <= N
 S = S + I
MY = MY + S
I = I + 1
Loop
MsgBox MY
End Sub



'两种方法都可，N取值随便，如果数据大  定义数据类型为别的类型

[ 本帖最后由 坚强坚持 于 2011-4-26 22:01 编辑 ]

从0测到5都对~

Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long, total As Long

    total = 0: i = 0: j = 0: k = 0
    Text1.Text = 0: Text1.Enabled = False
    j = InputBox("Input Number ?")
    Do While i < j + 1
        For k = i To j
            total = total + i
        Next k
        i = i + 1
    Loop
    Text1.Text = total
End Sub