单选题 有如下程序： Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(num Mod 10)：num=num＼10 Loop fun=k End Function Private Sub Form_Click() Dim n As Integer，r As Integer n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print r End Sub 程序运行后，单击窗体，在输入对话框中输入246，输出结果为