Vectores:estadística(mediana) en Visual Basic 2010

En el ámbito de la estadística, la mediana representa el valor de la variable de posición central en un conjunto de datos ordenados

Este proyecto realiza el ordenamiento y busca la mediana.

Para realizar un ejemplo de la mediana en visual basic 2010 se crea una interfaz como la 

siguiente, que permitirá ingresar la cantidad de datos que usted desee.

Lo primero que se realiza es declarar un vector dinámico, hace referencia al tamaño que tendrá el vector, es el contador que sumara las vueltas que da para saber el número de datos que se ingresó.

Dim numeros() As Integer 'declarando el vector dinamico

    Dim tamano As Integer  'hace referencia al tamaño que tendra el vector

    Dim resultado As String

El código para el botón “ingresar datos” es el siguiente:

tamano = Val(InputBox("Cuantos datos ingresara")) - 1 ' Se pregunta cuantos datos agregara

        ReDim Preserve numeros(tamano) ' conserva los datos ingresados anteriormente

        For i As Integer = 0 To tamano 'ciclo que recorre el  vector

            numeros(i) = InputBox("proporcione cada valor de los elementos (" & i + 1 & ")")

            resultado = resultado + numeros(i)

        Next

El código para el botón “ordenar” es el siguiente:

Dim i As Integer

        Dim temporal As String

        Dim j As Integer

        For i = 0 To tamano ' i recorre de la posicion 0 a la posicion 9 en la vuelta  

            For j = i To tamano ' j va de la posicion en que esta recorriendo i  hasta la ultima posicion

                If numeros(i) > numeros(j) Then 'compara al numero en que esta la posicion i actualmente con en numero en que

                    'esta la posicion j actualmente

                    ' en esta parte si lo enterior se cumple se intercambian los datos

                    temporal = numeros(i)

                    numeros(i) = numeros(j)

                    numeros(j) = temporal

                End If

            Next

        Next

El código para el botón “mediana” es el siguiente:

       tamano = Val(InputBox("Cuantos datos ingresara")) - 1 ' Se pregunta cuantos datos agregara

        ReDim Preserve numeros(tamano) ' conserva los datos ingresados anteriormente

        For i As Integer = 0 To tamano 'ciclo que recorre el  vector

            numeros(i) = InputBox("proporcione cada valor de los elementos (" & i + 1 & ")")

            resultado = resultado + numeros(i)

        Next

El código para el botón “limpiar” es el siguiente:

 

TextBox1.Text = ""

El código para el botón “salir” es el siguiente:

Me.Close()

Descargar proyecto:mediana