在窗體中添加一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：

Private Sub f(ByVal x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(i)

If i＞4 Then i=i*2

End Sub

窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為( )。

33 解析： 本題考查VBA中參數(shù)傳遞的知識(shí)。在VBA的過(guò)程調(diào)用時(shí)，參數(shù)有兩種傳遞方式：傳址傳遞和傳值傳遞。如果在過(guò)程聲明時(shí)形參用ByVal聲明，說(shuō)明此參數(shù)為傳值調(diào)用；若用ByRef聲明，說(shuō)明此參數(shù)為傳址調(diào)用；沒(méi)有說(shuō)明傳遞類(lèi)型，則默認(rèn)為傳址傳遞。本題中在定義子過(guò)程f的時(shí)候用ByVal聲明了形參x，說(shuō)明為傳值調(diào)用，此時(shí)對(duì)x的任何更改不會(huì)影響調(diào)用它的實(shí)參i，所以執(zhí)行完callf(i)這條語(yǔ)句后i的值不變?nèi)詾?，當(dāng)然也不滿(mǎn)足If語(yǔ)句的條件，故此最后輸出結(jié)果為3。