2008-02-26 08:41:14瓜
費氏數列
【程式碼】
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)
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)