陆生:
SUbdemo()dimiaslong,jaslong,kaslongdimarr(1to50)aslong,t(1to10)aslongFori=1to50arr(i)=inextForj=1to10callfy(arr)Fork=1to10t(k)=arr(k)nextkrange("a"&j+1&":j"&j+1)=tnextendSUbfunctionfy(arr)dimiasinteger,kasinteger,tdimlasinteger,uasintegerl=lbound(arr....