se me están atascando las neuronas
Bueno, para el máximo...el mínimo es fácil implementarlo a partir de aquí
Código:
<%
max = 0
indiceMax = 0
For i = 0 to Ubound(a)
If a(i) > max Then
max = a(i)
indiceMax = i
End If
Next
Response.Write "Indice: " & IndiceMax & "<br>Valor: " & max
%>
Ya después la puedes meter en una Sub, o separarla en dos Functions, pero así debiera funcionar
Salu2,