K2冒泡排序算法 数组存储 出游天数 行程报价

暑期旅游旺季，各地旅行社纷纷给出了国内、国外游的各种行程报价。小宇为了同学们方便选择出行路线及价格，设计了一个程序。在文本框Text1中输入“国外”或“国内”，在文本框Text2中输入出游的天数，单击“线路及报价查询”按钮Command1，将在列表框中输出按价格从高到低排序的线路名称及报价信息。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim g（100）As String，day（100）As Integer，xl（100）As String，pri（100）
As Integer
Const n＝100
Private Sub Form_Load（）
从数据库中读取数据并存储在相关为量中，g（）数组存储国内／国外，day（）数组存储出游天数，xl（）数组存储旅游线路名称，pri（）数组存储行程报价。
代码略
End Sub
Private Sub Command1_Click（）
Dim I As Integer，j As Integer
For i＝1 To n\2
For j＝I To n－i
If pri（j）＞pri（j＋1）Then
t＝pri（j）：pri（j）＝pri（j＋1）：pri（j＋1）＝t
End If
Next j
For j＝n To i＋1 Step－1 ①
If pri（j）pri（j－1）Then
t＝pri（j）：pri（j）＝pri（j－1）：pri（j－1）＝t
End If
Next j
Next i
List1．Clear
i＝1
Do While i＜＝n And g（i）＝Text1．Text And day（i）＝Val（Text2，Text）
List1．AddItem xl（i）＋“”＋pri（i）  ②
i＝i＋1
Loop
End Sub
（1）程序中①处加框代码应改为______。
（2）程序中②处加框代码应改为______。

本题考查冒泡算法的实现。(1)冒泡排序的算法特点是相邻两个元素的两两比较，并根据需要交换，本处内容为For循环的起止位置的设置，此处为数组从后往前进行比较，并且比较的，是pri(j)>pri（j-l），所以此处填For j=n-i To i+lStep-1。(2)数组pri的类型是Integer类型，xl(i)+""+pri(i)进行字符串连接时类型不匹配，应使用Str()函数进行类型转换，所以此处填Listl．Ad-dItem xl(i)+""+Str(pri(i))。