解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

实现上述功能的VB程序如下，请回答下列问题。

Private Sub Command1_Click()

   Dim i As Integer, n As Integer, m As Integer

   Dim num As Integer, t As Integer

   Dim a(1 To 100) As Boolean

   n = Val(Text1.Text)

   m = Val(Text2.Text)

   For i = 1 To n

      a(i) = True

   Next i

       ①      

   Do While t > 1

      For i = 1 To n

        If a(i) = True Then   ②    

        If num = m The

               ③     

t = t - 1

           num = 0

           Text3.Text = Text3.Text + Str(i)

        End If

      Next i

   Loop

   For i = 1 To n

       If a(i) = True Then Label2.Caption ="获得礼品同学编号:" + Str(i)

   Next i

End Sub

s=Text 1.Text：n=0：f=False

For i=1 To Len(s)

  ch=Mid(s，i，1) 

  If ch>="0" And ch<="9" Then

    If Not f Then

      f=True：n=n+1

    End If

  Else

    f=False

  End If

Next i

运行该程序段后，在文本框Text 1中输入“13+(123-23) *2”则变量n的值为（  ）