VB求1,2,3,5,8…的数列

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

我也遇到过这个，看这里

已经测试通过

http://hi.baidu.com/andy%5Flvhongbo/blog/item/5753a2232919daad4623e8c0.html

这个简单啊！尽管我的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酒好办了！

你要的是这个数列的和？