Dimi%Dima()AsInteger={，，，，，，}Fori=ToUBound(a)a(i)=a(i)*a(i)NextiMsgBox(a(i))