【文件属性】:
文件名称:数组排序-VB6.0教程
文件大小:3.12MB
文件格式:PPT
更新时间:2021-04-25 09:31:48
VB6.0教程
3.数组排序
例5.8 对已知存放在数组中的n个数,用选择法按递增顺序排序。
(1) 从n个数的序列中选出最小的数(递增),与第1个数交换位置;
(2)除第1个数外,其余n-1个数再按(1)的方法选出次小的数,与第 2个数交换位置;
(3)重复(1)n-1遍,最后构成递增序列。
For i = 1 To n - 1
iMin= i
For j = i+1 To n
If iA(j) < iA(iMin) Then iMin = j
Next j
t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t
Next I