1.编程：1+(1+2)+(1+2+3)+(1+2+3+4)+…(1+2+3+…N)+…
DO   While…Loop循环语句编写

这之前不是解过了～怎又问一次～

https://bbs.bccn.net/viewthread.php?tid=337086&page=1#pid1947841

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

Private Sub Command1_Click()
Dim i As Integer, n As Integer, t As Integer, sum As Integer
n = InputBox("请输入N值")
Do While i < n + 1
 For t = 1 To i
 sum = sum + t
 Next
 i = i + 1
 Loop
 Print sum
End Sub