文件名称：VB6.0 动态演示冒泡法过程.rar
文件大小：3KB
文件格式：RAR
更新时间：2022-07-30 05:13:29
VB源码-算法相关
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).Caption = a(i).Tag b(i).Width = a(i).Tag * 5 150 '设置气泡大小 b(i).Left = 600 - b(i).Width / 2'设置气泡垂直对齐 Next i Command1(0).Enabled = True End Sub
【文件预览】：
srcfans.com
----动态演示冒泡法过程()
--------Form1.frm(8KB)
--------E161.vbp(684B)
--------MSSCCPRJ.SCC(189B)
--------E161.vbw(48B)