单选题 设有如下程序：
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
以下叙述中错误的是( )。