[填空題] 設(shè)有如下通用過程： Public Sub Fun(a()，ByVal x As Integer)For i=1 To 5 x=x+a(i)Next
2021-07-20
[填空題] 設(shè)有如下通用過程：
Public Sub Fun(a()，ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click()
Dim arr(5)As variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr()，n)
Text1.Text=n
End Sub
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 【8】 。
正確答案：J
參考解析：Fun函數(shù)的參數(shù)x為傳值調(diào)用。在函數(shù)中，對x值的改變不能夠返回給n，因此最后n的值仍然為 10，沒有改變。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。