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
推荐
- 斐波那契数序列分别用递归法和递推法输出这个数列的前20项VB代码
- vb用递归法求Fibonacci数列的第20、200项
- 输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢
- 用VB编程,求Fibonacci数列的前40个数以及它们的和.
- 求Fibonacci数列的前20项
- 一条神经属于哪个结构层次?为什么呢?
- 修一个圆形水池,它的底面半径是4米,池深2.5米.它能蓄水多少升?
- 选择单词,用其适当的形式填空,使短文意思正确、通顺.(每词限用一次)
猜你喜欢