随机输出十个数且最后一个最小

1.在左侧工具栏中找到一个Commandbutton图标，并在适当位置创建。

2.双击Command1，在弹出的窗体中输入以下程序内容

Cls
Font.Size = 20
Dim n As Integer
Dim sierdun(10) As Integer

n = 1

While n <= 10
    sierdun(n) = Int(Rnd * 1000)
    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
n = 1
While n <= 10
    Print sierdun(n)
    n = n + 1
Wend
3.点击启动，开始运行。运行结果如下图