Imports System

'Aplicación para cálculo de interés y valor de cuotas       

Public Module Module1

    Public Sub Main()

        dim valorproducto as double 

        dim tasainteres, interes, valortotalproducto, enganche, valorcuota as double 

        dim numerocuotas as integer 

        Console.WriteLine("Ingrese valor del producto: ")

        valorproducto = Console.ReadLine() 

        Console.WriteLine("Ingrese porcentaje de tasa de interés: ")

        tasainteres = Console.ReadLine()

        Console.WriteLine("Ingrese número de cuotas: ")

        numerocuotas = Console.ReadLine()

        'Cálculo de Interés

        interes = valorproducto * (tasainteres/100) * numerocuotas 

        valortotalproducto = valorproducto + interes 

        Console.WriteLine("Ingrese valor de enganche: ")

        enganche = Console.ReadLine()

        if enganche > 0 then 

            valorcuota = (valortotalproducto - enganche) / numerocuotas

        Else 

            valorcuota = valortotalproducto / numerocuotas 

        End if 

        Console.WriteLine("Valor inicial del producto: Q.{0:F2}" ,valorproducto) 

        Console.WriteLine("Interés por crédito: Q.{0:F2}" ,interes)

        Console.WriteLine("Valor final del producto: Q.{0:F2}" ,valortotalproducto)

        Console.WriteLine("Total de cuota mensual a pagar: Q.{0:F1}" ,valorcuota)  

        Console.WriteLine("a " & numerocuotas & " meses") 

    End Sub

End Module