用二维数组
dimabc(3,1)
abc(1,0)=1:abc(1,1)=a
abc(2,0)=2:abc(2,1)=b
abc(3,0)=3:abc(3,1)=c
Fori=1Totmp1(0)用二维数组dimabc(3,1)abc(1,0)=1:abc(1,1)=aabc(2,0)=2:abc(2,1)=babc(3,0)=3:abc(3,1)=cFori=1To3Forj=3ToiStep-1Ifabc(i,1)>abc(j,1)Thentemp=abc(i,1):temp1=abc(i,0)abc(i,1)=abc(j,1):abc(i,0)=abc(j,0)abc(j,1)=temp:abc(j,0)=temp1EndIfNextNextt=""fori=1to3t=t&abc(i,0)&"有"&abc(i,1)&"个"nexttext2.text=t