VB数值从小到大排序

'在窗体上画两个输入框(Text1、Text2),一个Command1按钮,代码如下：
Option Explicit

'数值从小到大排序的函数
Public Function PPSRS(txt As String)
Dim x, y, temp As Integer
Dim arr(1 To 10) As Integer
Dim K As String
Dim i%
On Error Resume Next
'-------------先给arr赋值。。
For i = 1 To 10
arr(i) = Mid(Val(txt), i, 1)
Next i
'---------------排序
For x = 1 To 10
For y = x + 1 To 10
If arr(x) > arr(y) Then
temp = arr(y)
arr(y) = arr(x)
arr(x) = temp
End If
Next y
K = K & arr(x)
Next x
PPSRS = Mid(K, Len(K) - Len(txt) + 1, Len(txt))
End Function

Private Sub Command1_Click()
Text2.Text = PPSRS(Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = “8634957021”
Command1.Caption = “排序”
End Sub

VB数值从小到大排序相关推荐

java字符排序_Java实现对字符串中的数值进行排序操作示例
本文实例讲述了Java实现对字符串中的数值进行排序操作.分享给大家供大家参考,具体如下: 问题: 对"34 9 -7 12 67 25"这个字符串中的数值从小到大排序! 解决方法: ...
C语言试题六十六之请编写函数实现三个数从小到大排序
1. 题目对a.b.c三个数值进行从小到大排序 2 .温馨提示 C语言试题汇总里可用于计算机二级C语言笔试.机试.研究生复试中C程序设计科目.帮助C语言学者打好程序基础.C语言基础,锻炼您的逻辑思维 ...
matlab从大到小排序的语句,从小到大排序的方法
%N的求解 %注意:从小到大排序的方法:sort()函数与fliplr()函数的结合使用. clc clear %--------------A为cheng_xu的X----------------- ...
php将一组数从小到大排序,php数组排序从小到大函数
推荐操作系统:windows7系统.PHP5.6.DELL G3电脑 1.说明冒泡排序是一个简单的排序算法.这一算法的名称来自于越小的元素将通过交换慢慢浮到数列的顶部. 2.使用方法对比相邻的元素 ...
【青少年编程】【四级】从小到大排序
「青少年编程竞赛交流群」已成立(适合6至18周岁的青少年),公众号后台回复[Scratch]或[Python],即可进入.如果加入了之前的社群不需要重复加入. 微信后台回复"资料下载&quo ...
ACMNO.18 C语言-选择排序用选择法对10个整数从小到大排序。输入 10个整数输出排序好的10个整数
题目描述用选择法对10个整数从小到大排序. 输入 10个整数输出排序好的10个整数样例输入 4 85 3 234 45 345 345 122 30 12 样例输出 3 4 12 30 45 ...
ggplot2可视化水平箱图并使用fct_reorder排序数据、使用na.rm处理缺失值(reorder boxplot with fct_reorder)、按照箱图的中位数从小到大排序水平箱图
ggplot2可视化水平箱图并使用fct_reorder排序数据.使用na.rm处理缺失值(reorder boxplot with fct_reorder).按照箱图的中位数从小到大排序水平箱图(O ...
python实现字符串中中文在前，数字在后且按从小到大排序
如题:使用python3.x 实现一个包含中文数字的字符串中,输出为中文在前面,数字在后面且按从小到大排序. 思路:先将字符串进行排序,然后通过字符串分割实现中文再前面,数字在后面.(欢迎交流其他思路 ...
C# 参数按照ASCII码从小到大排序（字典序）
在对接第三方支付的时候,第三方会要求参数按照ASCII码从小到大排序.如下: public static void requestPay(){Dictionary<string, string& ...

VB数值从小到大排序

VB数值从小到大排序相关推荐

最新文章

热门文章