发布时间 : 星期一 文章2009年浙江省信息技术会考试题（算法模块）更新完毕开始阅读26603d4f852458fb770b56b0
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