Private Sub Command1Click()

Dim a(1 To 4) As Integer

Dim i As Integer

   a(1) = 1

 For i = 2 To 4

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

 Next i

List1.AddItem Str(a(i))

End Sub

Max=-10000

For i = 1 To 10

    s = 0

    For j = i To 10

      s = s + a(j)

      If s > max Then max = s

    Next j

 Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4．程序执行后，变量max的值为（   ）

    m=1：k=1

    For i=2 To 10

      If a(i)<a(i-1)Then

    k=k+1

         If k>m Then m=k

       Else

         k=1

       End If

    Next i

    Text1．Text=Str(m)

  End Sub

执行该程序段，文本框Text1中显示的是 （  ）