24h購物| | PChome| 登入
2008-02-26 08:41:14| 人氣53| 回應0 | 上一篇

費氏數列

推薦 0 收藏 0 轉貼0 訂閱站台

【程式碼】
Dim n As Long

n = Val(InputBox("輸入一整數"))

msg = n & "個費式數列 = "

Select Case n
Case 1:
msg = msg & "1"
Case 2:
msg = msg & "1,1"
Case Else
msg = msg & "1,1,"
f1 = 1
f2 = 1
For i = 3 To n
f3 = f1 + f2
msg = msg & f3 & ","
f1 = f2
f2 = f3
Next i

End Select
MsgBox Left(msg, Len(msg) - 1)

我要檢舉
台長： 瓜
人氣(53) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文