VB选择排序专
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
班级姓名知识点回顾：1、数组的作用：一组意义相同，类型相同的数据的保存，通常借助于数组。如：高二年级所有同学的学籍号可定义为大小为700(只能多不能少)的long类型的数组xjhlto700)或xjh(699)；2、数组名称可自取：符合※以字母开头、※除了“_”外不能有其他字符、※不能用VB已用的关键字即可；3、数组下标的定义可以从任何数开始，但通常为0或1，如：a(19)，表示下标从0开始到19；a(1to19)表示下标从1开始。下标即位置，能代表数组值。4、数组赋初值方法多样，通常用循环语句。没有赋值默认数组中每个数初值为0或FALSE或"”。5、排序概念和意义：把一组类型相同的数据按照升序或者降序的规律排列起来。6、排序的算法要点：※将N个数据保存在数组中；※理清是升序或是降序排序一一升序为从小到大，降序为从大到小；※算法很多一一冒泡排序、选择排序、插入排序、希尔排序、快速排序等……7、选择排序的特征：以降序为例一一第一遍排序，找出最大值的位置，与数组中第一个数交换，第二遍排序，找出次大值的位置，与数组中第二个数交换。8、关于选择排序需理解：※N个数最多进行N-1遍排序；两数比较的次数最多为N*(N-1)/2；两数交换次数最多为：N-1次；※选择排序的变式即改进算法非常多，比如N个数据排序时，发现某一遍排序两两比较过程中已没有数据交换则可以停止继续排序，比如比较过程中直接交换等，在练习中要加强理解和
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
；9、选择排序的经典代码：(以降序为例，所有for语句都要熟练转化为dowhile语句)fori=1ton-1'控制排序遍数n-1k=i'第i趟排序假设i位置上的数最大forj=i+1ton’比较剩下的数，次数为n-i次ifd(k)
ithen’如果最值位置有变化的话则交换d(i)=d(i)+d(k):d(k)=d(i)-d(k):d(i)=d(i)-d(k)endifnextifori=nto2step-1k=iforj=i-1to1step-1’控制排序遍数n-1’第i趟排序假设i位置上的数最大’或写成forj=1toi-1step1ifd(k)>d(j)thenk=jnextj'记录比较之后较大数的位置ifk<>ithent=d(i):d(i)=d(k):d(k)=tendifnexti'如果最值位置有变化的话则交换，练习：1、在VB中，如果变量p用来存储某张试卷上的缺考填涂标记，则p应采用的最适合的数据类型是()A.IntegerB.BooleanC.SingleD.String)；VB语)2、VB语句“Dima(50)AsString”定义的数组元素个数以及第8个数组元素分别为(句“Dima(1to50)Aslong”定义的数组元素个数以及第8个数组元素分别为(A.51,a(7)B.50,a(7)3、有如下VisualBasic程序段：m=a(2)Forj=3To50Ifa(j)>mThenm=a(j)NextjMsgbox(str(m))该程序段执行后，变量m中存储的是(A、a(1)至a(50)中的最小值C、a(2)至a(50)中的最小值的位置4、以下程序执行后，i的值是()Dima(1To5)AsIntegerC.51,a(8)D.50,a(8))B、a(2)至a(50)中的最大值D、a(1)至a(50)中的最大值的位置DimfAsBooleana(1)=23:a(2)=12:a(3)=56:a(4)=34:a(5)=10i=1:f=TrueDoWhilei<=5Andf=TrueIfa(i)=56Thenf=Falsei=i+1LoopLabel1.Caption=iTOC\o"1-5"\h\zA.6B.3C.4D.55、在2017年秋季学校运动会上，男生第一组6位选手的百米成绩(单位：秒)分别是‘13.4、12.3、11.2、13.8、13.1、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一遍排序后的顺序是()；两遍排序后的顺序是()；A.11.011.212.313.813.113.4B.11.012.311.213.813.113.4C.11.011.213.412.313.113.8D.11.013.412.311.213.813.16、有一组10个数据的无序序列，利用选择排序算法进行从小到大的排序，需要比较的次数和最多需要进行加工的遍数，以及最多交换数组数据的次数分别为()A.9，9，9B.15，9，8C.45，9，9D.45，8，87、在NBA某赛季中，快船队5场比赛得分依次为97，89，111，70，90，若采用选择排序算法对其进行从小到大排序，在整个排序过程中，数据97被交换的次数是()A.1B.2C.3D.48、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束后的数据序列为165，168,178，175,171，则下列选项中可能是原始数据序列的是()A、175，178，168，165，171B、178，168，165，175，171C、165，178，168，175，171D、165，168，171，175，1789、对存储在stu(0ton中的n+1个元素用选择排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为()A、[0，n]，(n-1)*n/2B、[1，n-1]，(n-1)*n/2C、[0，n]，(n+1)*n/2D、[1，n-1]，(n+1)*n/210、以下是选择排序主要部分，其中线框内代码用于寻找d(a)到d(n)的最小值的下标(即通常所说的位置)。fora=1ton-1k=aForb=a+1tonIfd(b)a(k)thennextjifk<>ithent=a(k):a(k)=a(i):a(i)=tList1.addItemstr(a(i))j4此题我们采用了(冒泡排序'解析算法'选择排序'枚举算法)16、在淘宝网上搜索商品，可以按用户需要根据价格进行升序或降序排列。用选择排序算法编写函数实现功能。主要程序如下，其中n为商品个数，jp数组存放商品价格信息，sx为True时表示升序。请将划线部分补充完整。Functionpx(sxasboolean)Dimi,j,kasintegerDimtasDoublefori=nto2step-1(£forj=i-1to1ifJ^thenifjg(j)jg(k)thenEndifnextjif_Qthent=jg(i):jg(i)=jg(k):jg(k)=tnextiEndfunction17、编写VB程序，实现如下功能：单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Commands时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。Dima(1To6)，b(1To6)AsIntegerPrivateSubCommand1_Click()'对数组a中的数据进行排序=25:s=DimiAsInteger,jAsInteger，kasintegera(1)=53:a(2)=18:a(3)=62:a(4)=22:a(5)=6:a(6)Fori=1To5k=iForj=①Ifa(k)>a(j)Thenk=jNextjIfi<>kThent=a(k):a(k)=a(i):a(i)=tNextiFori=1To6s=s+Str(a(i))NextiLabel1.Caption=sEndSubPrivateSubCommand2_Click()b(1)=3:b(2)=8:b(3)=15:b(4)=27:b(5)=38:b(6)=49'此处部分代码省略EndSubPrivateSubCommand3_Click()'将数组a和b中的数据逐个比较后添加到新的字符串s中，并显示si=1:j=1:s=〃〃DoWhilei<=6②'如果两数组都还有数据未合并If③Thens=s+Str(a(i)):i=i+1Elses=s+Str(b(j)):j=j+1LoopDoWhilei<=6'只有数组a还有数据未合并^:i=i+1LoopDoWhilej<=6'只有数组b还有数据未合并s=s+Str(b(j)):j=j+1LoopLabel3.Caption=sEndSub
浙公网安备 33021202002483