01.自编练习之冒泡排序（一）公开课.docx

《01.自编练习之冒泡排序（一）公开课.docx》由会员分享，可在线阅读，更多相关《01.自编练习之冒泡排序（一）公开课.docx（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、天台中学高二信息技术自编练习冒泡排序(一)编者：蒋潮侃一、选择题注：选择题答案请填入对应方格内1.有7个数据依次存放在数组a (1)到a (7)中，使用如下程序段对7个数据从大到小排序123456789101112For i = 1 to 6For j = 7toi + 1 step -1If thentemp = a(j) :a(j)=a(j-l) :a(j-l)=temp End IfNext jNext i那么程序中划线处内容为()A、a(j) a(j+l) B、a(j) a(j) a(j+l) D、a(j)a(j-l)2. 7个数据21、12、13、17、16、15、20依次存放在数组

2、a (1)到a (7)中，使用如下程序段 对7个数据进行从小到大的排序，程序段运行后，文本框Textl中显示的内容为()k=0For i = 1 to 6For j = 7 to i + 1 step -1If a(j) a(j-l) thentemp = a(j) :a(j)=a(j-l) :a(j-l)=temp k = k+1End IfNext jNext iTextl.text = str(k)A、 7 B、 8 C、 9 D、 103.7个数据21、12、13、17、16、15、20依次存放在数组a (1)到a (7)中，使用如下程序段 对7个数据进行从小到大的排序，那么程序段运行

3、后数组a (1)到a (7)中数据依次为()For i = 1 to 3For j = 7 to i + 1 step -1If a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jNext iA、 20, 30, 50, 60, 70B、 70, 60, 50, 30, 20C、 50, 20, 30, 60, 70D、 50, 60, 20, 30, 705 .数组元素a (1)到a (6)的值依次为“52, 6, 39, 47, 15, 21”，经过该程序段“加工” 后，数组元素a (1)到a (6)的值依次为

4、()For i = 1 to 2For j = 1 to 6-iIf a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jNext iA、6, 39, 15, 21, 47, 52B、6, 15, 21, 39, 47, 52C、6, 15, 39, 21, 47, 52I)、6, 21, 39, 15, 47, 526 .有以下VB程序段，a (1)到a (6)的值依次为“8, 6, 5, 7, 9, 3”，经过该程序段“加 工”后，列表框Listl中显示的是()For i = 1 to 3For j = i to

5、 5If a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jListl. Additem Str(a(i)Next iA、 8, 7, 6 B、 8, 7, 9 C、 6, 5, 3 D、 5, 6, 7.以下VB程序段的功能是对a数组(下标范围为1 to n)中的数据进行升序排列，那么程序 中划线对应填入的正确语句是()For i = For j = 1 to i-lIf a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jNext i

6、A n to 2 step -1 B 2 to n C、 n-l to 1 step -1 D、 1 to n-l.实现某排序算法的局部VB程序如下，在经过某一遍“加工”后，数组元素a (1)到a (5) 的值依次为“28, 70, 53, 57, 30”。那么下一遍排序“加工”后数组元素a (1)到a (5)的数据应该是()For i = 1 to 4For j = 5 to i+1 step -1If a(j) a(j-l) then temp = a(j) :a(j)=a(j-l) :a(j-l)=tempNext jNext iA、28, 30, 70, 53, 57 B、28, 30

7、, 53, 57, 70 C、28, 30, 57, 53, 70 D、28, 30, 53, 70, 57.有以下VB程序段,a (1)到a (6)的值依次为“ 1, 5, 7, 6, 9, 3”，经过该程序段“加工”后, 列表框Listl中显示的是()For i = 1 to 3For j = 5 to i step -1If a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jListl. Additem Str(a(i)Next iA、9, 7, 6 B、1, 3, 5 C、9, 7, 6, 1, 5, 3

8、D、9, 7, 6, 5, 3, 1.有如下VB程序段，执行程序后，a数组各元素可能是()For i = 1 to 6a(i)=Int (Rnd() *10)+1If a(i) Mod 2 i Mod 2 Then i=i -1Next iFor i = 1 to 5For j = 6 to i+2 Step -1If a(j) a(j+l) thentemp = a(j) :a(j)=a(j+l) :a(j+l)=tempEnd IfNext jNext iA、36, 15, 18, 48,78 B、36, 18, 15, 48, 78 C、15, 18,36,48, 78 D、15, 18

9、,48,36, 78.有以下VB程序段，a (1)到a (6)的值依次为“9, 4, 8, 7,2,5”，经过该程序段“加工”后, 列表框Listl中显示的内容是()For i = 1 to 4For j = 6 to i + 1 step -1If a(j) a(j)Then=a(j) : a(j) = tl=b(j) : b(j) = t2tl = a(j - 1) : a(j - 1) t2 = b(j - 1) : b(j - 1)Elself s = 女男 Thena(j) : a(j)= tlb(j) : b(j) = t2tl = a(j - 1) : a(j - 1) t2 = b(j - 1) : b(j - 1)End IfNext jNext i依次输出排序后的数据，代码略End Sub