1. (2020高三下·金华月考) 【加试题】有如下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的值为（  ）