求在VB中如何输出1+(1+2)+(1+2+3)...（1+2+...n）的式子（在线等）

Question

不是要求所得的值，是要怎么编写才能输出过程。就是式子
例如输入3
那么输出1+(1+2)+(1+2+3)
以此类推。
一下是得出答案的代码。
Dim n As Integer, s As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入一个数："))
For i = 1 To n
For j = 1 To i
s = s + j
Next j
Next i
t1.Text = s

Answer 1

Dim n As Integer, s As Integer, i As Integer, j As Integer
a = ""
b = ""
n = Val(InputBox("请输入一个数："))
For i = 1 To n
For j = 1 To i
If j = 1 Then a = 1 Else a = a & "+" & j
s = s + j
Next j
If b = "" Then b = a Else b = b & "+" & "(" & a & ")"
Next i
MsgBox b & "=" & s

Answer 2

Private Sub Form_Click()
Dim n As Integer, s As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入一个数："))
For i = 1 To n
For j = 1 To i
s = s + j
Next j
Next i
Print s
End Sub

追问

囧~~
我是需要在计算的同时输出
1+(1+2)+(1+2+3)...（1+2+...n）