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

Dim a(1 To 100) As Integer, b(1 To 100) As Integer
j = 0

For i = 1 To 100
a(i) = Int((100) * Rnd + 1) '产生1到100之间的随机数
If a(i) >= 50 Then
j = j + 1
b(j) = a(i) '将数组a中符合要求的数存入b中

End If
Next

For k = 1 To j - 1
kmin = k
For m = k + 1 To j
If b(m) > b(kmin) Then
kmin = m
End If
Next
t = b(k): b(k) = b(kmin): b(kmin) = t
Next
For x = 1 To j

Text1.Text = Text1.Text & b(x) & ";"

Next

ok