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
