设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 ThenCall，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 nb(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．数组b中的偶数被保存在数组c中

B．程序运行结束时，在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何信息

通过监理招投标获得某移动公司工程的监理业务，工期约一年，投资1400万，监理费的取费费率2.8%，你幸运成为该工程的负责人，（1）在巡检过程中发现公司某一的工程的工艺不符合要求，同时监理人员未在监理日记中记录，你如何处理？（2）某施工单位在施工时未按安全规范施工，造成一人死亡的安全事故，事故发生时我公司无监理人员在场，你最先得到消息，你准备如何做？