有如下数列
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
