p=a(1)

For I=2  to  30

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

Next I

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

该流程图粗线框部分①所在的位置应填写的内容是{#blank#}1{#/blank#}。

Private Sub Command1_Click()

  Dim a(0 To 5) As Integer

  Dim i As Integer               ’①

  a(0) = 1                      '②

  For i = 1 To 5

    a(i) = 2 * a(i - 1) + 1          '③

  Next i

  Text1.Text = Str(a(6))         '④

End Sub

      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）各元素值不可能的是（  ）