举报
h1t1qff
For i = 1 To tmp1(0) 用二维数组 dim abc(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 For i = 1 To 3 For j = 3 To i Step -1 If abc(i,1) > abc(j,1) Then temp = 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) = temp1 End If Next Next t="" for i=1 to 3 t=t & abc(i,0) & "有" & abc(i,1) & "个 " next text2.text=t