1、打开Vb6.0新建工程-标准EXE》在Form1代码模块输入如下代码:Private Sub Command1_Click()D足毂忍珩im Data() As String, MaxNum As Integer, Temp As Integer, StepVal As Integer, i As Integer, i2 As IntegerDim TempStr As String'降序排序程式Data() = Split(Text1.Text, ",")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)NextText2.Text = 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(Text1.Text, ",")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 IfNextNextText2.Text = ""For i2 = 0 To UBound(Data())Text2.Text = Text2.Text & "," & Data(i2)NextMsG.EndTimeEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As Integers = Val(Text3.Text)Text1.Text = ""For i = 0 To sText1.Text = Text1.Text & IIf(Text1.Text = "", "", ",") & Int(Rnd * 1000)NextEnd Sub
2、窗体的外观设计：
3、好了，Vb排序程序演示到此Ok，有什么疑问或者建议请到我空间留言，Thanks you.
