VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5385
ClientLeft = 60
ClientTop = 450
ClientWidth = 10755
LinkTopic = "Form1"
ScaleHeight = 5385
ScaleWidth = 10755
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox TextFSlist
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 5295
Left = 0
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 0
Width = 10695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
On Error Resume Next
Dim num1, num2, num3, a As Integer
num1 = 1
num2 = 1
TextFSlist.Text = num1
TextFSlist.Text = TextFSlist.Text & "->" & num2
For a = 1 To 50
TextFSlist.Text = TextFSlist.Text & "->" & num1 + num2
num3 = num2
num2 = num1 + num3
num1 = num3
Next a
End Sub