Verified answer

CALCULO DE LA SERIE FIBONACCI DE NUMERO USANDO FUNCIONES

Function fibonaci(ByVal N As Integer) As String

Dim a, s, f, i As Integer

Dim serie As String

a = 0

s = 1

serie = "0,1"

For i = 3 To N Step 1

f = a + s

serie = serie & "," & f

a = s

s = f

Next i

fibonaci = serie

End Function

Sub limpiar()

Me.txtNum.Text = ""

Me.txtRes.Text = ""

Me.txtNum.SetFocus

End Sub

Private Sub cmdCalcular_Click()

If Not IsNumeric(txtNum.Text) Then

MsgBox "Solo Numeros Enteros", vbInformation, "Calculo de factorial"

Call limpiar

Exit Sub

End If

txtRes.Text = fibonaci(CInt(txtNum.Text))

End Sub

Private Sub cmdLimpiar_Click()

Call limpiar

End Sub

Private Sub cmdSalir_Click()

End

End Sub

CALCULO DE LA RAIZ CUADRADA DE NUMERO USANDO FUNCIONES

Function Raiz(N As Double) As Double

If N < 0 Then

Exit Function

Else

Raiz = Sqr(N)

End If

End Function

Private Sub cmdCalcular_Click()

If Not IsNumeric(Me.Text1.Text) Then

MsgBox ("solo numeros enteros"), vbInformation, "Raiz cuadrada"

Call limpiar

Exit Sub

Else

Text2.Text = Raiz(CDbl(Text1.Text))

End If

End Sub

Sub limpiar()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub cmdLimpiar_Click()

Call limpiar

End Sub

Private Sub cmdSalir_Click()

End

End Sub

Saludos, espero te sirva esa serie ya la hize cuando estudiaba y estan probadas por mi.