[單項(xiàng)選擇題] 窗體上有一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框。編寫如下程序： Private Sub Command1_Clic
[單項(xiàng)選擇題] 窗體上有一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框。編寫如下程序：
Private Sub Command1_Click()
Dim x As Integer
x = Val( InputBox ("輸入數(shù)據(jù)") )
Text1 = Str( 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
對(duì)于上述程序，以下敘述中錯(cuò)誤的是( )。
A． 語句fun=n有錯(cuò)，因?yàn)閚是整型，fun沒有定義類型
B． 運(yùn)行程序，輸入值為5時(shí)，文本框中顯示655
C． 運(yùn)行程序，輸入值為6時(shí)，文本框中顯示42
D． ByRef表示參數(shù)按址傳遞
正確答案：A
參考解析：過程fun的功能是將傳入的值運(yùn)算后返回，當(dāng)傳入數(shù)值為3的整數(shù)倍時(shí)返回該值的2倍，否則返回該值的平方。過程Fun的參數(shù)指定為ByRef方式，即按址傳遞，因此會(huì)影響實(shí)參的值。Str函數(shù)是將數(shù)值轉(zhuǎn)換為字符串。過程fun定義時(shí)沒有指明返回類型因此默認(rèn)為Variant類型，它可以表示任何值，因此A)選項(xiàng)的說法不正確。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。