在编程中有很多时候我们需要对很多个数据进行排序或者分类，那么我们就需要对他们进行排序，在Exel、Word当中我们在图表操作当中也都用过降序排序或者升序排序，那到底是怎么编程的呢？方法不止一个！这里介绍下我自己通过思考编的一道程序：
步骤/方法
打开Vb6.0新建工程-标准EXE》“在表格一代码模块输入如下代码：private子命令1 _ Click()DimData()as string，MaxNumAsInteger，TempAsInteger，StepValAsInteger，iAsInteger，i2AsIntegerDimTempStrAsString '降序排序程式Data()=Split(Text1 .Text，'')step Val=UBound(Data())-1 for I=0 ostepvalfort=0 toi ' if Val(Data(t))Val(Data(I 1))Then ' ' MaxNum=Data(t)'排序不变，取大数给MaxNumIfVal(Data(t))Val(Data(I 1))然后' MaxNum=Data(i 1)'排序改变数据(一^ 1)=1数据' t '前后两个变量数据交换Data(t)=MaxNum ' elseifdata(t)=Data(I 1)Then '两个数据相同，不做前后排序endifnextnextfori 2=0 doubound(Data())TempStr=TempStrIIf(TempStr=''' ''')Data(i2)NextText2 .text=TempStrMsgBox "好的！" ' endsubprivatesubcommand 2 _ Click()dim data()as string，MaxNumAsInteger，TempAsInteger，StepValAsInteger，iAsInteger，i2AsInteger '降序排序程式Data()=Split(Text1 .' Text，'')step Val=UBound(Data())-1 for I=0 to sepvalfort=0 to ifval(Data(t))Val(Data(I 1))ThenMaxNum=Data(t)'排序不变，取大数给MaxNumElseIfVal(Data(t))Val(Data(I 1))然后' MaxNum=Data(i 1)'排序改变数据(一^ 1)=1数据' t '前后两个变量数据交换Data(t)=MaxNumElseIfData(t)=Data(I 1)Then '两个数据相同，不做前后排序EndIfNextNextText2 .I2=0的text=' ' double bound(Data())text 2 .文本=文本2。Text '' Data(i2)NextMsG .endtimeendsubprivatesubcommand 3 _ Click()dimia integer，sAsIntegers=Val(Text3 .正文)文本1。Text=''Fori=0TosText1 .文本=文本1。TextIIf(Text1 .Text=''' ''')Int(Rnd*1000)NextEndSub
窗体的外观设计：
好了，Vb排序程序演示到此好吧，有什么疑问或者建议请到我空间留言，谢谢你。
特别提示
此排序实例代码只是演示，您可以修改和运用该代码。
