在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。

ABC公司年初未分配利润贷方余额为181.95万元，预计本年的有关资料如下：

(1)本年息税前利润为800万元，适用的所得税税率为33%。

(2)公司流通在外的普通股60万股，发行时每股面值1元，每股溢价收入9元；公司负债总额为200万元，均为长期负债，平均年利率为10%，假定公司筹资费用忽略不计。

(3)公司股东大会决定本年度按10%的比例计提法定公积金。本年按可供投资者分配利润的16%向普通股股东发放现金股利，预计现金股利以后每年增长6%。

(4)据投资者分析，该公司股票的β系数为1.5，无风险收益率为8%，市场上所有股票的平均收益率为14%。

要求：

预计ABC公司本年应计提的法定公积金。