冒泡算法数据排序 数组复制

//冒泡算法
//数据排序 

//首先得先声明一个数据  我们用随机数的方式生成一个数据， 然后利用冒泡算法给数组排序
Dim myarray(5)//声明一个数组
For i = 0 To UBound(myarray) Step 1 //循环用随机数给各个元素赋值
    myarray(i) = 随机数(10, 50)
    TracePrint myarray(i)
Next
//随机数赋完值  然后我们来进行冒泡算法 数据排序让他从小到大排序
// 我们先来模拟一下各个元素的数据  然后来分析出冒泡算法的原理
Dim myarray_1(6)//假设我们让数据各元素等于  15 18 21 11 30 10 
myarray_1(0) = 15
myarray_1(1) = 18
myarray_1(2) = 21
myarray_1(3) = 11
myarray_1(4) = 30
myarray_1(5) = 10
TracePrint myarray_1(0)&" "&myarray_1(1)&" "&myarray_1(2)&" "&myarray_1(3)&" "&myarray_1(4)&" "&myarray_1(5)
//好了我们现在假设出来了这个数组元素的值的顺序是
//15 18 21 11 30 10 //我们要让他从小到大的排序
/* 
分析思路：   
             
            

     
我们先求出这六个数里的最小数 把他放到第0个位置里 然后在求出剩下五个数的最小数为别放到第12