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)下圖就表...
-
表格excel全空白沒有線條邊框網格線怎麼辦
Excel表格打開時,正常情況下都是有線條邊框網格線的,但如果出現如圖Excel表格全空白沒有線條邊框風格線的時候怎麼辦呢?接下來我就以Excel2010版本為例給大家提供幾個解決方法。操作方法(01)方法一:打開Excel表格,單擊選項,然後再把選項中的前的空格單擊打上即可顯示所...
-
怎麼取消電腦自動鎖屏
不喜歡電腦自動鎖屏,但也不知道怎麼設置,沒關係,一起和我來了解一下吧。操作方法(01)我們先打開“控制面板”,可以在“開始菜單”或者是直接在桌面上打開,大家就自己選擇吧。(02)打開之後,我們選擇“系統和安全”。(03)再在“電源選項”下,選擇“更改計算機睡眠時間”。(04)最...
-
如何給u盤取消密碼
如何給u盤取消密碼?下面小編為你介紹下,希望可以幫助到你。操作方法(01)打開“控制面板”,進入頁面後點擊控制面板右側的下三角。(02)點擊“所有控制面板選項”,選擇“BitLocker驅動加密”。(03)進入頁面後,點擊“關閉BitLocker”。(04)輸入密碼,點擊“解鎖”,選擇“解鎖驅動...