TOP

Visual Basic Consola - Selección 01




01.  Ingresar un número del 1 – 12 y mostrar el mes del año correspondiente, si el número no es correcto mostrar un mensaje de error.


Imports System.Console
Module Module1
    Dim num
    Sub Main()
        Write("Ingrese un número 1 - 12 : ")
        num = ReadLine()
        Select Case num
            Case 1 : WriteLine("Enero")
            Case 2 : WriteLine("Febrero")
            Case 3 : WriteLine("Marzo")
            Case 4 : WriteLine("Abril")
            Case 5 : WriteLine("Mayo")
            Case 6 : WriteLine("Junio")
            Case 7 : WriteLine("Julio")
            Case 8 : WriteLine("Agosto")
            Case 9 : WriteLine("Setiembre")
            Case 10 : WriteLine("Octubre")
            Case 11 : WriteLine("Noviembre")
            Case 12 : WriteLine("Diciembre")
            Case Else : WriteLine("Número del mes incorrecto")
        End Select
        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.