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

  Private Sub Command1_Click()

    For i=1 To 4

    s=””

      For j=1 To 7

     If        Then

s=s+“*“

 Else

       s=s+”  ”    ‘双引号内为1个空格

       End If

    Next j

    List1．AddItem s

    Next i

  End Sub

则方框中的语句是 （  ）

   a（1）=1：a（2）=1

   b（1）=1：b（2）=2

   for i=3 to 5

       a(i)=a(i-1)+a(i-2)

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

   next i

执行该段程序后，数组元素b（5）的值为（  ）

a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59

  For i=1 To 9

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

    c(b(i)\10)= c(b(i)\10) + 1

  Next i

  For i=0 To 10

    If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))

Next i

数组c各元素初值为0，执行该程序段，标签Label 1上显示的内容是（  ）