求一道VB题目代码，急啊

Question

已知下面的级数S(n)，设n=45，编程计算所有奇数项之和S1和所有偶数项之和S2，要求输出二者之差的绝对值。
S(n)=1*2*3+2*3*4+3*4*5+…+n*(n+1)*(n+2)+…

Answer 1

题目是不是有问题，我有10多年没有碰这些数学题来了，概念还有点不清楚。主要是你的所有奇数项之和为0，其二，s(n)怎么后面还有省略号，其三，你的项指的是s(i)，还是i*(i+1)*(i+2).如果指的是i*(i+1)*(i+2)，那么s1=0,s2=s(n),两者之差的绝对值也是s(n).那我就给你做一个指的是s（i）。
Private Sub Command1_Click()

For i = 1 To 45
a = i * (i + 1) * (i + 2) '代表a(i)
b = b + a '代表s(i)
s = s + b '代表所有s（i）的和
If b Mod 1 Then
c = b
Else
d = b
End If
s1 = s1 + c
s2 = s2 + d
cha = Abs(s2 - s1)
Next
Label1.Caption = "所有项的和为：" + Str(s) + Chr(13) + "所有奇数项的和为：" + Str(s1) + Chr(13) + "所有偶数项的和为：" + Str(s2) + Chr(13) + "所有偶数项的和与所有奇数项的和的差的绝对值为：" + Str(cha)
End Sub

Answer 2

窗体上画两个标签,一个按钮
Private Sub Command1_Click()
caculate (50)
End Sub
Sub caculate(ByVal k As Integer)
s1 = 1
s2 = 1
For i = 1 To k Step 2
s1 = s1 * i * (i + 1) * (i + 2)
Label1.Caption = "奇数项之和：" & s1
Next i
For i = 2 To k + 1 Step 2
s2 = s2 * i * (i + 1) * (i + 2)
Label2.Caption = "偶数项之和：" & s2
Next i
End Sub

Answer 3

代码如下:

Private Sub Form_Click()
s = 0
For a = 1 To 45
b = a * (a + 1) * (a + 2)
If a Mod 2 = 0 Then s = s - b Else s = s + b
Next a
Print Abs(s)
End Sub

结果是50232

Answer 4

我没有 VB 应该考虑的是会不会内存溢出
如果没有，应该很简单，如果会，
我想首先是用数学解决两者之差的 S(n) 是什么