某企业于2008年6月30日将一座已使用8年的建筑物处置，企业进行处置时，取得变卖收入100000元，已存入银行，营业税税率5%。账面原值400000元，企业采用直线法计提折旧，预计使用10年，预计净残值为零，以银行存款支付清理费12000元。
要求：编制固定资产转入清理、取得变卖收入、支付清理费、计算应交营业税和结转清理净损益的会计分录。(“应交税费”需写出明细科目)

在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1)，然后编写如下代码：
Private Sub Commandl_Cliek()
Dim arrayl(10, 10)As Integer
Dim i, j, Sum AsInteger
Sum＝0
For i=1 To 10
Forj=1 To 10
arrayl(i, j)=i+j
Nextj
Next i
End Sub
此程序的功能是求数组arrayl主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )

A．For i=1 To 10
For j=1 To 10
If i=j Then
Sum = Sum+ arrayl (i,j)
End If
Next j
Next i
Labelt. Caption=Sum

B．For i=l TO 10
Forj=1 To 10
If i= =j Then
Sum=Sum+array1 (i,j)
End If
Next j
Next i
Labell. Caption=Sum

C．For i=1 To 10
For j=1 To l0
If i=j Then
Sum=Sum+arrayl (i,j)
End If
Next i
Next j
Lahell. Caption=Sum

D．For i=1 To 10
For j=1 To l0
If i=j Then
Sum=arrayl (i,j)
End If
Next j
Next i
Labell. Caption=Sum