function mysum(byref a() as long) as long dim i as long dim s as long for i = 0 to ubound(a)s=s + a(i)nextmysum=send function
报答飞瀑教养可痘
