VBNet_AC08

Public Class Form1
// Actividad 08 - Interes Compuesto
    Dim capital As Decimal
    Dim interesmensual As Single
    Dim cuotas As Long


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        capital = TextBox1.Text
        interesmensual = TextBox2.Text
        cuotas = TextBox3.Text
        Label4.Text = InteresCompuesto(capital, interesmensual, cuotas)

    End Sub

    Function InteresCompuesto(ByVal capitas As Integer, ByVal interesmensual As Single, ByVal cuotas As Long) As Integer
        Dim i As Long
        Dim total As Integer
        total = capital
        For i = 1 To cuotas
            total = total + (total * interesmensual)
        Next
        InteresCompuesto = total - capital
    End Function
End Class