La media indica el promedio
de un conjunto de datos.
Para determinar el promedio es necesario realizar la
suma de todos los datos y dividirlo entre
el número de elementos.
Para realizar un ejemplo de
la media 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() 'declarando el
vector dinámico
Dim tamano As Integer = 0 'hace
referencia al tamaño que tendrá el vector
Dim con As Integer = 0 'Es el contador
que sumara las vueltas que da para saber el numero de datos que se ingreso
El
código para el botón “ingresar datos” es el siguiente:
tamano = Val(InputBox("Cuantos
datos ingresara")) - 1 ' Se pregunta
cuantos datos agregara
For I As Integer = 0 To tamano
'ciclo que recorre el
vector
con = con + 1 ' contador que suma las vueltas
que dara el ciclo
tamano = tamano + 1
ReDim Preserve
numeros(tamano) ' conserva los datos ingresados
anteriormente
numeros(tamano) = InputBox("ingrese el
dato (" & I + 1 & ")")
Next
El
código para el botón “promedio” es el siguiente:
Dim subtotal As Single
Dim resultado As Single 'se declara la
variable tipo single para que acepte decimales
For I As Integer = 0 To tamano
subtotal = subtotal + (numeros(I))
' resultado = subtotal / con
Next
'MsgBox("El promedio es " & resultado)
resultado = subtotal / con
TextBox1.Text = ""
TextBox1.Text = (resultado)
El código para el botón “salir” es el siguiente:
Me.Close()
No hay comentarios:
Publicar un comentario