VB练习题程序1

[复制链接]
查看11 | 回复1 | 2007-6-21 11:43:26 | 显示全部楼层 |阅读模式
用个递归算法就OK了,并且可以计算任意An的值dim n as longprivate function A(n as long) as long
select case n
case 1,2
A=1
case 3
A=2
case else
A=A(n-3)+2*A(n-2)+A(n-1) '递归算法核心
end selectend functionform1.print A(N) 'N随你取,比如A(23),注意要把form的属性autoRedraw设置为true,不然用以下两个语句也可以'debug.print A(N)'msgbox A(N)
回复

使用道具 举报

千问 | 2007-6-21 11:43:26 | 显示全部楼层
函数Public Function A(index As Integer) As LongSelect Case indexCase 1, 2A = 1Case 3A = 2Case ElseA = A(index - 3) + 2 * A(index - 2) + A(index - 1)End SelectEnd Function直接A(n)即可求值.
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行