VB求1,2,3,5,8…的数列
答案:4 悬赏:50 手机版
解决时间 2021-07-30 07:26
- 提问者网友：轮囘Li巡影
- 2021-07-29 21:19
求：1,2,3,5,8…的数列？ 急阿！救命
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-07-29 22:25
Module Module1
Function Fun(ByVal index As Integer) As Integer
If (index = 1 OrElse index = 2) Then
Return index
Else
Return Fun(index - 1) + Fun(index - 2)
End If
End Function
Sub Main()
For i As Integer = 1 To 10
Console.Write(Fun(i) & " ")
Next
End Sub
End Module
全部回答
- 1楼网友：忘川信使
- 2021-07-30 01:54
我也遇到过这个，看这里
已经测试通过
http://hi.baidu.com/andy%5Flvhongbo/blog/item/5753a2232919daad4623e8c0.html
- 2楼网友：轻熟杀无赦
- 2021-07-30 01:04
这个简单啊！尽管我的VB不怎么会！但我的思想，应该满足你的要求！
private sub comand1_onclick()
dim s as integer
dim n as integer
dim i as integer
n=inputbox("输入数量个数")
dim array（n）as integer //定义数组，应该这样吧，我不太清楚！
array(0)=1
array(1)=2
for i=2 to n-1
array(i)=array(i-1)+array(i-2)
next
然后输入数组就行了吧！这个要是用PHP酒好办了！
- 3楼网友：躲不过心动
- 2021-07-29 23:54
你要的是这个数列的和？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯