设计一个程序。在上面框（文本框）中产生任意100个数，将其中>=50的数排序后放到下面的框中

Private Sub Form_Load()
Dim I, J As Integer
Dim A(100) As Integer
Dim Temp As Integer
Text1.Text = "": Text2.Text = ""
'产生100个随机数
Randomize
For I = 0 To 99
A(I) = Int(Rnd * 100)
Text1.Text = Text1.Text & A(I) & " "
Next I
'排序
For I = 0 To 98
For J = I + 1 To 99
If A(I) > A(J) Then
Temp = A(I): A(I) = A(J): A(J) = Temp
End If
Next J
Next I
'显示大于50的数
For I = 0 To 99
If A(I) >= 50 Then Text2.Text = Text2.Text & A(I) & " "
Next I
End Sub