帮忙用VB求解数列问题

有如下数列

T1=1+2+3,T2=5+6+7,T3=10+11+12,T4=16+17+18...

问T20=? T1+T2+T3+T4+...T20=?

dim i,j,T(20),total

j=1

for i=1 to 20'获得从T（1）到T（20）的数值

T(i)=3*j+3 '等价于T(i)=j+(j+1)+(j+2)

j=j+3'跨过三个数字

j=j+i '将没用的数字带过

next

for i=1 to 20'求得总和，保存到total

total=total+T(i)

next

msgbox "T20=" & T(20) & vbcrlf & "T1+T2+T3+T4+...T20=" & total