2009年浙江省信息技术会考试题（算法模块）

Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer For i = 1 To n - 1 ' n表示商品总数

k = i ' k保存第i大的数，一开始假定是a(i) For j = i + 1 To n

If a(k) < a(j) Then k =________(1)____________ Next j

If ________(2)__________ Then

t1 = a(i): a(i) = a(k): a(k) = t1 '交换价格 t2 = b(i): b(i) = b(k): b(k) =t2 '交换发货地 End If Next i

For i = 1 To n '在列表框List2中输出排序结果 List2.AddItem Str(a(i)) + \ Next i End Sub

程序中(1)划线处应填入___________________ 程序中(2)划线处应填入___________________

图VB-1

题号 答案 1 12 2 1 3 （1） 10 （2） 10 （1） j 4 （2） k<>j 图VB－2