随机出数并排列

来源：互联网发布：java参数引用传递编辑：程序博客网时间：2024/04/29 21:34

Option Base 1
Private Sub Command1_Click()

    Cls
    Font.size = 30
    Dim n As Integer
    Dim size As Integer
    size = Int(Val(Text1.Text))
    Dim sierdun() As Integer
    ReDim sierdun(size) As Integer
    n = LBound(sierdun)

    While n <= LBound(sierdun)
         sierdun(n) = Int(Rnd * 1000)
         n = n + 1
    Wend
    '------------开始排序-----------！
     Dim swap As Integer
     m = LBound(sierdun)
     While m <= UBound(sierdun) - 1
           n = LBound(sierdun)
        While n <= LBound(sierdun) - m
         If sierdun(n) < sierdun(n + 1) Then
           swap = sierdun(n)
           sierdun(n) = sierdun(n + 1)
            sierdun(n + 1) = swap
         End If
         n = n + 1
     Wend
     m = m + 1
     Wend
     '-------------排序结束---------！
     n = LBound(sierdun)
     While n <= UBound(sierdun)
          Print sierdun(n)
          n = n + 1
    Wend


End Sub

0 0