vb.net2005冒泡排序程序求助

从100以内的数里随机产生10个整数，输出在第一个文本框中，再进行从大到小排序，输出在第二个文本框中。要求：窗体设计界面一个按钮两个文本框，冒泡排序法进行排序。必须用vb.net2005进行编程。谢谢！！！

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim loOrginalArr(9) As Integer
    Dim loRnd As New Random

    Dim loOutputStr As New System.Text.StringBuilder
    Randomize(Now.Millisecond)
    For i As Integer = 0 To 9
    loOrginalArr(i) = loRnd.Next(0, 100)
    loOutputStr.AppendFormat("{0}  ", loOrginalArr(i))
    Next
    Me.TextBox1.Text = loOutputStr.ToString

    BubbleSort(loOrginalArr)

    Dim loResultStr As New System.Text.StringBuilder
    For Each liResult As Integer In loOrginalArr
    loResultStr.AppendFormat("{0}  ", liResult)
    Next
    Me.TextBox2.Text = loResultStr.ToString

    End Sub

    Private Sub BubbleSort(ByRef aoOrginalArr() As Integer)
    Dim temp As Integer = 0

    For i As Integer = 0 To aoOrginalArr.Length - 1
    Dim lbChangedFlag As Boolean = True
    For j As Integer = 0 To aoOrginalArr.Length - i - 2
    If aoOrginalArr(j) > aoOrginalArr(j + 1) Then
    temp = aoOrginalArr(j)
    aoOrginalArr(j) = aoOrginalArr(j + 1)
    aoOrginalArr(j + 1) = temp
    lbChangedFlag = False
    End If
    Next

    If lbChangedFlag Then
    Exit For
    End If
    Next

    End Sub

End Class

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！