某店铺销售运动类商品，根据销售单售卖商品，然后更新库存和统计销售额。小商同学根据上述算法设计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

（　　）

（　　）

‘读入数据，存在各个数组，代码略
End Sub
（1）根据代码和程序界面，本程序没有哪类对象

A

A

（单选，填字母：A．文本框  B．列表框   C．标签  D．按钮 ）。
（2）加框处代码有错，请改正

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

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

。
（3）在程序横线处填入合适代码，使程序完整。