有如下VB程序段：

Dim flag As Boolean

s= Tex1.Text：j=0：cnt=1

For i=1 To Len(s)

  c= Mid(s, i, 1)

  If c>="0" And e<= "9" Then

    j=j+1

    flag= True

  Else

    If j>lenmax And cnt Mod 2= 1 Then lenmax=j

    j=0

    If flag Then cnt= cnt + 1：flag= False

  End If

Next i

Text2. Text = Str(lenmax)

在文本框Text1输入“one302type27645time9986”，程序运行后文本框Text2中显示为（    ）

A、12

B、5

C、3

D、4