【单选题】

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

Function fun1ByValBumAs Long)As Long
　　Dim kAs Long
　　k = 0
　　Bum =AbsBum)
　　Do WhileBum
　　　　k = k +Bum Mod 10)
　　　　Bum =Bum \ 10
　　Loop
　　fun1= k
End Function
Private SubCommand1_Click()
　　Dim nAs Long
　　n = InputBox("请输入一个数")
　　Print fun1(n)
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为________。
A．3
B．4
C．9
D．10