VB中编写一个子过程,计算1*3+2*4+3*5+····+（n-2）*n的值

题目似乎改成：
计算1*3+2*4+3*5+····+ n*（n+2）的值,比较合理!
通常,n表示项数,而n*（n+2）表示通项公式,即：
第1项是将n=1,代到n*（n+2）里得到的值,就是1*3
第2项是将n=2,代到n*（n+2）里得到的值,就是2*4
.
等等.
当键盘输入n,表示求该式的前n项的和.
比如输入3,就是求：1*3+2*4+3*5
比如输入2,就是求：1*3+2*4
所以代码为：
dim n as integer
dim s as double
dim i as integer
n = Val(InputBox("输入一个正整数!"))
s =0
for i = 1 to n
s = s + i*(i+2)
next i
Print s