Imports System

Public Module Module1

    dim dias as integer

    dim cuenta as integer

    dim valord as double

    dim sumas as double

    dim septimo as double

    dim totals as double

    dim descuento as double

    dim siono as integer

    dim si as double

    Public Sub Main()

        Console.WriteLine("Calculo de Planilla")

        Console.WriteLine("Realizado por Salomé Hernández")

        Console.WriteLine("ingrese Días Laborados")

        dias = Console.ReadLine()

        cuenta = 0

        for cuenta = 1 to dias step 1 

        console.WriteLine("Ingrese Valor del día " &cuenta)

        valord = Console.Readline()

        'sumas = sumas+valord

        sumas += Valord

    next

        'si labora 6 dias se hara el calculo del septimo

        '7 = promedio de los 6 dias laborados

        'mostrar total de la semana

        if dias = 6 then

            septimo = sumas/6

            totals = sumas+septimo

            Console.WriteLine("El total semanal es = Q."&totals)

    else

        Console.WriteLine("EL total semanal es: Q."&sumas)

        end if 

    'complementos : verificar descuentos

    ' si hay total a recibir = totals - descuentos

    ' si no hay total = totals 

        Console.WriteLine("Existe algun descuento")

        Console.ReadLine()

    if Console.ReadLine = si then 

        dim total as double

        Console.WriteLine("Ingrese el descuento")

        descuento = Console.ReadLine()

        Total = totals-descuento

        Console.WriteLine("El total semanal es: Q."&Total)

    else

        Console.WriteLine("EL total semanal es: Q."&totals)

    end if 

    End Sub

End Module