打印文章

高校等考试题天天练二级VB]10月30日

作者：佚名文章来源：不详点击数更新时间：2008/4/18 14:49:26 文章录入：杜斌责任编辑：杜斌

知识点：冒泡排序
下面事件过程产生10个两位的正的随机整数，并利用冒泡法升序排序，请完善它。
Private Sub Command1_Click()
    Dim a(10) As Integer
    For m = 1 To 10
      a(m) = [  （1） ]
    Next m
    For m = 1 To 9
      For n = [  （2） ] To 10
        If a(m) [  （3） ] a(n) Then t = a(m): a(m) = a(n): a(n) = t
      Next n
    Next m
    For m = 1 To 10
      Print a(m);
    Next m
End Sub

打印本文

关闭窗口