Programacion

Dim cant1, cant5, cant10, cant25 As Double
Dim t1, t5, t10, t25, total, cuenta As Double
Dim opcion, r, a As Integer
Dim cont As Char

total = 0
cuenta =0

Console.WriteLine("********************************************")
Console.WriteLine("** Programa para sacar cuentas en monedas **")Console.WriteLine("********************************************")
Console.WriteLine()

Console.WriteLine("Sabe que cantidad de personas atendera:")
Console.WriteLine("1. SI")
Console.WriteLine("2.NO")
opcion = Console.ReadLine()
Console.WriteLine()

Select Case opcion
Case 1
Console.WriteLine("Ingrese la cantidad de personas queatendera:")
a = Console.ReadLine()
Console.WriteLine()

For r = 1 To a

Console.WriteLine("Persona " & r)Console.WriteLine("Ingrese la cantidad de monedas de 1 centavo:")
cant1 = Console.ReadLine()
Console.WriteLine("Ingrese la cantidad de monedas de 5 centavos:")cant5 = Console.ReadLine()
Console.WriteLine("Ingrese la cantidad de monedas de 10 centavos:")
cant10 = Console.ReadLine()Console.WriteLine("Ingrese la cantidad de monedas de 25 centavos:")
cant25 = Console.ReadLine()

Console.WriteLine()

t1 = cant1 *0.01
t5 = cant5 * 0.05
t10 = cant10 * 0.1
t25 = cant25 * 0.25
total = t1 + t5 + t10 + t25Console.WriteLine("Total es: $" & total)

Console.WriteLine()

Console.WriteLine("Ingrese el monto de la factura:")
cuenta =...