有如下程序段,若在text1中输入"abcd + BC + cdef + DE",请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
a(Asc(c) - 96) = a(Asc(c) - 96) + 1
ElseIf c >= "A" And c <= "Z" Then
a(Asc(c) - 64) = a(Asc(c) - 64) + 1
End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i