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

最新推荐文章于 2026-06-01 09:49:18 发布

最新推荐文章于 2026-06-01 09:49:18 发布 · 474 阅读

收录于

.net&silverlight

当前文章被收录于：

.net&silverlight

58 篇文章 3 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个简单的VB.NET程序，该程序生成一个包含100个随机整数的数组，并使用.NET框架内置的Array.Sort方法对其进行排序。排序后的数组被依次添加到ListBox中，并通过ProgressBar显示当前进度。

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