实践 冒泡和选择排序

《实践 冒泡和选择排序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实践冒泡排序和选择排序1、任务描述（1）用随机数函数生成一批数据，存放在数组a(1to8)中，生成的数据显示在待排序列表框中。（2）用冒泡排序算法，对a中的数据进行排序，结果显示在已排序列表框中。3、操作提示（1）界面设计。(已经设计好)（2）数据生成。初始化随机数发生器，清空待排序列表框。取一个随机数，添加至街排序列表框，保存到数组a中，直到数组中存满数据。需要合使用的语句、函数功能说明如下：主要代码实现如下：PrivateSubCommand1_Click()'产生8个随机数，范围为0<=X<=100Randomize'随机数初始化List1.Clear'原始数据清空List2.Clea

2、r'将排序后的列表数据清空List3.ClearFori=1To8a(i)=Int(Rnd*100)'Rnd函数返回的随机数介于0和1之间，可等于0，但不等于1List1.AddItemStr(a(i))'将数据显示到原始数据列表中NextEndSub（4）冒泡排序算法。根据冒泡算法流程图填写完善下面的程序代码。PrivateSubCommand2_Click()'对8个数进行冒泡法排序List2.Clear'将排序后的列表数据清空Fori=1To______Forj=8To________step-1Ifa(j)

3、IfNextjNextiFori=1To8List2.AddItemStr(a(i))'在列表2中显示排序后的数据NextiEndSub（5）选择排序算法。根据选择算法流程图填写完善下面的程序代码PrivateSubCommand3_Click()'对8个数进行选择法排序List3.Clear'将排序后的列表数据清空Fori=1To_____'n个数，排序n-1次k=iForj=________To________'如果找到更小的，用k记住它的编号Ifa(k)>a(j)Then________NextjIfk<>iThen'如果最小的数所在的位置不是i，则交换t=a(i)a(i)=a(k)_

4、_________EndIfNextiFori=1To8List3.AddItemStr(a(i))'在列表3中显示排序后的数据NextiEndSub（5）调试运行程序。2