p=a(1)

For I=2  to  30

  If  a(I) < p  then  p=a(I)

Next I

该程序段执行后，变量I的值是（   ）

i = 1

 Do While i <= 6

    t = Int(Rnd * 10) + 1

    If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

   k = 1

   For j = 1 To 6 - i * 2

     If a(j) * k > a(j + 2) * k Then

       t = a(j) :  a(j) = a(j + 2) :  a(j + 2) = t

     End If

     k = -k

   Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）

执行该流程图后，输出b的结果是（  ）

PRIVATE SUB FORMCLICK

  FOR I = 3 TO {#blank#}1{#/blank#}

     F=0

     FOR J= 2 TO I-1

       IF {#blank#}2{#/blank#} THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN {#blank#}3{#/blank#}

  {#blank#}4{#/blank#}

 END SUB

Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（  ）