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.
特別提示
此排序實例代碼只是演示,您可以修改和運用該代碼。
-
光盤刻錄大師免費版圖文使用教程
光盤刻錄大師是涵蓋了數據刻錄、光盤備份與複製功能的軟件,其用戶使用評價好錯參半,見仁見智吧。現在網上也流行使用光盤刻錄軟件大師免費版,今天就把光盤刻錄軟件大師免費版的圖文使用教程教給大家:操作方法(01)開啟刻錄軟件後,從右上角開始,我們可以看到有“添加視...
-
怎麼取消電腦自動鎖屏
不喜歡電腦自動鎖屏,但也不知道怎麼設定,沒關係,一起和我來了解一下吧。操作方法(01)我們先開啟“控制面板”,可以在“開始選單”或者是直接在桌面上開啟,大家就自己選擇吧。(02)開啟之後,我們選擇“系統和安全”。(03)再在“電源選項”下,選擇“更改計算機睡眠時間”。(04)最...
-
電腦屏幕旋轉快速鍵 。電腦屏幕旋轉了怎麼辦
很多用戶有時會不小心觸發一些系統中的快速鍵導致電腦屏幕方向被更改又不知道怎麼恢復,這就來教一下怎麼旋轉屏幕。方法一(01)電腦屏幕旋轉快速鍵旋轉至正常位置:CTRL+ALT+方向鍵上。旋轉90度:CTRL+ALT+方向鍵左。旋轉180度:CTRL+ALT+方向鍵下。旋轉270度:CTRL+ALT+方...
-
打印機驅動沒問題但就是無法打印問題的解決
有時我們使用打印機打印檔案時,發現好像一切都沒有問題,但就是按下打印鍵後打印機卻一直沒有反應。本篇就來介紹其中一種情況的解決方法。操作方法(01)在電腦的開始選單中找到“控制面板”點開。(02)在控制面板中有一項是“檢視設備和打印機”,單擊開啟。如圖。(03)在設...