TOP

Visual Basic Consola - Secuenciales 09




09.  Digite el número del mes y el número de día de dicho mes. Mostrar el número total de días transcurridos desde el inicio de este año, considerando que todos los meses tienen 30 días.


Imports System.Console
Module Module9
    Dim mes, dia
    Sub main()
        Write("Ingrese Número del mes 1 - 12 : ")
        mes = ReadLine()
        Write("Ingrese Número de día 1 - 30 : ")
        dia = ReadLine()

        WriteLine()
        WriteLine("Dias Transcurridos desde el Inicio del Año : " & (mes * 30) + dia)
        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.