[单项选择题] 在窗体上画一个命令按钮,然后编写如下程序: Function funl(ByVal Bum As Long)As LongDim k As Longk = 0Bum=Abs(Bum)Do While Bum k=k+(Bum Mod 10) Bum=Bum10Loopfun1=k End Function Private Sub Command1_Click()Dim n As Longn=InputBox("请输入一个数")Print fun1(n) End