程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1(i) if i＞4 then i=i mod 2 Print cstr(i)End Sub

审计机关对某股份有限公司2010年财务情况进行审计时发现有以下行为：公司作为一般纳税人，在未发生存货购入业务的情况下，从其他企业买入空白增值税发票，并在发票上注明购入商品，买价100万元，增值税税额17万元。财务部门以该发票为依据编制记账凭证，纳税申报时作为进项税额抵扣税款。
要求：根据资料，回答以下各题：

伪造、变造会计凭证，编制虚假财务报告，尚未构成犯罪的，应承担的法律责任包括( )。

A．由县级以上人民政府财政部门予以通报

B．对单位并处5000元以上10万元以下的罚款

C．对直接责任人员可以处3000元以上5万以下的罚款

D．对会计人员吊销会计从业资格证书