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.
特别提示
此排序实例代码只是演示,您可以修改和运用该代码。
-
win10开始菜单任务栏点击无反应的解决办法
点击win10系统的开始菜单没反应,点击任务栏中的一些功能图标也没反应,可能是explorer进程出错导致的。遇到这样的问题我们想到的方法就是重启电脑,其实除了重启电脑,还有更快的解决方法,就是重启Windows资源管理器。接下来我们一起来看看电脑资源管理器怎么重启吧。...
-
在Word文档中怎么样进行简繁体转换?
字体有繁体和简体之分,而Word文档主要的功能是记录保存文本文字,可能由于区域不一样,有的喜欢用简体有的喜欢用繁体,为了方便查看,就需要用到简繁体的相互转换了。操作方法(01)方法一:比较常用的,就是用Word文档自带的简繁体转换功能,找到审阅——简转繁——便可将选择的...
-
百度地图查看坐标
操作方法(01)首先,电脑打开搜狗浏览器,进入百度官网。(02)在上边我们点击百度地图的按钮。(03)进入地图上,可以看到当前自己所在城市。(04)点击地图下方的“地图开发平台”按钮。(05)在地图开放平台页面,点击:开发文档——坐标拾取器。(06)然后在地图中,随意点击一个位置,就可以查...
-
如何将CorelDraw文件转为jpg图片
CorelDraw保存的源文件是CDR格式,将文件转为jpg格式的图片。操作方法(01)准备好CorelDraw文件(02)然后打开CorelDraw软件进入界面,选择菜单栏中的-文件-打开,(03)找到准备好的cdr文件,将文件置入到文档中(04)当导出时,点击菜单栏中的-文件-导出(05)在保存类型中找到jpg格式,点...