Cómo utilizar VB Max (encontrar el valor máximo)

Es muy simple. Después de ordenarlo en orden descendente, el primero es el más grande

Función max(a() As Integer)

Dim b As. Entero, c Como entero, i Como entero, j Como entero, d Como entero

b = LBound(a): c = UBound(a)

Para i = b To c - 1

Para j = i + 1 Para c

Si a(i) < a(j) Entonces d = a(j): a(j) = a(i ): a (i) = d

Siguiente j

Siguiente i

max = a(0)

Función final

Simplemente escríbelo así

La llamada es muy simple

Por ejemplo:

Dim a(10) Como entero 10 es cuántos números que tienes Escribe algunos

a(?) = ? Esto te lo asigna

Imprimir max(a)