已知一个数列的前三项为345,以后每个数为前三个数之和,vb编程求此数列的第26项

[复制链接]
查看11 | 回复2 | 2013-5-31 09:47:41 | 显示全部楼层 |阅读模式
Dim a1,a2,a3,a4,i As Integera1=3:a2=4:a3=5for i=4 to 26 a4=a1+a2+a3a1=a2a2=a3a3=a4next输出a4即可...
回复

使用道具 举报

千问 | 2013-5-31 09:47:41 | 显示全部楼层
Dim i As IntegerDim re(100) As Doublere(1) = 345re(2) = 345re(3) = 345For i = 4 To 100
re(i) = re(i - 1) + re(i - 2) + re(i - 3)
If i = 26 Then
MsgBox ...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行