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.
特别提示
此排序实例代码只是演示,您可以修改和运用该代码。
-
单片机案例点亮一颗发光二极管
大家好,今天和大家分享的是单片机案例——点亮一颗led灯。这个可以说是每个人在初步接触单片机是都会学到的一个程序,我们来看看怎么做吧操作方法(01)这里我就直接进入程序了,前面的建立工程呀,设置参数那些我就不说了,在我其他的经验中也有讲到了,不懂的可以看看我以...
-
百度地图查看坐标
操作方法(01)首先,电脑打开搜狗浏览器,进入百度官网。(02)在上边我们点击百度地图的按钮。(03)进入地图上,可以看到当前自己所在城市。(04)点击地图下方的“地图开发平台”按钮。(05)在地图开放平台页面,点击:开发文档——坐标拾取器。(06)然后在地图中,随意点击一个位置,就可以查...
-
html中a标签的四个伪类
今天为大家介绍一下html中a标签的四个伪类,即用于向被选中元素添加特殊的效果......操作方法(01)伪类:伪类用于向被选中元素添加特殊的效果。(元素在特定情况下才具备的)如图分别是将a标签的link、hover、active、visited修改后的样式(02)a标签的四个伪类之link即未...
-
如何管理win10的设备管理器检查硬件?
相信很多刚刚安装windows10正式版的用户一定发现了很多令人欣喜的功能改进,但是可能还不是很熟悉,尤其是对如何管理win10的设备管理器检查硬件,已达到完美的程度。下面就来详细讲解一下。操作方法(01)首先,你要做的是按下快捷键Win+X,然后在出现的快捷菜单中单击“控...