[填空題] 在窗體上有一個(gè)命令按鈕，然后編寫如下程序：　　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("請(qǐng)輸入一個(gè)數(shù)")　　　　s=Trans(m)　　End Sub　　程序運(yùn)行時(shí)，單擊命令按鈕，在輸入對(duì)話框中輸入“789”，輸出結(jié)果為【 】，在輸入對(duì)話框中輸入“987”輸出【 】，在輸入對(duì)話框中輸入“879”，輸出結(jié)果為【 】。

504

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