Utilice vb.net para escribir una función para encontrar el elemento máximo de cualquier matriz de enteros

función privada maxnum(byval a() como entero) como entero

dim i como entero

maxnum=a(0)

para i = 1 a ubound(a)

si a(i)gt；maxnum entonces maxnum=a(i)

siguiente

función final