a.
private sub converse(dim a() as variant ) dim t for i = lbound(a) to ubound(a) t = a(i) a(i) = a(ubound(a) - i) a(ubound(a) - i) = t next i end sub
b.
private sub converse(dim a() as variant) dim t dim j as integer j = (lbound(a) ubound(a)) / 2 for i = lbound(a) to j t = a(i) a(i) = a(ubound(a) - i) a(ubound(a) - i) = t next i end sub
c.
private sub converse(a() as variant) dim t for i = lbound(a) to ubound(a) t = a(i) a(i) = a(ubound(a) - i) a(ubound(a) - i) = t next i end sub
d.
private sub converse(a() as variant) dim t dim j as integer j = int((lbound(a) ubound(a)) / 2) for i = lbound(a) to j t = a(i) a(i) = a(ubound(a) - i) a(ubound(a) - i) = t next i end sub