在做VB编程练习的时候遇到一个编程题，老是算不到应有的答案，希望网友能帮我解决一下问题如下：

计算：S=1+(1+2)+(1+2+3)+...+(1+2+3+4…+n)的值。请用Visual Basic的编程的方式表达出来
前面的开头我都懂得写就是在定义他计算过程的时候不知道如何去写了
Private Sub Form_Load()
Dim k,n,s,a As Integer 这个是开头的变量

中间的定义该如何给以上的变量赋值

n = Val(InputBox("请输入n："))
Show
后面的该如何去编辑这个逻辑思维呢
End Sub
题目的要求是能都让1+括号中的值等于S
在线等答案