Esta tontería no se merece una noticia... (salvo para los que se dediquen a cuestiones de diseño).
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim miArray(0 To 19) As Object ' por ejemplo, o un tipo numérico que prefieras... si luego quieres añadir elementos uno a uno.
Dim miMumero As Int32
Dim miIndice As Byte
Private Sub TextBox1_Validating(... , ByVal e As CancelEventArgs) Handles textBox1.Validating
Try
miMumero = Integer.Parse(TextBox1.Text)
TextBox1.Clear() ' es lo mismo que Textbox1.Text = ""
e.Cancel = False
Catch
e.Cancel = True
MessageBox.Show("El texto no puede ser interpretado como un número (o número entero), o bien excede el valor de un int32....", "Error...")
' puedes seleccionar el texto del control, o borrarlo... en cualquier caso el foco regresa al control textbox, para editar su contenido...
End Try
End Sub
Private Sub TextBox1_Validated(sender..., e As EventArgs) Handles TextBox1.Validated
miArray(miIndice) = miMumero
miIndice += 1
If (miIndice < 20) Then
MessageBox.Show("Número almacenado, introduzca el siguiente número...")
TextBox1.Focus()
Else
TextBox1.Enabled = False
Button1.Enabled = False
Call Calcular() ' ahora que tenemos el array completo, podemos hacer el resto de cosas.
End if
end Sub
Private Sub Calcular()
miArray(0) = 12
miArray(15) = 87
Array.Sort(miArray, 0, 20) ' No son precisos los 2 parámetros, si no se indican se ordena todo el array, pero los pongo, para que te des cuenta, que puedes ordenarlo parcialmente si fuera preciso.
Array.Reverse(miArray) ' invertimos el orden, o bien mediante un bucle añadir elementos al listbos, uno a uno, empezando por el final del array...
ListBox1.Items.AddRange(miArray) ' Si declaraste el array de tipo numérico, usa un bucle con el método Add (por ejemplo).
' Suma
Dim suma As Int32
For k As Byte = 0 To 19
suma += miArray(k)
Next
MessageBox.Show("La suma total del array es: " & suma.ToString)
' Media, mediana, moda ???
Dim media As Single = (suma \ 20)
MessageBox.Show("La media de los valores del array es: " & media.ToString)
End Sub