排序算法的程序实现（学生版）.docx

《排序算法的程序实现（学生版）.docx》由会员分享，可在线阅读，更多相关《排序算法的程序实现（学生版）.docx（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、排序算法的程序实现（学生版）1.有如下程序段:For i = 1 To 2For j = 5 To i + 1 Step -1If a(j) a(i) Thent = a(j): a(j) = a(i): a(i) = tEnd IfNext jNext i数组元素a(1)到a(5)的值依次为“33,24,45,16,77”,经过该程序段“加工”后,数组元素a(1)到a(5)的值依次为()A.77,45,33,16,24B.77,33,45,16,24C.77,24,45,16,33D.77,45,33,24,162.小赵对选择排序算法进行了如下改进:在数组的所有元素中找出最小和最大数据的元素

2、,然后将这两个元素分别与第一个和最后一个元素交换数据,在余下的元素中找出最小和最大数据的元素,分别与第二个和倒数第二个元素交换数据,以此类推,直到所有元素的数据按升序排列。小赵编写的VB程序段如下:p = 1: q = 10Do While p qiMin = p: iMax = pFor i = p + 1 To qIf a(i) a(iMax) Then iMax = iNext it = a(iMin): a(iMin) = a(p): a(p) = tt = a(iMax): a(iMax) = a(q): a(q) = tp = p + 1q = q - 1Loop要使程序实现上述算

3、法思想,则方框中的语句是()A.If iMax = p Then iMax = iMinB.If iMin = p Then iMin = iMaxC.If iMax = p Then iMin = iMaxD.If iMin = p Then iMax = iMin3.有如下VB程序段:Dim s(1 To 6) As Strings(1)=4:s(2)=343:s(3)=312:s(4)=12:s(5)=246:s(6)=121c= For i=1 To 5For j=i+1 To 6If s(i)+s(j)s(j)+s(i) Thent=s(j):s(j)=s(i):s(i)=tEnd

4、IfNext jc=c+s(i)Next iText1.text=c运行该段代码后,文本框Text1中显示的内容为()A.343312246121124B.434331224612112C.434331224612121D.1211224631234344.有如下VB程序段:For i = 5 To 4 Step -1k = iFor j = 6 - i To 1 Step-1 If a(j) a(k) Then k = jNext jIf i k Thent = a(i): a(i) = a(k): a(k) = tEnd IfNext i数组元素a(1)到a(5)的值依次为“41,66,7

5、0,83,31”,经过该程序段“加工”后,数组元素a(1)到a(5)的值依次为 ()A.31,41,66,83,70B.83,70,66,41,31C.83,66,70,41,31D.31,41,66,70,835.有如下程序段:bottom=6:i=1:r=Val(Text1.Text)Do While ia(j-1) Thent=a(j):a(j)=a(j-1):a(j-1)=tEnd IfNext ji=i+1For j=i To bottom -1If a(j)a(j+1) Thent=a(j):a(j)=a(j+1):a(j+1)=tEnd IfNext jbottom=bottom

6、-1Loop数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”,若在文本框Text1中输入“2”,则经过该程序段“加工”后,数组元素a(1)到a(6)的值依次为()A.73,61,56,92,44,28B.92,73,56,61,44,28C.92,73,61,56,28,44D.92,73,61,56,44,286.n个数据的冒泡升序排序需要经过n-1遍的加工,每一遍加工自下而上比较相邻两个数据,把较小者交换到上面,在第i遍加工过程中需要进行n-i对数据的比较。在某些情况下,第i遍加工过程中,在上面部分较小数据已经有序情况下,不需要再进行n-i对数据的比较。如对“17

7、,18,19,24,23,20”这6个数据排序中,第1遍排序结束后数据为“17,18,19,20,24,23”,第2遍排序时不再需要对20及其前面共4个数据进行比较。以下程序实现了冒泡升序排序的优化,在划线处填入合适的代码。Dim n As IntegerDim a(1 To 100) As Integern=10,排序前生成的数据存储在数组a中,并在列表框List1中显示,代码略Private Sub Command1_Click()Dim i As Integer,j As Integer,start As Integer,t As Integeri=2Do While i=A And c=a And c=z Thena(j)=a(j)+1End IfNext iFor i=1 To 25For j=1 To If a(j)a(j+1) Thent1=a(j):a(j)=a(j+1):a(j+1)=t1t2=b(j):b(j)=b(j+1):b(j+1)=t2End IfNext jNext iFor i=1 To 26List1.AddItem b(i) &: & a(i)Next iEnd Sub