Amortizacion

Realizar amortizacion por el metodo aleman que trabaja con cuota fija.Se fija el interes de acuerdo al monto actual. La cuota es igual a la amortización mas el interés.Programacion del botón calcular.
El datagridview es la matriz. Primero pide la columna yluegosolicita la fila.
Dim t As Integer 'tiempo
Dim m As Double 'monto
Dim i As Double 'tasaDim am As Double 'amortizacion
t = txttiempo.Text
m = txtmonto.Text
i = (txttasa.Text) / 100

'generar la tabla de amortizacion
am = m / tdgvdatos.RowCount = t 'la cantidad de filas
For k = 1 To t
dgvdatos.Item(0, k - 1).Value = k 'se resta 1 porque empieza en 0
dgvdatos.Item(1, k - 1).Value = mdgvdatos.Item(2, k - 1).Value = am
dgvdatos.Item(3, k - 1).Value = m * i 'el interes
dgvdatos.Item(4, k - 1).Value = am + (m * i)
m = m - am 'elmonto se debe ir actualizando y se resta la amortizacion













Si quiero saber el total a pagar y la cuota promedio
Dim t As Integer 'tiempo
Dim m As Double 'montoDim i As Double 'tasa
Dim am As Double 'amortizacion
Dim s As Double 'acumulador
t = txttiempo.Text
m = txtmonto.Text
i = (txttasa.Text) / 100'generar la tabla de amortizacion
am = m / t
dgvdatos.RowCount = t 'la cantidad de filas
s = 0 'Antes del ciclo for el acumuladordebe ser 0
For k = 1 To tdgvdatos.Item(0, k - 1).Value = k 'se resta 1 porque empiezaen 0
dgvdatos.Item(1, k - 1).Value = m
dgvdatos.Item(2, k - 1).Value = am
dgvdatos.Item(3, k- 1).Value = m * i 'el interes
dgvdatos.Item(4, k - 1).Value = am + (m * i)
s = s + dgvdatos.Item(4, k - 1).Value 'suma lo anterior
m = m - am 'el monto...