在窗体画一个命令按钮，然后编写如下过程:

Function fun(ByVal num As Long)As Lone

Dim k As Long

k=1

num=Abs (num)

Do While num

k=k*(num Mod 10)

num=num\10

Loop

fun=k

End Function

Private Sub Command1_Click()

Dim n As Long

Dim r As Long

n= InputBox (“请输入一个数”)

n=CLng (n)

r=fun (n)

Print r

End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【 】。