帮忙用VB求解数列问题

来源：百度知道 编辑：UC知道 时间：2024/05/19 18:31:52
有如下数列
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

Dim i As Integer, T(1 To 20) As Long, Total As Long
Total = 0
T(1) = 1 + 2 + 3

For i = 2 To 20
T(i) = 3 * (2 + i) + T(i - 1) '从第2项开始往后的的通项
Next

For i = 1 To 20
Total = Total + T(i)
Next

MsgBox "T(20)=" & T(4)
MsgBox "T(1)到T(20)的和为：" & Total