vb编写的对冒泡排序进行演示的程序，动态演示

Dim a(8) As Integer

Dim cou As Integer

Dim temp As Integer

Sub shownum()

Command1.Caption = a(1)

Command2.Caption = a(2)

Command3.Caption = a(3)

Command4.Caption = a(4)

Command5.Caption = a(5)

Command6.Caption = a(6)

Command7.Caption = a(7)

Command8.Caption = a(8)

End Sub

Private Sub Command10_Click()

cou = 0

For i = 1 To 8

For j = 1 To 8 - i

cou = cou + 1

If a(j) >a(j + 1) Then

temp = a(j + 1)

a(j + 1) = a(j)

a(j) = temp

End If

Call shownum

MsgBox ("完成第" &cou &"次排序")

Next j

Next i

MsgBox ("完成所有排序，共进行" &cou &"次排序")

End Sub

Private Sub Command9_Click()

Randomize

For i = 1 To 8

a(i) = Int(Rnd * 100) + 10

Next i

Call shownum

End Sub

Private Sub Form_Load()

cou = 0

End Sub

想制作程序演示视频，建议用

超级捕快

录制就可以

这软件支持录制整个程序演示视频画面，录制的视频质量非常赞，对录制时间是没有限制的，不会占用资源！

可以边录视频边录声音，不用整天压缩转换，声音质量非常好，录制的视频可以在电脑上播放！

软件支持保存为WMV，AVI，SWF，FLV格式的视频，视频参数可以灵活设置！

不仅如此，还有音视频广播，视频监控，硬件录制，定时录制等功能！

你可以试试看！

百度搜索

超级捕快

参考资料：http://hi.baidu.com/sxdm93/blog/item/d3dbec2904c085345243c15c.html

---