选择排序 课件.ppt

程序实现 For i = 1 To num - 1 ‘n个数，排序n-1次 Min = i For j = i + 1 To num 如果找到更小的，用min记住它的编号 If d(Min) d(j) Then Min = j Next j If Min i Then 如果最小的数所在的位置不是i，则交换 k = d(i) : d(i) = d(Min) : d(Min) = k End If Next i 数组元素的个数 Private Sub Command1_Click() 对8个数进行选择法排序 List2.Clear 将排序后的列表数据清空 For i = 1 To 7 n个数，排序n-1次 Min = i For j = i + 1 To 8 如果找到更小的，用min记住它的编号 If d(Min) d(j) Then Min = j Next j If Min i Then 如果最小的数所在的位置不是i，则交换 k = d(i) d(i) = d(Min) d(Min) = k End If Next i For i = 1 To 8 List2.AddItem Str(d(i)) 在列表2中显示排序后的数据 Next i End Sub 选择法排序 Private Sub Command1_Click() 对8个数进行选择法排序 List2.Clear 将排序后的列表数据清空 For i = 1 To 7 n个数，排序n-1次 Min = i For j = i + 1 To 8 如果找到更小的，用min记住它的编号 If d(Min) d(j) Then Min = j Next j If Min i Then 如果最小的数所在的位置不是i，则交换 k = d(i) d(i) = d(Min) d(Min) = k End If Next i For i = 1 To 8 List2.AddItem Str(d(i)) 在列表2中显示排序后的数据 Next i End Sub 选择法排序 Private Sub Command2_Click() 产生8个随机数 Randomize 随机数初始化 List1.Clear 原始数据清空 List2.Clear 将排序后的列表数据清空 For i = 1 To 8 d(i) = Int(Rnd * 1000) Rnd 函数返回的随机数介于 0 和 1 之间，可等于 0，但不等于 1 List1.AddItem Str(d(i)) 将数据显示到原始数据列表中 Next End Sub 生成随机数,显示在list1 选择排序 选择排序（递增）的方法是 找出数组元素中最小的数据，使它与第一个元素中的数据交换位置 在余下的元素中继续找最小的元素，与第二个元素中的数据交换位置 …………………… (观赏flash动画) 算法演示 第 1 遍 选择 27 36 32 18 d (1) d (2) d (3) d (4) j=2 Min=1 27 36 32 18 j=3 Min=1 27 36 32 18 j=4 Min=j 18 36 32 27 Min=1 For j=2 to 4 if d(min)d(j) then min=j Next j 如果最小的数所在的位置不是1，则交换d(min)和d(1)的位置 如果找到更小的，用min记住它的编号 第2遍选择 18 36 32 27 d (1) d (2) d (3) d (4) j=3 Min=2 18 36 32 27 j=3 Min=j 18 36 32 27 j=4 Min=j j=4 18 36 32 27 Min=j 18 27 32 36 Min=2 For j=3 to 4 if d(min)d(j) then min=j Next j If min2 then 交换d(2)和d(min) 第3遍选择 18 27 32 36 d (1) d (2) d (3) d (4) j=4 Min=3 Min=3 For j=4 to 4 if