vb.net 使用进度条和Array类的排序方法

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mynum(100) As Integer
        Dim i As Integer
        For i = 0 To UBound(mynum)
            mynum(i) = Int(Rnd() * 1000)
        Next i
        Array.Sort(mynum) '使用.net的array类完成排序
        For i = 0 To UBound(mynum)
            ListBox1.Items.Add(mynum(i))
            '进度条
            ProgressBar1.Maximum = UBound(mynum)
            ProgressBar1.Value = i
        Next i

    End Sub

End Class