[單項選擇題] 在窗體上畫一個按鈕，然后編寫如下的事件代碼。在按鈕上單擊，輸出為( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer)ReDim Preserve a(6)a(6)=a(1)*a(3)*a(5)n=UBound(a) End Sub Private Sub Command1_Click()Dim arr1()As Integer,k As IntegerReDimarrl(5)For i=1 To 5 arrl(i)=iNext ik=6Call fun(arrl，k)Print arrl(1)；arrl(k) End Sub

A．1 3

B．0 0

C．1 15

D．0 15

C

當(dāng)發(fā)生Command1_Click事件時，首先定義了一個可調(diào)數(shù)組arrl，接著重新定義它的長度為5，然后通過一個For循環(huán)給該數(shù)組元素arrl(1)～arrl(5)賦值1～5。給k賦值6，調(diào)用過程fun，把數(shù)組arrl按地址傳遞給形參數(shù)組a，把變量k按地址傳遞給形參變量n。在fun過程中重新定義了數(shù)組a的長度為6，并保持原來的值，給a(6)賦值為1*3*5，并通過Ubound函數(shù)求得該數(shù)組的下標(biāo)上界并賦值給n，n的值為6。過程調(diào)用返回后，由于是按地址傳遞的，所以對形參數(shù)組a的修改就是對實參數(shù)組arrl的修改，對形參n的修改就是對實參k的修改，k的值為6。輸出arrl(1)和arrl(6)的值分別為1和15。