专题03 冒泡排序算法及VB程序实现（专项练习）-巅峰冲刺2020年浙江省高考选考信息技术二轮专项提升

专题3 冒泡排序算法及VB程序实现（专项练习） 1. 有一个数组，采用冒泡排序，第一遍排序后的结果为：4，10，5，32，6，7，9，17，24，那么该数组的原始顺序不可能的是（ ） A．10，5，32，6，7，9，17，24，4 B． 10，5，32，6，7，9，4，17，24[来源:学&科& C．10，5，32，4，6，7，9，17，24 D． 4，10，5，32，17，9，24，6，7 2. 有如下程序段： For i = 1 To 2 For j = 5 To i + 1 Step -1 If a(j) > a(i) Then t = a(j): a(j) = a(i): a(i) = t End If Next j Next i 数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（ ） A. 77,45,33,16,24 B. 77,33,45,16,24 C. 77,24,45,16,33 D. 77,45,33,24,16 3. 数据“56，23，78，11，8”依次存放在数组 a(1)到a(5)中，执行下列VB程序段后，数组a(1)到a(5)中的数据依次为（ ） For i = 1 To 2 For j = 1 To 5-i If a(j+1) < a(j) Then t = a(j): a(j) = a(j+1): a(j+1) = t Next j Next i A. 8,11,23,56,78 B. 23,11,8,56,78 C. 11,8,23,56,78 D. 8,11,56,23,78 4. 有如下Visual Basic程序段： Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer a(1) = 3: a(2) = 9: a(3) = 1: a(4) = 5: a(5) = 8: a(6) = 6: a(7) = 2 s = "" For i = 1 To 3 For j = i + 1 To 7 If a(j) < a(i) Then k = a(j): a(j) = a(i): a(i) = k c = c + 1 End If Next j s = Str(a(i)) + s Next i Text1.Text = Str(c) & “:” & s 该程序段运行后,文本框Text1中显示的内容是（ ） A.5:6 8 9 B. 3: 9 8 6 C. 3:1 2 3 D.5:3 2 1 5. 有以下VB程序段 For i = 1 To 2 For j = 1 To 5-i If d(j) > d(j +1)Then t = d(j):d(j) = d(j +1):d(j +1) = t End If Next j Next i 数组元素a(1)到a(5)的值依次为“48，36，78，18，15”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（ ） A．36,15,18,48,78 B．36,18,15,48,78 C．15,18,36,48,78 D．15,18,48,36,78 6. 有如下程序段： For i = 1 To 2 For j = 2 To 7 - i If a(j) > a(j - 1) Then k = a(j): a(j) = a(j - 1): a(j - 1) = k End If Next j Next i 数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ） A.数组元素a(1)到a(6)的值依次为54，29，31，58，71，7