在窗体上画一个命令按钮，然后编写如下程序：
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】 。

浙江省以2008年11月1日零时为时点，进行厂全省5‰人口抽样调查工作。

2008年11月1日零时，浙江省的常住人口为5116万人，年末全省常住人口为5120万人，比2007年末增长1.19%。

全省年末常住人口中，居住在城镇的人U为2949.1万人，占总人口的57.6%；居住在乡村的人口为2170.9万人，占总人口的42.4%。与2007年相比，城镇人口占总人口的比重上升了 0.40个百分点。

全省年末常住人口中，男性为2590.2万人，占总人口的50.6%；女性为2529.8万人，占总人口的49.4%。

全省年末常住人口中，0-14岁的人口为743.9万人，占总人口的14.53%；15-64岁的人口为3799.6万人，占总人口的74.21%；65岁及以上的人口为576.5万人，占总人口的11.26%。与 2007年相比，0-14岁人口的比重下降了0.48个百分点，65岁及以上人口的比重上升了0.28个百分点。

全省2007年11月1日至2008年10月31日，出生人口为51.92万人，死亡人口为28.61万人。

本次抽样的样本数大约是（）。

A．14.72万

B．17.31万

C．25.58万

D．40.13万