上一秒我們還不認識，或許下一秒我們就一起談心事=]

Private Sub Command1_Click()
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
msg = msg & Left(msg, Len(msg) - 1)
End Select

MsgBox msg
End Sub