在窗体上有一个命令按钮，然后编写如下程序：
　Function Trans(ByVal num As Long) As Long
　　　Dim k As Long
　　　k=l
　　　Do While num
　　　　　　k=k * (num Mod 10)
　　　　　num=num\10
　　　Loop
　　　Trans=k
　　　Print Trans
　End Function
　Private Sub Commandl_Click( )
　　　Dim m As Long
　　　Dim s As Long
　　　m=InputBox("请输入一个数")
　　　s=Trans(m)
　End Sub
　　程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【11】 ，在输入对
话框中输入“987”输出 【12】 ，在输入对话框中输入“879”，输出结果为 【13】 。