Dim aa=array(1,2,3,4,5,6,7)for i=lbound(a) to ubound(a) a(i)=a(i)*a(i)next iprint a(i)结果是什么？