冒泡法问题！！！！高分悬赏！！！急！！！

添加两个label 组件
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Const n = 100
Dim a(n), i, j, t As Integer
Dim tmpstr As String
Randomize()
tmpstr = "显示排序前的A元素：" & Chr(13) & Chr(10)
For i = 0 To n - 1
a(i) = Int(Rnd() * 100) + 1
tmpstr = tmpstr & a(i) & " "
Next i
Label1.Text = tmpstr
For j = 0 To n - 2
For i = 0 To n - 2 - j
If a(i) < a(i + 1) Then
t = a(i)
a(i) = a(i + 1)

a(i + 1) = t

End If
Next i
Next j

tmpstr = "显示排序后的A元素：" & Chr(13) & Chr(10)
For i = 0 To n - 1
tmpstr = tmpstr & a(i) & " "

Next i
L