Red de conocimiento informático - Conocimiento del nombre de dominio - Urgente, urgente, un problema de vb, programando de la forma más sencilla posible

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