按键精灵冒泡排序举例

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

发布日期:

所属分类: 编程 标签:


没有相关文章!