在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79, 43,-94, 72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
(8)
Else
(9)
End If
Next k
Print pos, neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

企业决定处理一批多余A材料10吨，账面单位成本500元，单位售价700元，企业开出发票账单，销售货款已收到并存入银行。

结转已销售A材料的实际成本时，会计分录为（）。

A.借：原材料5000

贷：其他业务成本5000

B.借：原材料7000

贷：其他业务成本7000

C.借：其他业务成本5000

贷：原材料5000

D.借：其他业务成本7000

贷：原材料7000