VB6.0 动态演示冒泡法过程，冒泡法的使用平时也是很常见的，本源码演示数组的冒泡法排序，开始排序后，气泡的颜色有所变化。部分代码如下： 　　Option Base 1 　　Dim b(5) As Shape '建立形状数组和标签数组 　　Dim a(5) As Label 　　Private Sub Form_Activate() '窗体激活事件 　　Randomize 　　For i = 1 To 5 '随机生成5个数 　　 Set a(i) = Label1(i) 　　 Set b(i) = Shape1(i) 　　 a(i).Tag = Int(Rnd * 99) 　　 a(i