参考答案

Private Sub Command1_Click()
    Dim f1, f2, f As Long
    Dim a(40) As Long
        f1 = 1
    f2 = 1
    a(1) = f1
    a(2) = f2
    For i = 3 To Val(Text1.Text)
      f = f1 + f2
      a(i) = f
      f1 = f2
      f2 = f
    Next
    Text2.Text = a(40)
End Sub
Private Sub Command2_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub