dtcms history Tomcat ScrollView 国外镜像 webserver azure go unix colors h5表格模板 photoshop cs3 教程 外卖系统源码 matlab注释一段 mysql查看锁表 python重复执行 java中的多态 java写文件 java替换字符串 java基本数据结构 java中new java可变参数 找茬辅助 忧思华光玉 ad19 网络克隆 7个人 批处理if 位置不可用 list删除指定元素 python电子书 字符串分割成数组 文明6万神殿 抠图软件免费版 电脑代码雨 只狼台词 安卓游戏辅助 bilibili硬币 系统激活 php上传文件
当前位置: 首页 > 学习教程  > 编程语言

VB数值从小到大排序

2021/1/28 23:00:21 文章标签:

在窗体上画两个输入框(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 --------…

在这里插入图片描述
'在窗体上画两个输入框(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


本文链接: http://www.dtmao.cc/news_show_650129.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?