用VB写设计程序代码，求：s=1+(1+2)+(1

Private Sub Command1_Click() Dim i As Integer, j As Single, n As Integer, m As Integer, l As Long n = 100 m = 0 l=0 For i = 1 To n m = 0 For j = 1 To i m = m + j Next l = l + m Next Print l End Sub