某小賣部商品相關(guān)數(shù)據(jù)分別存放在相應(yīng)的數(shù)據(jù)表中，如圖a和圖b所示。

編寫“商品銷售統(tǒng)計”程序功能如下：窗體加載時從數(shù)據(jù)庫中讀取商品的相關(guān)數(shù)據(jù)，對各商品類別總銷量及名次進(jìn)行統(tǒng)計，結(jié)果在列表框List1中顯示；單擊“查詢”按鈕Command1，按商品類別編號從小到大排列，同一類別商品按銷量從大到小排序，在列表框List2中顯示。程序運行界面如圖c所示。

（1）閱讀程序可知，gtype（b（3））的初始值為

“餅干”

“餅干”

。
（2）請在橫線處填入合適的代碼。
Dim a（1 To 2000）As Integer,b（1 To 2000）As Integer,s（1 To 2000）As Integer
Dim gid（1 To 100）As Integer,t（1 To 2000）AsInteger
Dim c（1 To 2000）As String,gtype（1 To 100）AsString
Dimts（1To100）AsInteger'數(shù)組 ts 存儲每個類別商品總銷量Dim
k（1To2000）AsInteger'數(shù)組k存儲每個類別商品總數(shù)Dim m As
Integer,n AsInteger
Private Sub Form_Load（　?。?br />'從數(shù)據(jù)庫讀取 m 條記錄中類別編號、商品類別數(shù)據(jù)分別存儲在數(shù)組 gid、gtype 中
'從數(shù)據(jù)庫讀取n 條記錄中類別編號、商品名稱、商品銷量數(shù)據(jù)分別存儲在數(shù)組 b、c、s 中，代碼略
       For i=1To n'統(tǒng)計各類別商品總銷量及商品總數(shù)

①ts（b（i））=ts（b（i））+s（i）

①ts（b（i））=ts（b（i））+s（i）

 k（b（i））=k（b（i））+1
       Next i
       For i=1To m'計算各類別商品總銷量的名次
             p=0
             For j=1 To m
                   If ts（i）＜ts（j） Then p=p+1
                   mc（i）=p+1
             Next j Next i
             List1．AddItem″類別銷量名次″
             For i=1 Tom
                   List1．AddItem gtype（i）+″″+Str（ts（i））+″″+Str（mc（i））
             Nexti
End Sub
Private Sub Command1_Click （　?。?br />             DimiAsInteger,jAsInteger,posAsInteger,tmpAsInteger,pAsInteger p=1
             For i=1 To m
                   a（i）=p
                   p=p+k（i）
            Next i
            For i=1 To n
                  p=b（i） t（a（p））=i
                  a（p）=a（p）+1
            Next i
            pos=1
            For i=1To m'對各類別商品按商品銷量進(jìn)行排序
                  For j=pos To pos+k（i）-2

②p=f（j+1，pos+k（i）-1）

②p=f（j+1，pos+k（i）-1）

 tmp=
                      t（j）：t（j）=t（p）：t（p）=tmp
               Next j
             pos=pos+k（i）
Next i
List2．AddItem″類別 商品 商品 銷量″
For i=1 Ton
       List2．AddItem

③gtype（b（t（i）））

③gtype（b（t（i）））

+″″+geshi（c（t（i）））+″″+Str（s（t（i）））
     Nexti
End Sub
Function f（head As Integer,tail As Integer） As Integer Dim i As Integer,p As Integer
     p=head-1
     For i=head To tail
           If s（t（i））＞s（t（p）） Then p=i
      Next i
      f=p
EndFunction
Function geshi（s As String） As String
'格式輸出，代碼略
End Function