有VB程序段如下: Dim a(1 To 26) As Integer s= "2020 Artificial Intelligence!” : n=0 For i=1 To Len(s) ch= Mid(s, I, 1) If ch>= "a" And ch <= "z" Then m = Asc(ch) - Asc("a") + 1 a(m)=a(m)+1 End If Next i For i=1 To 10 If a(i)>1 Then n=n+1 Next i 已知数组a各元素的初始值都为0,执行该程序段后,变量n的值为( )
A . 2
B . 3
C . 6
D . 10
答案:B