close

程式碼:

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

arrow
arrow
    全站熱搜

    愛爾 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄