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

Function js(n)
For i = 3 To n
js = js + (i - 2) * i
Next i
End Function

直接调用js()就行了

先定义一个全局变量long
dim hezhi as long
sub jisuan(n as integer)
dim q as integer,hezhi as long
hezhi=0
for q=1 to n-2
hezhi=hezhi + q*(q+2)
next
end sub

事件中调用
call jisuan(n)