甲公司财产清查中发现如下问题：

1．在财产清查过程中盘盈库存现金20000元，其中12000元属于应支付给其他公司的违约金，剩余盘盈金额无法查明原因。

2．在财产清查中，盘亏设备一台，原值为80000元，已提折旧50000元。经查明，过失人赔偿5000元，已批准进行处理。

3．现金清查时短款52元，属于出纳员的责任，尚未收到赔款。

4．发现某产品盘盈200千克，单位成本为10元，共计2000元。经查该项盘盈属于收发计量错误造成。

5．盘亏材料10000元，可以收回的保险赔偿和过失人赔款合计5000元，剩余的净损失中有3000元属于非常损失，2000元属于自然损耗。要求：根据上述业务编制1～5的会计分录。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click ()
Dim a As Integer, b As Integer, c As Integer
a = 1: b = 2: c = 3
Print fun2 (c, b,

A．
End Sub
Private Function funl (x As Integer, y As Integer, z As Integer)
fun1 = 2 * x + y + 3 * z
End Function
Private Function fun2(x As Integer, y As Integer, z As Integer)
fun2 = fun1(z, x, y)+ x
End Function
程序运行后，单击命令按钮，则窗体上显示的内容是A) 7

B．14

C．17

D．30