Imports System

​

Public Module ServiciosLista_Altas_Bajas_Insercion_Ordenamiento

    dim datos(50,0) as double  ' vector cuyo alcance es global (lo conocen todos los bloques)

    Public Sub Main()

        dim opcion=""

        dim bandera as boolean

        datos={{18.3, 19.0, 21.5, 25.8, 23.1, 10.2, 15.9, 19.8, 32.1, 22.9, 33.6, 38.9, 40.2, 27.0, 45.0, 16.8, 27.6, 19.2, 35.9, 39.5, 10.0, 13.2, 14.7, 16.3, 39.1, 30.7, 30.9, 27.7, 28.4, 29.5, 12.7, 32.6, 14.9, 34.7, 19.4, 26.4, 18.8, 38.4, 40.3, 40.4, 37.3, 27.2, 43.5, 12.3, 11.1, 15.5, 38.6, 14.7, 40.0, 50.0}}

        imprimeMuestra("DATOS SOLICITADA")

        while bandera=false

            opcion=menu()

            select case opcion

            case "a","A"

                'altas()

            case "b", "B"

                'bajas()

            case "l", "L"

                imprimeMuestra("MUESTRA SOLICITADA")

            case "S","s"

                bandera=true

            case "I","i"

                'insertar()

            case "E","e"

                estadisticas()

            case "O","o"

                ordenar()

            case else

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

            end select

        end while

​

    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.GetLength(1)

        for i=0 to n-1 

            for j=0 to n-i-2

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

                    aux=datos(0,j)

                    datos(0,j)=datos(0,j+1)

                    datos(0,j+1)=aux

                end if

            next j

        next i

    end sub

​

    public sub insertar()

dim datoAinsertar as double

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")

         Dim 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 estadisticas()

dim datoAinsertar as double

dim direccionAinsertar as integer

dim x as integer

datoAinsertar = solicitadato("Captura dato a insertar")

direccionAinsertar=solicitadato("Ingresa la dirección donde se insertara nuevo valor")

Dim datos(datos.GetLength(1))

x=datos.GetUpperBound(0)

while x>direccionAinsertar

    datos(0,x)=datos(0,x-1)

    x=x-1

end while

datos(direccionAinsertar)=datoAinsertar

end sub

Public sub imprimeLista(Cadena as string, Byval ParamArray lista() as double)

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 double

        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 

    opcionesmenu={"(A)lta","(B)aja","(I)nsertar","(L)istado","(O)rdenar","(S)alir"}

        dim respuesta as char

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

        respuesta=console.readline()

        return respuesta

    end function

​

public function menu2()

dim opcionesmenu

opcionesmenu={"(M)edia","mo(d)a"}

dim respuesta as char 

imprimeLista("Escoja opcion del menu ", 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 imprimeMenu(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}", lista(x))

    next x

    console.writeline()

End Sub

​

Public sub imprimeMuestra(Cadena as string)

dim x as integer 

Console.WriteLine ("----------------{0}----------------",cadena) 

for x=1 to datos. Getlength(1)

Console.Write("[{0:00}]:{1}", x-1, datos(0, x-1))

If (x mod 10) =0

Console.WriteLine() 

End if

Next x

Console. WriteLine() 

End sub

End Module