Imports System

​

Public Module ServiciosLista_Altas_Bajas_Insercion_OrdenamientoporBurbuja

    dim datos() as string       ' vector cuyo alcance es global (lo conocen todos los bloques)

    Public Sub Main()

        dim opcion=""

        dim bandera as boolean

        datos={56.69,11.28,18.64,6.45,25.84,52.42,44.57,14.46,47.87,15.72,22.19,15.24,7.77,11.69,19.90,17.20,8.21,60.10,17.62,49.28,25.98,41.17,6.63,17.20,17.20,41.37,28.99,31.13,17.20,17.20,35.60,66.61,10.70,58.93,10.89,48.92,30.55,57.55,73.42,10.23,37.98,12.32,17.20,66.57,13.17,78.46,19.14,57.28,15.33,5.60}

        imprimeLista("CONJUNTO ORIGINAL DE DATOS",datos)

        while bandera=false

            opcion=menu()

            select case opcion

            case "a","A"

                altas()

            case "b", "B"

                bajas()

            case "l", "L"

                imprimeLista("IMPRESIÓN DE DATOS SOLICITADA",datos)

            case "S","s"

                bandera=true

            case "I","i"

                insertar()

            case "O","o"

                ordenar()

            case "E", "e"

                estadisticas()

            case else

                console.WriteLine("Opción no válida")

            end select

        end while

    End Sub

    public sub estadisticas()

        dim suma as double

        dim media as double

        dim moda as double

        dim i as integer

        for i=0  to datos.Length - 1

        suma = suma + datos(i)

​

    next 

    media= suma/(i-1)

    console.WriteLine("La Media es de: ", media)

    console.WriteLine("La Moda es: ", moda)

    console.WriteLine()

    end sub

    public sub ordenar()

        ' ordenamiento usando el método de la burbuja

        dim i,j,n as integer

        dim aux as string

        n=datos.GetUpperBound(0)

        for i=0 to n-1 

            for j=0 to n-i-1

                if datos(j)>datos(j+1)

                    aux=datos(j)

                    datos(j)=datos(j+1)

                    datos(j+1)=aux

                end if

            next j

        next i

    end sub

​

    public sub insertar()

        dim datoAinsertar as string

        dim direccionAinsertar as integer

        dim x as integer

        datoAinsertar = solicitadato("Captura dato a insertar")

        direccionAinsertar=solicitadato("Ingresa la dirección donde se  insertará nueva valor")

        redim preserve datos(datos.GetLength(0))

        x=datos.GetUpperBound(0)

        while x>direccionAinsertar

            datos(x)=datos(x-1)

            x=x-1

        end while

        datos(direccionAinsertar)=datoAinsertar

    end sub

    public sub altas()

        redim preserve datos(datos.GetLength(0))

        datos(datos.GetUpperBound(0))=solicitadato("Captura dato a agregar")

    end sub

​

    public sub bajas()

        dim datoAeliminar as string

        dim direccionHallado as integer

        datoAeliminar = solicitadato("Captura dato a eliminar")

        direccionHallado=direccionCoincidencia(datoAeliminar)

        if direccionHallado=-1

            console.writeline("Dato no hallado")

        else

            while direccionHallado<datos.GetUpperBound(0)

                datos(direccionHallado)=datos(direccionHallado+1)

                direccionHallado=direccionHallado+1

            end while

            redim preserve datos(datos.GetUpperBound(0)-1)

        end if

    end sub

​

    Public function solicitadato(mensaje as string)

        console.WriteLine(mensaje)

        return console.ReadLine()

    End function

    public function menu() 

dim opcionesmenu={"(A)lta","(B)aja","(I)nsertar","(L)istado","(O)rdenar","(E)stadisticas","Salir"}

        dim respuesta as char

        imprimeLista("Escoja opción del menú ",opcionesmenu)

        respuesta=console.readline()

        return respuesta

    end function

​

    Public Function direccionCoincidencia(valorBuscado as string)

        dim x as integer

        for x=0 to datos.GetUpperBound(0)

        if datos(x)=valorBuscado

            return x

        end if

        next x

    return -1

    End Function

​

Public sub imprimeLista(Cadena as string, Byval ParamArray lista() as string)       ' imprime el contenido de un vector

    dim x as integer

    console.WriteLine("----------------{0}------------------",Cadena)

    for x=0 to lista.GetUpperBound(0)

    Console.WriteLine("[{0:00}]:{1}", x, lista(x))

    next x

    console.writeline()

End Sub

​

End Module