n=inputbox("请您输入","提示","5AA是@##中S4我3t%^^$grf国sg人f")l=len(n)redim s(l-1)for i=0 to l-1s(i)=asc(mid(n,i+1,1))nextcall paixufor i=o to l-1sn=sn & chr(s(i))nextmsgbox sn,4096,"排序结果"sub paixu()for i=0 to l-1for j=i+1 to l-1
if s(i)>s(j) then tmp=s(i):s(i)=s(j):s(j)=tmpnextnextend sub'用VBS写的 |