求帮助！！！急！！！

[简单sj]

要编写一个数字排序的VB程序，先输入十个数字，然后进行顺序排序，最后在这个基础上排成两边小中间大的M型。
就是 1234567最后排成1357642

[of123]

给你一个 ListBox 版本的方法：

Dim Data() As String, Result() As String

Private Sub Command1_Click()
Dim i As Integer

Randomize
List1.Clear
ReDim Data(10)
For i = 0 To 9
    Data(i) = CStr(Int(Rnd * 100000000))
    List1.AddItem Data(i)
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, tmp() As String, m As Integer, n As Integer

List2.Clear
For i = 0 To UBound(Data) - 1
    List2.AddItem Right("00000000" & Trim(Data(i)), 9)
Next i
n = List2.ListCount - 1
ReDim Result(n)
For i = 0 To n Step 2
    m = i \ 2
    Result(m) = Val(List2.List(i))
    If List2.ListCount >= i Then Result(n - m) = Val(List2.List(i + 1))
Next i
List3.Clear
For i = 0 To n
    List3.AddItem Result(i)
Next i
End Sub

List2 的Sorted 属性设置为 True，用于实现排序。 假定输入的数字在数组 data() 中，字符型，且长度不超过 9 位。 结果放在 Resut() 中。 List1 和 List3 仅用于显示输入和输出。

[贝隆]

只有思路，没有代码： 1、先排序，有小到大 2、在第一次排序的基础上，将排序结果从中间一分为二，第一部分不用重新排序，第二部分，首尾部交换即可。