有如下VB程序段：

a="10001": b=0:t=0

For i=1 To Len(a)

c= Mid(a, i, 1)

If c="0" Then t = t -1 Else t = t +1

If t < 0 Then b = b * 2 Else b = b * 2+1

Next i

执行该程序段后，变量b的值为（  ）

A、15

B、17

C、20

D、24