[填空題] 在窗體上有一個命令按鈕，然后編寫如下程序：　　Function Trans(ByVal num As Long) As Long　　　Dim k As Long　　　k=l　　　Do While num　　　　　　k=k * (num Mod 10)　　　　　num=num10　　　　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”，輸出結果為【 】，在輸入對話框中輸入“987”輸出【 】，在輸入對話框中輸入“879”，輸出結果為【 】。

504

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