【单选题】

单击一次命令按钮之后，下列程序段的执行结果为()。Pubic Sub Proc(a()As Integer)　Static iAs Integer　Do a(i)=a(i)+a(i+1) i=i+1　Loop While i<2 End SubPrivate SubCommand1_Click()　Dim mAs Integer,iAs Integer,x(10)As Integer　For i=0 To 4:x(i)=i+1:Next i　For i=1 To 2:CallProc(x()):Next i　For i=0 To 4:Print x(i);Next i End Sub

A、3 4 7 5 6
B．3 5 7 4 5
C．1 2 3 4 5
D．1 2 3 5 7