vb求斐波那契数列前10项和
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 05:31:57
vb求斐波那契数列前10项和
Private Function bq(ByVal s As Long) As Long
Select Case s
Case 1
bq = 1
Case 2
bq = 1
Case Is >= 3
bq = bq(s - 1) + bq(s - 2)
End Select
End Function
Private Sub Command1_Click()
summ = 0
For i = 1 To 10
summ = summ + bq(i)
Next i
Print summ
End Sub
结果 143
Select Case s
Case 1
bq = 1
Case 2
bq = 1
Case Is >= 3
bq = bq(s - 1) + bq(s - 2)
End Select
End Function
Private Sub Command1_Click()
summ = 0
For i = 1 To 10
summ = summ + bq(i)
Next i
Print summ
End Sub
结果 143