12. （2008年10月浙江省高考）A 工厂欲采购某型号零件，6家经销商给出的报价分别为49、45、61、46、58、57，若采用选择排序算法对其进行从大到小排序，则第三遍的排序结果是 原始数据 第一遍 第二遍 第三遍 第四遍 第五遍 A.61 58 49 46 45 57 C.61 58 57 46 45 49
15. （2008年10月浙江省高考）下列VB程序运行时，单击命令按钮Command1后，文本
框Text1中显示的内容是______，文本框Text2中显示的内容是______。 Private Sub Command1_Click( )
Dim a(1 To 10) As Integer, i As Integer, s As Integer For i = 1 To 10 a(i) = 2 * i Next i
Text1.Text = Str(a(10)) s = 0 For i = 1 To 5 s = s + a(i) Next i
Text2.Text = Str(s) End Sub
12．（2009年9月浙江省高考）下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为 原始数据 第1遍 第2遍 第3遍 65 44 44 44 57 65 45 45 59 57 55 57 44 59 57 65 45 45 59 59 … 69 69 69 69 … 49 61 61 61 61 45 45 58 58 58 61 49 49 57 57 46 46 46 49 49 58 58 45 45 46 57 57 57 46 45 B.61 45 49 46 58 57 D.61 58 57 49 46 45
… … … … … A．冒泡排序，降序 B．选择排序，降序 C．冒泡排序，升序 D．选择排序，升序
18．（2010年3月浙江省高考）2010年冬奥会开幕式中各代表团的入场顺序是：希腊排在第
一位，东道主加拿大排在最后一位，其余80个代表团入场顺序按国家或地区名称依次排列。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按入场顺序显示所有代表团的名称。请回答下列问题：
(1)虚线框内程序段所用的排序算法的名称是 (2)在划线出填入合适的代码。 Dim a(0 To 81) As String Dim n As Integer
Private Sub Form_Load() '用于将82个参赛代表团名称放入数组a中 n = 80
a(0) = \"Greece\" a(n + 1) = \"Canada\"
'另外80个代表团名称放在a(1)至a(80)中，代码略 End Sub
Private Sub Command1_Click() Dim s As ①
Dim i As Integer, j As Integer, k As Integer For i = 1 To n - 1 k = i
For j = i + 1 To n If a(j) < a(k) Then k = j Next j
s = a(i): a(i) = a(k): a(k) = s Next i List1.Clear
For i = 0 To ② List1．AddItem a(i) Next i End Sub
13、
