【加试题】有如下VB程序段：

n=0

For i=1 To Len(Text 1.Text)   

    c=Mid(Text 1.Text, i, 1)

    If c>=“0”And c<=“9”Then m=1 Else m= 2

    a(m)=a(m)+1

    If a(m) =1Then n=n+ 1

Next i

数组a各元素的初始值都为0，文本框Text 1的内容为“Happy 2017”。执行程序后，变量n的值为（  ）

A、1

B、2

C、4

D、9