〝 急件 〞 幫我寫一個程式，題目在裡面 ２０點！！謝謝

Question

題目: (1)可以查詢費氏數列第n項的值，費氏數列的第1項及第2項

均 為1，第n項為第n-2項加第n-1項的和。

(2)程式需加入錯誤的處理。

(3)若查詢成功，附帶印出九九乘法表。查詢第5項印出5*5
表 ，如超過第9項以上皆印出9*9表(那列數字為參考位置
用須一併印出)。

那列數字→5*5為123456789012345
9*9為123456789012345678901234567



拜託你們了，這個很急　　１／７號以前就要

謝謝！！　　︿︿

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim n As Integer, a As Integer, b As Integer
Dim buf As String
a = 1: b = 1
Do
k = 1
buf = InputBox("請輸入欲查詢的項數: ")
If Not IsNumeric(buf) Then
MsgBox "項數必須是整數啦."
k = 0
ElseIf (Val(buf) < 3) Then
MsgBox "@!!!項數至少為3以上,重來啦!"
k = 0
End If
Loop While k = 0
n = Val(buf)
For i = 3 To n
k = a + b
a = b
b = k
Next i
Print 費氏數列第 " & n & " 項 = " & k
If (n > 9) Then n = 9
For i = 1 To n
buf = ""
For j = 1 To n
buf = buf & Format(i * j, "@@") & " "
Next j
Print buf
Next i
End Sub
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.