VB程序设计求VB程序 数列:s=1×2+2×3+……+n×(n+1),设计题”

dim i as integer
dim n as integer
dim s as integer
s=0
n=inputbox("输入N值:","提示",1) '输入N值
for i=1 to n
s=s+i*(i+1)
next i
print s '显示计算结果

循环 例如a=1,S=0那可以设B=a*(a+1) 然后 a++
再s=s+b
这样就可以了!~ 呵呵 我不知道VB的代码应该怎么写...

private sub command1_click
dim n as integer,i as integer
dim sum as long
n=inputbox("请输入N的值")
sum=0
for i=1 to n
sum=sum+x(i)
next i
print "sum="sum
end sub
function x(byval n as integer) as long
dim i as integer
x=1
for i=1 to n
x=i*(i+1)
next i
end function