设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox('输入数据') 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 以下叙述中错误的是( )。