vb(在线等)怎么把一个数组里的100个整数读出来并降序显示在文本框中？

冒泡排序

Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Dim c As Integer
b = 0
For i = 1 To 100
For j = i + 1 To 100
If a(i) < a(j) Then
c = a(i)
a(i) = a(j)
a(j) = c
End If
Next j
Next i

For i = 1 To 100
Text1.Text = Text1.Text & a(i) & " "
Next i
End Sub

Private Sub Form_Load()
Randomize (Timer)
For i = 1 To 100
a(i) = Rnd * 500
Next i
End Sub