Desconocido
|
| Enviado - 28/9/2004 |
| |
Hola soy guruHacker, ahi te va mi ayuda, si lo necesitas con funcion recursiva lo solicitas a [email protected]
Asumo que puedes crear la interfaz necesaria.
Private Sub cmdAceptar_Click()
Dim FB() As Double, Termino As Integer, i As Integer, n As Integer
n = Val(txtN.Text)
Termino = n
lstFB.Clear
If Termino >= 2 And Termino <= 1477 Then
ReDim FB(Termino - 1)
FB(0) = 0
FB(1) = 1
For i = 2 To Termino - 1
FB(i) = FB(i - 1) + FB(i - 2)
Next i
ElseIf Termino > 0 And Termino < 2 Then
ReDim FB(1)
FB(0) = 0
FB(1) = 1
Else
lstFB.AddItem "error"
End If
If Termino >= 0 And Termino <= 1477 Then
For i = 0 To Termino - 1
lstFB.AddItem FB(i)
Next i
End If
End Sub
|
| |
|
