從產(chǎn)品庫(kù)里面的product數(shù)據(jù)表中讀出產(chǎn)品信息（ID，類別，產(chǎn)品名，圖片路徑，格式5個(gè)字段）．已知product表中已經(jīng)按ID排序，讀出后的數(shù)據(jù)直接連接成字符串在List1中顯示，現(xiàn)在希望能不改變?cè)辛斜眄樞虻那闆r下，在list2中顯示按產(chǎn)品名排序的結(jié)果．一般的方法是按產(chǎn)品名建立索引（不存在重復(fù)的產(chǎn)品名）．基本思路如下：
1、用一個(gè)數(shù)組product 來(lái)存放產(chǎn)品名．
2、用另一個(gè)數(shù)組a 來(lái)存放產(chǎn)品名數(shù)據(jù)的下標(biāo)（已經(jīng)按產(chǎn)品名排序的）．按產(chǎn)品名排序的方法是：取第一個(gè)產(chǎn)品名product（0），與后面所有的產(chǎn)品名比較一遍，如果有比第一個(gè)產(chǎn)品名大的，M+1，M用來(lái)計(jì)該產(chǎn)品名的位次．一輪結(jié)束后在a（M）元素記下第一個(gè)產(chǎn)品名的下標(biāo)0．然后再取product（1）與其它所有產(chǎn)品名比較一遍，其余同第一個(gè)產(chǎn)品名．依次完成每一個(gè)產(chǎn)品名位次的計(jì)算并記錄在a 數(shù)組中．
3、最后按a 數(shù)組指定的位置取出list1中的項(xiàng)添加到list2中．

程序代碼如下，請(qǐng)補(bǔ)充完整下面的空缺．
Dim products（100）As String'存放產(chǎn)品名的數(shù)組
Dim num As Integer'從數(shù)據(jù)庫(kù)中讀出的記錄數(shù)
Private Sub Command1_Click （　?。?br />Dim a（100）As Integer'存放按產(chǎn)品名索引的產(chǎn)品數(shù)組下標(biāo)
Dim i As Integer,j As Integer,m As Integer'm比當(dāng)前產(chǎn)品名大的產(chǎn)品名個(gè)數(shù)
For i=0To 100
a（i）=0
Next i
For i=0To num
m=0
For j=（1）

0 To num

0 To num

If i＜＞j And products（i）＞products（j） Then m=m+1
Next j
 （2）

a（m）=i

a（m）=i

Next i
For i=1To num
List2．AddItem   （3）

List1．List（a（i））

List1．List（a（i））

'按a數(shù)組的索引從list1中取出項(xiàng)添加到list2
Next i
End Sub
Private Sub Form_Load （　?。?br />Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim s As String,i As Integer
conn.ConnectionString=“provider=microsoft.ace.oledB．12.0；data source=“& App.Path &“\產(chǎn)品庫(kù)．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from product“
num=0
Do While Not rs.EOF And num＜=100
s=““
For i=1To 5
products（num）=rs.Fields（2）'讀出當(dāng)前記錄的產(chǎn)品名保存到products數(shù)組
s=s & rs.Fields（i-1）&“，“'將一條記錄的各字段內(nèi)容連接成字符串
Next i
List1．AddItem s
（4）

rs.MoveNext

rs.MoveNext

num=num+1
Loop
num=num-1
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub.