[填空題] 窗體上有一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下，請(qǐng)?zhí)羁?/h1>
2021-07-20
[填空題] 窗體上有一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下，請(qǐng)?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
______n
End Function
當(dāng)單擊命令按鈕，在輸入對(duì)話框中輸入2時(shí)，文本框中顯示的是______。
正確答案：fun 276
參考解析：因?yàn)閒un是個(gè)求值函數(shù)，故通過函數(shù)名返回值，所以第一空填fun。本題中fun函數(shù)的參數(shù)n是按地址傳送的(印此值不會(huì)在函數(shù)結(jié)束后被銷毀)，所以語(yǔ)句Str(fun(x)+fun(x)+fun(x))，據(jù)題意可知第一個(gè)fun(x)結(jié)果為4，第二個(gè)fun(x)結(jié)果為16，第三次fun(x)結(jié)果為256，所以第二空填276。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。