在编程中有很多时候我们需要对很多个数据进行排序或者分类，那么我们就需要对他们进行排序，在Exel、Word当中我们在图表操作当中也都用过降序排序或者升序排序，那到底是怎么编程的呢？方法不止一个！这里介绍下我自己通过思考编的一道程序：
步骤/方法
（01）打开Vb6.0新建工程-标准EXE》在Form1代码模块输入如下代码:Private Sub Command1_Click()Dim Data() As String, MaxNum As Integer, Temp As Integer, StepVal As Integer, i As Integer, i2 As IntegerDim TempStr As String'降序排序程式Data() = Split(, ",")StepVal = UBound(Data()) - 1For i = 0 To StepValFor t = 0 To i' If Val(Data(t)) > Val(Data(i + 1)) Then'' MaxNum = Data(t) '排序不变，取大数给MaxNumIf Val(Data(t)) < Val(Data(i + 1)) ThenMaxNum = Data(i + 1) '排序改变Data(i + 1) = Data(t) '前后两个变量数据交换Data(t) = MaxNum'ElseIf Data(t) = Data(i + 1) Then'两个数据相同，不做前后排序End IfNextNextFor i2 = 0 To UBound(Data())TempStr = TempStr & IIf(TempStr = "", "", ",") & Data(i2) = TempStrMsgBox "Ok!"End SubPrivate Sub Command2_Click()Dim Data() As String, MaxNum As Integer, Temp As Integer, StepVal As Integer, i As Integer, i2 As Integer'降序排序程式Data() = Split(, ",")StepVal = UBound(Data()) - 1For i = 0 To StepValFor t = 0 To iIf Val(Data(t)) < Val(Data(i + 1)) ThenMaxNum = Data(t) '排序不变，取大数给MaxNumElseIf Val(Data(t)) > Val(Data(i + 1)) ThenMaxNum = Data(i + 1) '排序改变Data(i + 1) = Data(t) '前后两个变量数据交换Data(t) = MaxNumElseIf Data(t) = Data(i + 1) Then'两个数据相同，不做前后排序End = ""For i2 = 0 To UBound(Data()) = & "," & Data(i2)imeEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As Integers = Val() = ""For i = 0 To = & IIf( = "", "", ",") & Int(Rnd * 1000)NextEnd Sub
（02）窗体的外观设计：
（03）好了，Vb排序程序演示到此Ok，有什么疑问或者建议请到我空间留言，Thanks you.
特别提示
此排序实例代码只是演示，您可以修改和运用该代码。
