阅读下列程序：

PrivateSubCommand1_Click()

Dim i As Integer，k As Integer

k=2

For i=1 To 3

Print Fun(k)；

Next

End Sub

Function Fun(j As Integer)

Static b

a=0

a=a+1

b=b+1

Fun=a*b+j

End Function
程序运行后，单击命令按钮输出结果是

A．234

B．345

C．567

D．356

某市一制药公司2008年度发生以下经营业务：
(1)销售药品取得收入9000万元，销售成本为6500万元；
(2)出租闲置仓库取得租金收入200万元；
(3)全年发生管理费用1300万元(其中业务招待费56万元)，销售费用500万元(含广告赞320万元)；
(4)实际发放工资共计500万元，向工会拨缴工会经费11万元、发生职工福利费78万元、职工教育经费19万元；(假设以上工资和经费均未包括在成本、费用内)
(5)营业外支出50万元，该笔支出为通过红十字会向四川灾区的捐赠；
(6)从境外分支机构取得税后所得42.5万元，分支机构在境外实际按15%的税率缴纳了企业所得税；
(7)1—11月已预缴企业所得税50万元。已知：该企业增值税税率为17%，当年认证通过的进项税为830万元；租赁业的营业税税率是5%，城市维护建设税税率7%，教育费附加3%；除此之外不考虑其他税费。
要求：根据所给资料，回答下列问题，每问需计算出合计数。

计算该公司所得税汇算清缴时应补缴的企业所得税。