flag = True : i = 1

      Do While i <= 6

          x = Int(Rnd * 100) + 1 

          If flag Or x >50 Then

               a(i)=x

               flag = Not flag

               i = i + 1

          End if

      Loop

执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（  ）

Dim a(1 To 100)As Integer, b(1 To 10) As Intege

Dim i As Integer, s As Integer, c As Integer

For i=1 To 100

    a(i)=0

Next i

For i=1 To 9 Step 2

    a(b(i))=a(b(i))+1: a(b(i+1)+1)=a(b(i+1)+1)-1

Next i

c=0

For i=1 To 100

    c=c+a(i)

    If c=0 Then s=s+ 1

Next i

Text1. Text= Str(s)

若数组b中的值依次为“5，10，7，20，30，40，40，60，55，70”，则程序运行后Text中的内容是（  ）