VB编程

一，10个数排序

        PrivateSub Command1_Click()

        Dim n As Integer

        Dim sierdun(10) As Integer

        n = 1

        While n <= 10

                sierdun(n) = Int(Rnd * 1000)

                n = n + 1

        Wend

          n = 1

          While n <= 10

               Print sierdun(n)

               n = n+ 1

        Wend

      End Sub

二，将最小数放在最后一个

    PrivateSub Command1_Click()

    Dim n As Integer

    Dim sierdun(10) As Integer

    n = 1

    While n <= 10

        sierdun(n) = Int(Rnd * 1000)

        n = n +1

    Wend

    n = 1

    While  n <= 10

       Printsierdun(n)

       n = n + 1

    Wend

    Dim swap As Integer

    n = 1

    While n <= 9

     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

     

     

     

  End Sub

 三，赋值

      OptionBase 1

      Private Sub Command1_Click()

      Cls

      Dim n As Integer

      Dim size(10) As Integer

      n = 1

        While n <= 10

            sierdun(n) = Int(Rnd * 1000)

       n= n + 1

     Wend

     Dim swap As Integer

     m = LBound(sierdun)

        While m <= 9

     n = 1

     While n <= 10 - m

     If sierdun(n) < sierdun(n + 1) Then

    swap = sierdun(n)

    sierdun(n) = sierdun(n + 1)

    sierdun(n) = swap

    End If

    n = n + 1

    Wend

    m = m + 1

    Wend

  End Sub