单击一次命令按钮后，下列程序的执行结果为（ ）。　　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． 3 4 7 5

B． 3 5 7 4

C． 1 2 3 4

D． 1 2 3 5