Imports System

Imports Microsoft.VisualBasic

​

​

Public Module Module1

    Public Sub Main()

      'En este ejemplo se desea generar nombres de usuarios de empleados, a partir de su primer nombre 

        'y primer apellido.

​

        'Usaremos 4 maneras distintas de resolverlo, y también se utilizará una función 

        'para contar los caracteres del nombre.

​

        'Para crear los usuarios se solicitó que fuera conformado por las 3 primeras letras del nombre, 

        'y las cuatro primeras letras del apellido.

​

        'Pero primero solicitaremos los datos del nombre y apellido

​

        Dim nombre, apellido, usuario, nacimiento As String

        Dim opc, cantidad As Integer

​

        Console.WriteLine("Ingrese el primer nombre del empleado")

        nombre = (Console.ReadLine.ToLower)

        Console.WriteLine("Ingrese el primer apellido del empleado")

        apellido =(Console.ReadLine.ToLower)

​

        'Proceso de Generar nombre de usuario, teniendo diferentes opciones para hacerlo

        Console.WriteLine("¿Cuál función desea utilizar?")

        Console.WriteLine("Opcion 1 - Función Left")

        Console.WriteLine("Opcion 2 - Función Left y Right")

        Console.WriteLine("Opcion 3 - Función SubString")

        Console.WriteLine("Opcion 4 - Función Remove")

        Console.WriteLine("Opcion 5 - Función Len")

        opc = Console.ReadLine

​

        Select Case opc

            Case 1

​

                Console.WriteLine("**********************")

                Console.WriteLine("Utilizó Función Left...")

                Console.WriteLine()

            usuario = Strings.Left(nombre, 3) & Left(apellido, 4)

                Console.WriteLine("Nombre de usuario final: " & usuario)

            Case 2

​

                Console.WriteLine("**********************")

                Console.WriteLine("Utilizó Función Left y Right...")

                Console.WriteLine()

                Console.WriteLine("Ingrese el año de nacimiento del empleado")

                nacimiento = Console.ReadLine

                usuario = Left(nombre, 3) & Left(apellido, 4) & Right(nacimiento, 2)

                Console.WriteLine("Nombre de usuario final: " & usuario)

​

            Case 3

​

                Console.WriteLine("**********************")

                Console.WriteLine("Utilizó Función SubString...")

                Console.WriteLine()

                Console.WriteLine("Ingrese el año de nacimiento del empleado")

                nacimiento = Console.ReadLine

                usuario = nombre.Substring(0, 3) & apellido.Substring(0, 4) & nacimiento.Substring(2, 2)

                Console.WriteLine("Nombre de usuario final: " & usuario)

            Case 4

​

                Console.WriteLine("**********************")

                Console.WriteLine("Utilizó Función Remove...")

                Console.WriteLine()

                Console.WriteLine("Ingrese el año de nacimiento del empleado")

                nacimiento = Console.ReadLine

                usuario = nombre.Remove(3, nombre.Length - 3) & apellido.Remove(4, apellido.Length - 4) & nacimiento.Remove(0, 2)

                Console.WriteLine("Nombre de usuario final: " & usuario)

​

            Case 5

                'En este caso, se contará cuantos caracteres tiene el nombre del empleado.

                Console.WriteLine("**********************")

                Console.WriteLine("Utilizó Función Len...")

                Console.WriteLine()

                cantidad = Len(nombre) + Len(apellido)

                Console.WriteLine("El nombre del empleado tiene " & cantidad & " caracteres")

            Case Else

                Console.WriteLine("Ingresó una opción no válida")

        End Select

      End Sub

End Module

​