Private Sub Command1_Click（）

  Dim s1 As String，s2 As String   

  Dim ch As String，ch2 As String   

  Dim max As Double   

  Dim n As Integer，page As Integer  

  Dim i As Integer，j As Integer

  s1=Text1．Text：s2=””

  n=Len(s1)

  i=1：max=0

  Do While i<=n

    ch=Mid(s1，i，1)

    If ch>=“0”And ch<=“9”Then

        j=i

        ch2=Mid(s1，i，1)

        Do While ch2>=“0”And ch2<=“9”

           j=j+1

           ch2=Mid(s1，j, 1)

        Loop

        s2=    ’(1)

        If   Then    ’(2)

            max=Val(s2)

            page=i*10+j-1

            Text2．Text=Str(page)

            Text3．Text=Str(max Mod l00)

        End If

        i=j

      End If

      i=i+1

    Loop

  End Sub

  Dim a(1 To 1 000)As String

  Dim b(1 To 2)As Integer

  N=Len(Text1．Text)

  For i=1 To n

    a(i)=Mid(Text1．Text，i，1)

  Next i

  DO While n>l

    If ASC(a(n))>=Asc(a(n-1))Then

       m=1

    Else

      m=2

    End If

    b(m)=b(m)+1

    n=n-1

  Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（  ）

a = a + b

b = a + b

a和b的值分别为（   ）