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

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("請(qǐng)輸入一個(gè)數(shù)")

s=Trans(m)

End Sub

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

504

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