问题描述: vb求斐波那契(Fibonaccii)数列前20项的和 1个回答 分类:综合 2014-10-17 问题解答: 我来补答 Private Function bq(ByVal s As Long) As LongSelect Case sCase 1bq = 1Case 2bq = 1Case Is >= 3bq = bq(s - 1) + bq(s - 2)End SelectEnd FunctionPrivate Sub Command1_Click()summ = 0For i = 1 To 20summ = summ + bq(i)Next iPrint summEnd Su 展开全文阅读