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

专题4 选择排序算法及VB程序实现（专项练习） 1. 某校通过政府招投标中心采购一套多媒体教学设备，有5家单位参加竞标，竞标价分别为19万、15万、21万、13万、12万元人民币。 若采用选择排序算法对标价从大到小排序，需要进行数据互换的次数是（ ） A. 1 B. 2 C. 3 D. 4 2. 有如下 VB 程序段： s = "26170534": n = Len(s): y = "" For i = 1 To n ch(i) = Mid(s, i, 1) Next i For i = 1 To n k = i For j = i To n Step 2 If ch(j) < ch(k) Then k = j Next j If k <> i Then t=ch(k): ch(k)=ch(i): ch(i)=t y = y & ch(i) Next i Label1.Caption = y 该程序段运行后，标签Label1中显示的内容是（ ） A. 0123 B. 4567 C. 01234567 D. 04152637 3. 有如下VB 程序段： For i = 5 To 4 Step -1 k = i For j = 6 - i To 1 Step -1 If a(j) < a(k) Then k = j Next j If i <> k Then t = a(i): a(i) = a(k): a(k) = t End If Next i 数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（ ） A. 31，41，66，83，70 B. 83，70，66，41，31 C. 83，66，70，41，31 D. 31，41，66，70，83 4. 某VB 程序段如下： i = 1 Do While i <= 3 min= i j = i + 1 Do While j <= 6 If a(j) < a(min) Then min= j j = j + 1 Loop If i <> min Then t=a(i): a(i)=a(min): a(min)=t i = i + 1 Loop 数组元素a(1)到a(6)的值依次为“7, 8, 3, 9, 6, 2”，则上面程序段在运行后，数组元素a(1)到a(6)的数据依次是（ ） A．9, 8, 7, 3, 6, 2 B．2, 3, 6, 7, 8, 9 C．2, 3, 6, 9, 8, 7 D．9, 8, 7, 6, 3, 2 5. 有如下 VB 程序段： s = "7218634594" : n = Len(s)：c = 0 For i = 1 To n - 1 a(i) = Val(Mid(s, i, 2)) Next i For i = 1 To n - 2 Step 2 k = i For j = i + 2 To n - 1 Step 2 If a(j) < a(k) Then k = j Next j If k <> i Then t=a(i): a(i)=a(k): a(k)=t: c=c+1 End If Next i Text1.Text = Str(c) 该程序段运行后，Text1 中显示的内容是（ ） A. 1 B. 2 C. 3 D. 4 6. 某排序算法的VB 程序段如下： For i = 1 To 4 k = i For j = 5 To i + 1 Step -1 If a(j) < a(k) Then k = j Next j If k < > i Then tmp = a(k): a(k) = a(i): a(i) = tmp f(i) = True End If Next i 当数组元素a(1)到a(5)的值依次为“8，2，1，21，3”，数组f的初值均为False，执行该程序段，f 数组中元素值为True 的个数有（ ） A. 1 个 B. 2 个 C. 3 个 D. 4 个 7. 有如下VB程序段： a(1) = 44: a(2)= 36: a(3)= 58: a(4)= 65: a(5)= 12 b = 0：c = 0 For i = 1 To 4 k = i For j = i + 1 To 5 If a(j) < a(k) Then k = j: b = b + 1 Next j If k < > i Then t = a(i): a(i) = a(k): a(k) = t c = c + 1 End