[單項選擇題] 設(shè)有如下程序：

Option Base 1

Private Sub Command1 Click()

Dim a(10) As Integer

Dim n As Integer

n=InputBox(“輸入數(shù)據(jù)”)

If n＜ 10 Then

Call，GetArray(a， n)

End If

End Sub

Private Sub GetArray(b() As Integer， n As Integer)

Dim c(10)As Integer

j=0

For i=1 To n

b(i)=CInt(Rnd()*100)

If b(i) /2 =b(i) 2 Then

j=j + 1

c(j) = b(i)

End If

Next

Print j

End Sub

以下敘述中錯誤的是

A．數(shù)組b中的偶數(shù)被保存在數(shù)組c中

B．程序運行結(jié)束時，在窗體上顯示的是c數(shù)組中元素的個數(shù)

C．GetArray過程的參數(shù)n是按值傳送的

D．如果輸入的數(shù)據(jù)大于10，則窗體上不顯示任何信息

C

GetArray過程返回c數(shù)組中元素的個數(shù)。c數(shù)組元素由b(i)賦值，但只有 b(i)中為偶數(shù)的元素才能賦值給c數(shù)組中的元素。單擊按鈕時，如果輸入的n值小于10，則調(diào)用GetArray過程。據(jù)此A、B、D項都是正確的。C項的錯誤比較明顯，GetArray過程的參數(shù)n前沒有關(guān)鍵字“ByVal”，則默認為“ByRef”，即n是按傳地址的方式傳送參數(shù)的。