用VB 语言编 在文本框中输入一些无序数字。数字之间用空格分开。对这些数字进

2 3 5 4 8 1 ?
怎么处理？

是要排序吗？

Rem 建立两个文本框，Text1输入无序数字，Text2显示排序结果，点击窗体执行

Private Sub Sort(a())
Dim i, j, t
For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) < a(j) Then '从大到小是<，从小到大是>
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
End Sub

Private Sub Form_Click()
Dim temp
If Len(Trim(Text1.Text)) = 0 Then MsgBox "请在第一个文本框内输入无序数字！": Exit Sub
temp = Split(Text1.Text, " ")
ReDim rndnum(0 To UBound(temp))

Text2.Text = ""
For i = 0 To UBound(rndnum)
rndnum(i) = Val(temp(i))
Next
Sort rndnum

For i = 0 To UBound(rndnum)
Text2.Text = Text2.Text & " " & rndnum(i)
Next
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub