[填空題] 在窗體上有一個命令按鈕，然后編寫如下程序：

Function Trans(ByVal num As Long)As Long

Dim k As Long

k=1

DO While num

k=k*(num Mod 10)

num=num10

Loop

Trans=k

Print trans

End Function

Private Sub Command1_Click()

Dim m As Long

Dim s As Long

m=InputBox("請輸入一個數(shù)")

s=Trans(m)

End Sub

程序運行時，單擊命令按鈕，在輸入對話框中輸入“789”，輸出結(jié)果為 [11] ，在輸入對話框中輸入“987”輸出 [12] ，在輸入對話框中輸入“879”，輸出結(jié)果為 [13] 。

504

關(guān)鍵字ByVal用來實現(xiàn)傳值，也就是說在定義通用過程時，如果形參前面有關(guān)鍵字Byval，則該參數(shù)用傳值方式傳遞，否則用傳址方式傳遞；在Sub過程中，先將輸入的“456”賦給變量m，m作為參數(shù)，調(diào)用Ttans過程；在nans過程中以num作為Do While的循環(huán)條件；在循環(huán)體中，調(diào)用Mod函數(shù)，將num的個位數(shù)字與k相乘，然后賦給k，第一次循環(huán)時，nun的值是789，所以k的值為9，執(zhí)行num=hum后，num的值為78，循環(huán)3次后，num變?yōu)?，退出循環(huán)，k值等于9×8×7=504，并將k的值作為返回值；當輸入“987”或“879”時執(zhí)行相同的操作，結(jié)果都為504?？梢钥闯?，此程序可用于求一個數(shù)值各位上數(shù)值的乘積。