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

A．3

B．4

C．9

D．10

丙烯聚合物废料(颗粒状)