(27) 單擊一次命令按鈕后，下列程序的執行結果為

　　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

　　正確答案: B