Programación VB: una competencia calificada por siete jueces Ingrese las puntuaciones y elimine las puntuaciones más altas y más bajas para mostrar la puntuación promedio.
Dim max,min,sum=0 Siempre;
max=min=a[0];
para i=1 a 9 Paso 1
si a[i]>max Entonces
max=a[i];
Fin si
si a[ i] min=a[i]; Finalizar si suma=a[i]+sum; Siguiente i Text1.Text=CInt(sum-max-min)/8 Este es un problema de algoritmo. La entrada y la salida las establece usted mismo. Los datos se colocan en la matriz a[]. un problema de algoritmo. Este algoritmo es muy clásico.