实现十个数排列

1. 打开VB软件
2. 在左侧工具箱中找到command的图标，在窗体中适当位置创建图标。
3. 双击窗体中command图标，在弹出的对话框中输入下列编码：

Private Sub Command1_Click()

Cls

Font.Size = 30

Dim sierdun(10) As Integer

n = 1

While n <= 10

    sierdun(n) = Int(Rnd * 1000)

    n = n + 1

Wend

Dim swap As Integer

m = 1

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 + 1) = swap

    End If

    n = n + 1

    Wend

    m = m + 1

Wend

n = 1

While n <= 10

    Print sierdun(n)

    n = n + 1

Wend

End Sub