单项选择题

设有如下程序： 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)=Clnt(Rnd()*100) 　　Ifb(i)/2=b(i)\2 Then 　　j=j+1 　　c(j)=b(i) 　　End If 　　Next 　　Print j End Sub 以下叙述中错误的是( )。