[填空題] 編寫如下通用過(guò)程：

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

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1 Click()

Dim n As Long， r As Long

n=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

n = CLng(n)

proc n，r

Print r

End Sub

程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中輸入345，輸出結(jié)果是 【15】 。

60解析：[分析]： 過(guò)程proc有兩個(gè)參數(shù)，其中第一個(gè)參數(shù)使用的是傳值方式(帶有關(guān)鍵字ByVal)，第二個(gè)參數(shù)使用的是引用方式(帶有關(guān)鍵字ByRef，可以省略)。該過(guò)程的功能是，通過(guò)取模(Mod)和整除()運(yùn)算符求出一個(gè)整數(shù)的各位數(shù)字，將這些數(shù)字相乘，并將乘積賦給參數(shù)ren。在事件過(guò)程中，用InputBox函數(shù)輸入一個(gè)數(shù)，然后調(diào)用過(guò)程proc，如果輸入的數(shù)是345，則結(jié)果為3×4×5 =60。注意，調(diào)用語(yǔ)句“proc n，r”有兩個(gè)實(shí)參，其中r用來(lái)存放過(guò)程的返回值。Function過(guò)程通常有一個(gè)返回值，