编写VB程序,急!!!

[复制链接]
查看11 | 回复1 | 2010-9-8 14:53:41 | 显示全部楼层 |阅读模式
下列数:1,1,2,3,5,8,13,21……从第二个数起,第三个数等于前两个是的和,求20个数是多少。

多谢了

回复

使用道具 举报

千问 | 2010-9-8 14:53:41 | 显示全部楼层
你说的是20个数是多少?修改了下Private Sub Command1_Click()Print 1Print 1Dim c, d As Integera = 1b = 1i = 1Doi = i + 1c = a + bd = b + ca = cb = dPrint aPrint bLoop Until i = 10End Sub
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行