有如下VB程序段：

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的值为（  ）

A、1

B、4

C、8

D、13