Vb數字排序（N個數據不限，升序或者降序）編程

在編程中有很多時候我們需要對很多個數據進行排序或者分類，那麼我們就需要對他們進行排序，在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.

特別提示

此排序實例代碼只是演示，您可以修改和運用該代碼。