[單項選擇題] 設(shè)有如下通用過程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5x=x+a(i
2021-07-20
[單項選擇題] 設(shè)有如下通用過程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5x=x+a(i) Next End Sub 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End Sub 程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是______。
A．10
B．15
C．25
D．24
正確答案：A解析：[分析]： 由于在定義形參x時使用了ByVal，所以實參n與形參x之間是傳值傳送關(guān)系，那么無論fun子過程的計算結(jié)果為何值，都不能改變實參n的值，最終n將10賦值給Text1文本框。本題中，數(shù)組賦初值、傳送以及計算，對打印結(jié)果都沒有任何影響。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。