单项选择题

执行下列程序:
   CLEAR
   SET TALK OFF
   STORE 1 TO i,a,b
   DO WHILE i<=3
     DO PROG1
     "P("+STR(i,1)+")="+STR(a,2)+","
     i=i+1
   ENDDO
   "b="+STR(b,2)
   RETURN
   PROCEDURE PROGl
   a=a*2
   b=b+a
   SET TALK ON
   RETURN
  程序的运行结果为

A.P(1)=2,P(2)=3,P(3)=4,b=15
B.P(1)=2,P(2)=4,P(3)=6,b=8
C.P(1)=2,P(2)=4,P(3)=6,b=18
D.P(1)=2,P(2)=4,P(3)=8,b=15