Dim s1() As Integer = {20011,80023,50052,8017,3086} Dim s2() As Integer = {11,23,52,17,86} Dim s3() As Integer = {1,3,2,7,6} Dim ss(s1.length-1) As Double '定义一个数组pxsz s1.CopyTo(ss, 0) array.sort(s1,s2) array.sort(ss,s3) For i As Integer = 0 To s1.length - 1 output.show(s1(i) & "|" & s2(i) & "|" & s3(i) ) Next