编写如下通用过程：
Sub proc(By Val num As Long，ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（　）
Dim n As Long， r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n，r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是 【15】 。

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

编写如下通用过程：
Sub proc(By Val num As Long，ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（　）
Dim n As Long， r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n，r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是 【15】 。

本题关键词:AS-DAE染色,AS-D-NCE染色法,氯乙酸AS-D萘酯酶,醋酸AS-D萘酚酯酶,醋酸AS-茶酚酯酶染色,Solis AS Peek融合器(融合器),氯醋酸AS-D萘酚酯酶,醋酸AS-D茶酚脂酶染色,醋酸AS-D萘酚酯酶染色,氧化醋酸AS-D萘酚酯酶染色;