文件名称:数组排序-Visual Basic 6.0简明教程
文件大小:3.12MB
文件格式:PPT
更新时间:2024-05-15 03:17:08
VB
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