VB题求斐波那数列前20项奇数项之和第一项和第二项都是1从第三个元素开始,每个元素都是前两个元素的和PrivateSubFormClick()Dimd(100000),iAsLongd(0)=0d(1)=1Fori=2To20d(i)=d(i-1)+d(i-2)NextiF

Question

VB题求斐波那数列前20项奇数项之和 第一项和第二项都是1从第三个元素开始,每个元素都是前两个元素的和
Private Sub Form_Click()
Dim d(100000),i As Long
d(0) = 0
d(1) = 1
For i = 2 To 20
d(i) = d(i - 1) + d(i - 2)
Next i
For i = 0 To 20
Print d(i) And Space(5)
If i Mod 5 = 0 Then Print
Next i
Print "奇数"
For i = 0 To 20
If d(i) Mod 2 = 0 Then
Print d(i);
Next i
End Sub
这个哪错了

Answer 1

1、你的数组基数是0,所以前20项应该是d(0)-d(19),你可以在模块开头加上
OptionBase = 1
这样数组第一个元素索引就从1开始的,和我们日常的数字习惯更加吻合.
2、题目要的是奇数项而不是值是奇数的项目,所以
For i = 0 To 20
If d(i) Mod 2 = 0 Then
Print d(i);
Next i
应该是这样：
For i = 0 To 20
If i Mod 2 = 0 Then Print d(i);
Next i
PS:
Print d(i) And Space(5)
后面应该是分号