某增值税一般纳税人材料采用计划成本法核算，本期购入原材料1000公斤，每公斤单价为11元，增值税税率为17%，款项已经支付。材料验收中发现短缺100公斤，其中5公斤属于定额内的合理损耗，另95公斤的短缺尚待查明原因。该批材料每公斤的计划成本为10元。该批入库材料产生的材料成本差异为（）元

A．2825

B．2588

C．905

D．955

下面程序段，运行后的结果是
Private Sub Command1_Click()
Dim b%(1 To 4) ,i%, t#
For i = 1 To 4
b(i) =i
Next
t =Tof(b() )
Print "t ="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
t=1
For i =2 To UBound(

A．