Dim i,j 
su= "105875|502150|411400|63525|111925|90750"  //获取到的物品价格
su=Split(su, "|")
M = UBound(su)
  //升序排序  
  For i = 0 To UBound(su)-1    //i=0 的时候 j循环是从 1循环到数组最小不   第一轮循环，su（0）和su (1）-su(5)进行比较 选择6个数中最小的数放到su（0）   第二轮循环 su（1）和su（2）-su（5）比较
        For j = i+1 to UBound (su)
            If int(su(i)) > int (su(j)) Then // 数组是字符串的 所以需要用int改为数值型 否则会出现错误
                tran = su(j)
                su(j) = su(i)
                su(i) = tran   //如果前一个数比后一个数大，就交换位置 
            End If 
        Next 
    Next
 
// 降序排序
    For i = 0 To UBound(su)-1   
        For j = i+1 to UBound (su)
            If int(su(i))<int (su(j)) Then // 数组是字符串的 所以需要用int改为数值型 否则会出现错误
                tran = su(j)
                su(j) = su(i)
                su(i) = tran   //如果后一个数比前一个数大，就交换位置 
            End If 
        Next
    Next