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)
js代码: 代码如下: [removed] = function(){ var mian = document.getElementById( “mian” ); var mian1 = document.getElementById( “mian1” ); var str = mian[removed]; var arry = []; var len = str.length; for( var i = 0; i < len; i++ ){ arry[ i ] = str[ i ];