VFP中实现选择排序

核心提示：众所周知在常用的简单排序方法中，前文所介绍的起泡排序（冒泡排序）是效率最差的一个了，VFP中实现选择排序，我们今天所介绍的这个选择排序也是简单排序中的一种，不过比起泡排序的效率要高，按上图设置这三个命令按钮的caption属性，二、添加代码：1.“生成10个随机整数”按钮的click事件：pub

众所周知在常用的简单排序方法中，前文所介绍的起泡排序（冒泡排序）是效率最差的一个了。我们今天所介绍的这个选择排序也是简单排序中的一种，不过比起泡排序的效率要高，并且也比较容易实现。

这些常用的排序方法多见诸于C/C++方面的资料中，如果要在vfp中实现这些排序方法，原理是一样的，只是在代码实现上略有差别。例如，在C/C++中数组的下标是从0开始，而vfp中数组的下标是从1开始；C/C++中的for语句可以采用for(i=0;i<n;i++)这种形式来同时完成变量赋初值、变量终值判断、变量递增这些操作，而vfp的for语句则有些弱，它的变量终值不能采取i<n这种形式来界定一个范围。因为以上的区别，在VFP中书写代码时要特别注意数组下标问题及循环变量的初值及终值，在以后的文章中不会再特别提及这些问题。

我们先看一下选择排序的基本思想和排序过程。（此部分内容引用自百度百科：http://baike.baidu.com/view/547263.htm）

基本思想

每一趟从待排序的数据元素中选出最小（或最大）的一个元素，顺序放在已排好序的数列的最后，直到全部待排序的数据元素排完。

选择排序是不稳定的排序方法。n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果：

①初始状态：无序区为R[1..n]，有序区为空。

②第1趟排序

在无序区R[1..n]中选出关键字最小的记录R[k]，将它与无序区的第1个记录R[1]交换，使R[1..1]和R[2..n]分别变为记录个数增加1个的新有序区和记录个数减少1个的新无序区。

……

③第i趟排序

第i趟排序开始时，当前有序区和无序区分别为R[1..i-1]和R(1≤i≤n-1)。该趟排序从当前无序区中选出关键字最小的记录 R[k]，将它与无序区的第1个记录R交换，使R[1..i]和R分别变为记录个数增加1个的新有序区和记录个数减少1个的新无序区。

这样，n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果。

排序过程

【示例】：

初始关键字 [49 38 65 97 76 13 27 49]

第一趟排序后 13 ［38 65 97 76 49 27 49]

第二趟排序后 13 27 ［65 97 76 49 38 49]

第三趟排序后 13 27 38 [97 76 49 65 49]

第四趟排序后 13 27 38 49 [49 97 65 76]

第五趟排序后 13 27 38 49 49 [97 65 76]

第六趟排序后 13 27 38 49 49 65 [97 76]

第七趟排序后 13 27 38 49 49 76 [97 76]

最后排序结果 13 27 38 49 49 76 76 97

知道这个排序方法的基本思想和排序过程，在vfp中书写代码就简单了，只是需要注意vfp中数组的下标及循环变量的初值及终值与C/C++的区别。实例的运行界面如下图：

 

本例依然采取生成10个随机整数的方式取得数据，然后用选择法对这10个整数进行从小到大的排序。实现过程：

一、新建表单，向表单添加一个编辑框控件及三个命令按钮，按上图设置这三个命令按钮的caption属性。

二、添加代码：

1.“生成10个随机整数”按钮的click事件：

public s(10)
for i=1 to 10
　 s(i)=int(rand()*100) &&产生两位数的随机整数
　 thisform.edit1.value=thisform.edit1.value+str(s(i),5)
endfor

2.“清屏”按钮的click事件：thisform.edit1.value=""

3.“选择排序”按钮的click事件：

local i,j,k,t as integer
for i=1 to 9
　 k=i
　 for j=i+1 to 10
　 　 if s(j)<s(k)
　 　 　 k=j
　 　 endif
　 endfor
　 t=s(k)
　 s(k)=s(i)
　 s(i)=t
endfor
thisform.edit1.value=""
for i=1 to 10
　 thisform.edit1.value=thisform.edit1.value+str(s(i),5)
endfor

三、OK了，运行表单吧。