基本算法简介（四）
?牐犙≡衽判虻脑矸浅＜虻ィ褪钦页鲎畲笫缓蟀颜飧鍪偷谝桓鍪换唬缓笳页龅诙蟮氖侔颜飧鍪偷诙鍪换弧钡剿械氖寂判蛲瓯稀?
#2?牐犗旅媸茄≡衽判虻墓淌道?
?牐犜际校?
?牐?5 -10 9 7
?牐犝页鲎畲笫?9，与第一个数5交换，得到：
?牐?9 -10 5 7
?牐犝页龅诙笫?7，与第二个数-10交换，得到：
?牐?9 7 5 -10
?牐犝页龅谌笫?5，与第三个数5（本身）交换，得到：
?牐?9 7 5 -10
?牐犝庵峙判蚍椒ǘ陨倭渴菖判蚝芸臁?
?牐牬肴缦隆?
?牐燚im a（）?? As Single
?牐燚im i， j， k， l， n As Integer
?牐燩rivate Sub Form＿Load（）
?牐燚im max， temp， minn As Single
?牐爊 = InputBox（“请输入数据的个数”）
?牐燫eDim a（n） As Single
?牐爉inn = 0
?牐燜or i = 1 To n
?牐燼（i - 1） = InputBox（“请输入数据” & Str（i）， Data， 0）
?牐營f a（i - 1）＜ minn Then minn = a（i - 1） ＇找出最小值
?牐燦ext i
?牐爇 = 0
?牐燣oop10: max = minn - 1 ＇初始化最大数
?牐燜or i = k To n - 1 ＇从已经排序的后一个数开始排序，即从第k+1个数开始排序
?牐營f a（i） ＞ max Then
?牐爉ax = a（i） ＇记录最大数
?牐爈 = i ＇记录最大数的号码
?牐燛nd If
?牐燦ext i
?牐牐Ы换皇?
?牐爐emp = a（l）
?牐燼（l） = a（k）
?牐燼（k） = temp
?牐爇 = k + 1 ＇又排好一个
?牐營f k ＜ n - 1 Then GoTo Loop10 ＇如果没有全部排好则继续排
?牐燜or i = 0 To n - 1
?牐燣abel1．Caption = Label1．Caption + “ ” + Str（a（i）） ＇输出
?牐燦ext i
?牐燛nd Sub
?牐犜创肟梢栽趆ttp://go8．163．com/~betterprogram下载。