TOP

Visual Basic Consola - Secuenciales 06




06. Una persona recibe un préstamo de $100.00 de un banco y desea saber cuánto pagará de interés, si el banco le cobra una tasa del 2% mensual. Ingresar el número de meses por teclado.



Imports System.Console

Module Module6
    Dim meses
    Sub main()
        WriteLine("El Banco le PRESTO $1,000")
        Write("Ingrese Número de meses a pagar : ")
        meses = ReadLine()

        WriteLine()
        WriteLine("TASA MENSUAL 2%")
        WriteLine("INTERESES : S/." & (1000 * (meses * 0.02)))
        Write("El total a pagar es : S/." & 1000 + (1000 * (meses * 0.02)))
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.