设有如下程序：optionBAsE 1privAtE suBCommAnD1_CliCk( ) Dim A(10)As intEgEr Dim nAs intEgErn=inputBox(“输入数据”)iF n<10 thEn CAll gEtArrAy(A，n) EnD iF EnD suBprivAtE suB gEtArrAy(B( )As intEgEr，nAs intEgEr) Dim C(10)As intEgErj=0For i=1 to nBB(i)=Cint(rnD( )*100)iF B(i)/2=B(i)\2 thEnj=j+1C(j)=B(i) EnD iFnExtprint j EnD suB以下叙述中错误的是( )。
A、数组B的偶数被保存在数组C中
B．程序运行结束时，在窗体上显示的是C数组中元素的个数
C、gEtArrAy过程的参数n是按值传送的
D、如果输入的数据大于10，则窗体上不显示任何信息