求助数字排序题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助数字排序题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 847 人关注过本帖

标题：求助数字排序题

只看楼主加入收藏

ycvf

等　级：论坛游民
帖　子：210
专家分：56
注　册：2012-8-25
结帖率：75.61%

楼主

已结贴√ 问题点数：20 回复次数：9

求助数字排序题

数字排序.rar (1.83 KB)

输入三个不同的数，将它们从大到小排序。
在VFP6.0下的表单中，运行以上程序，出错！

2014-12-15 15:44

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9809
专家分：26987
注　册：2012-2-5

第 2 楼

得分:20

* 排序按钮代码
Local Apx[3]
With ThisForm
    Apx[1]=.Text1.Value
    Apx[2]=.Text2.Value
    Apx[3]=.Text3.Value
    =Asort(Apx)
    .Label1.Caption=Transform(Apx[1])
    .Label2.Caption=Transform(Apx[2])
    .Label3.Caption=Transform(Apx[3])
    .Refresh
EndWith

[ 本帖最后由 sdta 于 2014-12-15 16:07 编辑 ]

坚守VFP最后的阵地

2014-12-15 15:59

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9809
专家分：26987
注　册：2012-2-5

第 3 楼

得分:0

a>b>c 书写错误
正确写法
a>b and b>c

所以报错

如果输入10个数字，光写代码就能让你伤脑筋

[ 本帖最后由 sdta 于 2014-12-15 16:08 编辑 ]

坚守VFP最后的阵地

2014-12-15 16:03

ycvf

等　级：论坛游民
帖　子：210
专家分：56
注　册：2012-8-25

第 4 楼

得分:0

以下是引用sdta在2014-12-15 15:59:44的发言：

* 排序按钮代码
Local Apx[3]
With ThisForm
    Apx[1]=.Text1.Value
    Apx[2]=.Text2.Value
    Apx[3]=.Text3.Value
    =Asort(Apx)
    .Label1.Caption=Transform(Apx[1])
    .Label2.Caption=Transform(Apx[2])
    .Label3.Caption=Transform(Apx[3])
    .Refresh
EndWith

Apx什么意思？在帮助文件中找不到

落花人独立，微雨燕双飞。

2014-12-15 16:57

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9809
专家分：26987
注　册：2012-2-5

第 5 楼

得分:0

定义的数组变量，建议楼主多看看帮助，底子太簿了啊。

坚守VFP最后的阵地

2014-12-15 17:24

ycvf

等　级：论坛游民
帖　子：210
专家分：56
注　册：2012-8-25

第 6 楼

得分:0

初学，还没学数组

落花人独立，微雨燕双飞。

2014-12-16 16:12

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11785
专家分：43421
注　册：2006-5-13

第 7 楼

得分:0

以下是引用zlz66668888在2014-12-16 17:13:27的发言：

看了表单中的代码，觉得这种做法不妥。
除了版主给的Asort处理方法外，也可以用以下方式处理。
先比较a、b，如果a大，交换一下a、b。
再比较a、c，如果a大，交换一下a、c。
最后比较b、c，如果b大，交换一下b、c。

这就是著名的冒泡排序法。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2014-12-17 08:01