Programas de recursividad y otros, creados en Visual Basic 2005

1. Resumen
2. Dos valores enteros son o no iguales
3. Un caracter dado es o no una letra
4. Un entero es o no par
6. Máximo común divisor sin recursividad
7. Mayor de tres valores reales
8. a Elevado a la n, siendo a y n números reales con recursividad
9. Sucesión Fibonacci con recursividad
10. Máximo común divisor de dos números enteros con recursividad
11. Combinatorio (n c r) con recursividad
12. Factorial de un numero usando recursividad
13. Edad de una persona
14. Programa para obtener las 6 funciones trigonométricas de un ángulo introducido en radianes
15. Programa para convertir un valor introducido en radianes, a grados-minutos-segundos

RESUMEN

En este documento se presentan los códigos de 14 programas muy interesantes y útiles creados en Visual Basic 2005. En muchos de ellos se utiliza recursividad. Solamente hará falta crear el formulario y los objetos que coincidan con el código presentado en cada programa. En general será fácil crear el formulario con los objetos, para luego copiar y pegar el código y así ejecutar cada uno de los programas.

1. DOS VALORES ENTEROS SON O NO IGUALES

Public Class Form1

Function iguales(ByVal x As Integer, ByVal y As Integer) As Boolean

If x = y Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox3.Text = iguales(TextBox1.Text, TextBox2.Text)

End Sub

End Class

2. UN CARACTER DADO ES O NO UNA LETRA

Public Class Form1

Function letraono(ByVal x As String) As Boolean

If Val(TextBox1.Text) = 0 Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = letraono(TextBox1.Text)

End Sub

End Class

3. UN ENTERO ES O NO PAR

Public Class Form1

Function parono(ByVal x As Integer) As Boolean

Dim residuo As Integer

residuo = x Mod 2

If residuo = 0 Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = parono(TextBox1.Text)

End Sub

End Class