Option Base 1
Private Sub Command1_Click()

Dim arr() As Integer, m As Integer, i As Integer, a As Integer
For a = 0 To Op1.Count - 1
If Op1(a).Value = ture Then
m = Val(Op1(a).Caption)
End If
Next a
ReDim arr(m)
arr(1) = 1
arr(2) = 1
For i = 3 To m
arr(i) = arr(i - 1) + arr(i - 2)           这里i=24的时候老是溢出，实在找不到原因
Next
Text1.Text = arr(m)
End Sub