某店鋪銷售運動類商品，根據銷售單售賣商品，然后更新庫存和統計銷售額。小商同學根據上述算法設計VB程序，讀入銷售清單數據（銷售清單存在數組sale,其中奇數位是商品名，偶數位是購買數量），單擊“計算”按鈕command1，若庫存充足則銷售成功，否則該單號作廢，最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下，回答下列問題：

Dim goods（1 To 11）As String‘商品名，共11種
Dim num（1 To 11）As Integer‘庫存數
Dim prize（1 To 11）As Integer‘商品單價
Dim sale（1 To 160）As String‘共80個銷售單號
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,t2 As Integer
Dim total As Integer,s as string,t1 As String
total=0
For i=1 To 80
For j=1 To 11
If Then Exit For
Next j
If

num（j）-Val（sale（i*2））＞=0

num（j）-Val（sale（i*2））＞=0

  Then
num（j）=num（j）-Val（sale（i*2））
total=total+Val（sale（i*2））*prize（j）
For k=1 To 10
If

num（k）＜num（k+1）

num（k）＜num（k+1）

       Then
t1=goods（k）：goods（k）=goods（k+1）：goods（k+1）=t1
t2=num（k）：num（k）=num（k+1）：num（k+1）=t2
t2=prize（k）：prize（k）=prize（k+1）：prize（k+1）=t2
End If
Next k
Else
List1．AddItem Str（i）+“號單庫存不足“
End If
Next i
‘在列表框list1輸出各商品剩余庫存，代碼略
List1．AddItem“總銷售額“+

Str（total）

Str（total）

+“元“
End Sub
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
‘讀入數據，存在各個數組，代碼略
End Sub
（1）根據代碼和程序界面，本程序沒有哪類對象

A

A

（單選，填字母：A．文本框  B．列表框   C．標簽  D．按鈕 ）。
（2）加框處代碼有錯，請改正

sale（2*i-1）=goods（j）

sale（2*i-1）=goods（j）

。
（3）在程序橫線處填入合適代碼，使程序完整。