[填空題] 窗體上有一個名稱為Text1的文本框和一個名稱為Command1、標題為"計算"的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下，請?zhí)羁铡?/p>

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox("輸入數(shù)據(jù)"))

Text1=Str(fun(x)+fun(x)+fun(x))

End Sub

Private Function fun(ByRef n As Integer)

If n Mod 3=0 Then

n=n+n

Else

n=n*n

End If

fun=n

End Function

當單擊命令按鈕，在輸入對話框中輸入2時，文本框中顯示的是______。

276

此函數(shù)是一個通過地址傳遞的函數(shù)，按地址傳遞對形參的修改會影響到實參，在函數(shù)中的返回值是以其函數(shù)名返回的。第一個fun(x)函數(shù)將2按地址傳遞給fun函數(shù)，2對3取余不為0，執(zhí)行n=n*n=4，此時x=4，第二個fun(x)函數(shù)將x=4作為參數(shù)傳遞給fun函數(shù)，4對3取余不為0，執(zhí)行n=4 *4=16，此時x=16，第三個fun(x)函數(shù)將x=16作為參數(shù)傳遞給fun函數(shù)，16對3取余不為0，執(zhí)行n=16 *16=256，結(jié)果為4+16+256=276，所以文本框中顯示的是276。