代码如下:arr="ABCDEFGHIJKLMNOPQRSTUVWXYZ"Forj=1To26Step1a=Mid(arr,j,1)Fork=1To26Step1b=Mid(arr,k,1)Forl=1To26Step1c=Mid(arr,l,1)Foru=1To26Step1d=Mid(arr,u,1)Fori=1To26Step1e=Mid(arr,i,1)Foro=1To26Step1f=Mid(arr,o,1)TracePrinta&b&c&d&e&fNextNextNextNextNextNext