在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal

问题：

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

A．3

B．4

C．9

D．10