巷道支架背板后面和围岩间若有空隙，根据围岩坚固程度，决定是否用木料或矸石填实。

单击一次命令按钮后，下列程序的执行结果为（ ）。　　Private Sub Command1_Click()　　　　Dim m As Integer，I As Integer，x(10) As Integer　　　　For I=0 To 4：x(I)=I+1：Next I　　　　For I=1 TO 2：Call Prioc(x)：Next I　　　　For I=0 TO 3：Print x(I)；：Next I　　End Sub 　　Private Sub Prioc(a()As Integer)　　　　Static I As Integer　　　　Do　　　　　a(I)=a(I)+a(I+1)　　　　　I=I+1　　　Loop While I＜2　　End Sub

A．private

B．无修饰符

C．public

D．protected