Cjwkcjw

FACTORIAL
Public Class Form1
Function factorial(ByVal x As Integer) As Integer
If (x = 0) Or (x = 1) Then
Return 1
Else
Return x * factorial(x - 1)
End If
End Function
Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = factorial(TextBox1.Text)
End Sub
End Class
POTENCIA
Public Class Form1Function potencia(ByVal x As Integer, ByVal y As Integer) As Integer
If (y = 0) Then
Return 1
Else
Return x * potencia(x, y - 1)
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button1.Click
TextBox3.Text = potencia(TextBox1.Text, TextBox2.Text)
End Sub
End Class
COMBINATORIO
Public Class Form1
Function combinatorio (ByVal n As Integer,ByVal r As Integer) As Integer
If (r = 0) Or (r = n) Then
Return 1
Else
If (r = 1) Then
Return n
Else
Return combinatorio(n - 1, r) + combinatorio(n - 1, r - 1)
End If
End If
End FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = combinatorio(TextBox1.Text, TextBox2.Text)
End Sub
End Class
FINOBACCIPublic Class Serie_de_Fibonacci
Public Function SerieDeFibonacci(ByVal Num As Integer)
Dim SerieFiboRecur As Integer
If Num = 0 Or Num = 1 Then
SerieFiboRecur = 1Else
SerieFiboRecur = SerieDeFibonacci(Num - 1) + SerieDeFibonacci(Num - 2)
End If
Return SerieFiboRecur
End Function
Private Sub btn_salir_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles btn_salir.Click
End
End Sub

Private Sub btn_limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btn_limpiar.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub

Private Sub Serie_de_Fibonacci_Load(ByVal sender As System.Object, ByVal...