有如下VB程序段：

数组元素f(1)到(9)赋初值为0，代码略

a(1)= 1

For i=2 To 9

  a(i)=a(i-1)+ Int(Rnd* 2)+1

Next i

Key= Val(Text1. Text)

i=1: j=9

Do While i<=j

  m=(i+j+1)\ 2

  f(m)= 1

  If a(m) > Key Then

    j=m-1

  Else

    i=m+1

  End If

Loop

在文本框Text1中输入待查找数，执行该程序段后，下列选项中，f(1)到f(9)各元素值不可能的是（    ）

A、1，1，1，0，1，0，0，0，0

B、0，0，0，0，1，0，0，1，1

C、0，0，0，0，1，0，1，1，1

D、0，0，1，1，1，0，0，0，0