Escrito en VB para encontrar el valor máximo, el valor mínimo y el valor promedio en una matriz y resolver el problema de los subíndices fuera de los límites ~
Subcomando privado 1_Click()
Dim a (1 a 6) es un número entero, max, min es un número entero, aver es un valor único
Min = 127 * 256 255 'Set Mínimo "punto de partida".
Para i = 1 a 6
A(i) = Val(InputBox ("InputNo. "i&"Element:"))
Texto1. Texto = Texto1. Texto ampa(i) y amp","
Suma = suma a(i)
Si a(i)>max entonces max = a(i)
Si a(i) lt;min entonces min = a(i)
Siguiente i
Texto 2. Texto = máx
SMS 3. Texto = min
promedio = Suma / 6
Texto 4. Texto = aver
Conector final