Urgente, urgente, un problema de vb, programando de la forma más sencilla posible
función maxSum(a() como entero, b() como entero, c() como entero) como entero
dim i, m, n, K, min, temp
dim t() como número entero
i=ubound(a)
m=ubound(b)
n=ubound(c)
temp=0
min=i
si mint; m entonces min=m
si n entonces min=n
redimificar t(min)
para k=0 a min
t(k)=a(k) b(k) c(k)
si templt;t(k) entonces temp=t(k)
siguiente
maxSum=temp
para k= 0 a min
si t(k)=maxSum entonces
debug.print a(k), b(k), c(k)
salir para
finalizar si
finalizar función