TOP

Visual Basic Consola - Selección 04




04.  Se pide ingresar una letra del alfabeto y mostrar si dicha letra es vocal o consonante.


Imports System.Console
Module Module4
    Dim letra As String
    Sub Main()
        Write("Ingrese una Letra : ")
        letra = ReadLine()
        WriteLine()
        Select Case letra.ToUpper
            Case "A" : WriteLine("Vocal")
            Case "E" : WriteLine("Vocal")
            Case "I" : WriteLine("Vocal")
            Case "O" : WriteLine("Vocal")
            Case "U" : WriteLine("Vocal")
            Case Else : WriteLine("Consonante")
        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.