Visual Basic - Enesimo Termino

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Enesimo Termino

Publicado por Christopher (2 intervenciones) el 12/01/2022 14:46:23
Hola a todos.

quisiera solicitar su ayuda con el código de lo siguiente:

Construya una función iterativa que permita determinar el enésimo término de la “Sucesión
CAP3”.
La sucesión tiene la siguiente regla:
Se inicia con dos números naturales (a y b), que se suman de a pares y generan el siguiente
valor.
ejemplo: suponga que a=1 y b=1, entonces 1+1=2 | 1+2=3 | 2+3 = 5 | 3 + 5 = 8… la sucesión
queda como
1,1,2,3,5,8…


gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enesimo Termino

Publicado por Andres Leonardo (1798 intervenciones) el 12/01/2022 20:23:33
Pues no es tan dificil, aunque aqui no hacemos tareas.. te adjunto lo que preguntas... intenta entenderla


3 parametros 1 para a 1 para b otro para N que sera las veces que se repita
haces que se sumen y corran las variables pra volver a sumar hasta N veces que indcas
para el ejemplo usas 4 text boxes para ver ver algo asi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    Text4.Text = FiboV2(Text1.Text, Text2.Text, Text3.Text)
End Sub
 
Private Function FiboV2(a As Integer, b As Integer, n As Integer) As String
    Dim t As Integer
    FiboV2 = a & "," & b & ","
    For i = 1 To n - 1
        t = a + b
        a = b
        b = t
        FiboV2 = FiboV2 & t & ","
    Next i
End Function

fibov2

fibov22
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar