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)我們先打開“控制面板”,可以在“開始菜單”或者是直接在桌面上打開,大家就自己選擇吧。(02)打開之後,我們選擇“系統和安全”。(03)再在“電源選項”下,選擇“更改計算機睡眠時間”。(04)最...
-
Windows 10關閉自動更新(Windows Update)的方法
現在的windows系統更新得越來越頻繁,windows10也不例外,但是很多時候,很多人都不想進行更新,但是又沒有直接關閉更新得選項,所以我今天就來給大家介紹一下如何關閉系統更新得方法,下面就一起來看看吧。可以從服務管理中進行關閉(01)命令方法打開:我們可以按下快捷鍵:win+...
-
Win10系統怎麼登陸Microsoft賬戶
如果有小夥伴想知道Win10系統怎麼登陸Microsoft賬戶,可以來看看下面的步驟哦!一、先註冊賬戶。(01)在網上搜索“Microsoft賬戶註冊”,找搜索結果中找到註冊官網進行註冊。(02)進入註冊界面以後,輸入正確的相關信息,然後輸入密碼和其他的信息。(03)輸入完成之後,我們就可以...
-
win10任務計劃在哪裏 如何打開計劃任務程序
在使用Windows10的過程中,有時候我們需要禁用任務計劃程序裏的某個計劃,這時就需要打開任務計劃程序,那麼我們怎麼樣打開計劃任務程序呢?下面就與大家分享兩個方法吧。方法/步驟1(01)在Windows10系統桌面,依次點擊“開始/Windows系統/控制面板”菜單項。(02)在打開的Win...