1
« en: Viernes 9 de Abril de 2010, 04:45 »
Hola que tal este es mi primera participación en el foro.
Estoy empezando a programar en Visual Basic 2005 y como todo principiante en programación, se me ocurren muchas ideas pero no conosco muy bien los elementos y las funciones de visual basic 2005.
Bueno sin mas rodeos les muestro mi codigo Sucecion de Fibonacci en forma Recursiva.
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long
n = TextBox1.Text
If n = 0 Then
Form2.TextBox1.Text = 0
Form2.Show()
Me.Hide()
ElseIf n = 1 Then
Form2.TextBox1.Text = 1
Form2.Show()
Me.Hide()
ElseIf n < 0 Then
MsgBox("No existe suceción de numeros Negativos", MsgBoxStyle.Information)
TextBox1.Text = ""
ElseIf n >= 2 Then
Form2.TextBox1.Text = Fibon(n)
Form2.Show()
Me.Hide()
End If
End Sub
Private Function Fibon(ByVal n As Long) As Long
Dim num As Long
If n = 1 Or n = 2 Then
num = 1
Else
num = Fibon(n - 2) + Fibon(n - 1)
End If
Return num
End Function
End Class
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.TextBox1.Text = ""
Form1.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
En el formulario dos quisiera poner otro boton que imprima la sucecion ya que en el formulario uno solo en boton de Button1_Click me imprime el puro resultado. ¿Mi pregunta es como hago para que me imprima la sucesion hay alguna funcion?