在窗体上画一个命令按钮；然后编写如下程序：
Function fun(ByVal num As Long)As Long
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
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。

题库:计算机等级考试 类型:填空题 时间:2017-07-03 15:45:36 免费下载:《填空》Word试卷

在窗体上画一个命令按钮；然后编写如下程序：
Function fun(ByVal num As Long)As Long
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
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。

本题关键词:出门按钮,控制按钮,救助呼叫按钮,编制程序,命令型,按钮联锁式装置,按钮式保护装置,按钮式防护装置,命令标志,快捷命令;