vb累加小习题 1+（1+2）+（1+2+3）+(1+2+3。。+n)

来源：百度知道 编辑：UC知道 时间：2024/06/01 17:00:40
累加我会咯
但是这个多项累加怎么做啊
我是新手 希望多帮帮忙

1+（1+2）+（1+2+3）+(1+2+3。。+n)

Const MAX = 5

Private Sub Command1_Click()
Dim n As Long, m As Long
Dim s As String
Dim k As Long
m = 0
For n = 1 To MAX
If n <> 1 Then
s = s & "("
End If
For k = 1 To n
If k <> n Then
s = s & Trim(Str(k)) & "+"
Else
If k = 1 Then
s = s & Trim(Str(k)) & "+"
Else
s = s & Trim(Str(k))