> 其他 >
vb求斐波那契(Fibonaccii)数列前20项的和
人气:334 ℃ 时间:2020-06-05 22:21:00
解答
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 20
summ = summ + bq(i)
Next i
Print summ
End Sub
推荐
猜你喜欢
© 2025 79432.Com All Rights Reserved.
电脑版|手机版