已知由字母组成的字符串s，现要实现如下功能：将字符串s中的字母按照26个英文字母顺序依次输出(重复出现的字母只需输出一次)。如s="Congratulate"，输出结果为"aceglnortu"，为实现上述功能，在横线处填入的代码应该是（    ）

Dim a(1 To 26)As Integer

    s=Text1. Text

    For i=1 To Len(s)

          ①     

        If c>="A" And c<="Z" Then c=Chr(Asc(c)+32)

           ②    

    Next i

    For i=1 To 26

        If a(i)<> 0 Then Label1.Caption= Label1.Caption+     ③    

Next i

A、①c=Mid(s,i,1)   ②a(Asc(c)-96)=a(Asc(c)-96)+1   ③Chr(96+i)

B、①c=Mid(s,i,1)   ②a(i)=a(i)+1   ③Chr(a(i))

C、①c=Mid(s,i,1)   ②a(Asc(c)-96)=a(Asc(c)-96)+1   ③Chr(a(i))

D、①c=Mid(s,i,1)   ②a(i)=a(i)+1   ③Chr(96+i)