下面程序：
Private Sub Form_Click()
Dim x，y，z As Integer
x=5
Y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

酒厂2013年10月生产销售乙类啤酒400吨，每吨售价2800元。另外，该厂生产一种新研制的粮食白酒，广告样品使用0.2吨，已知该种白酒无同类产品出厂价，生产成本每吨不含税35000元，成本利润率为10%，该厂当月应纳消费税为（）元。

A、90175

B、86166.60

C、2175

D、88000.00