有如下VB程序段：

n = 0

For i = 1 To Len(Text1.Text)

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

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

    a(m) = a(m) + 1

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

Next i

数组a各元素的初始值都为0，文本框Text1的内容为“Happy2018”。执行程序后，变量n的值为(  )

A、1

B、2 

C、4

D、9