Dim c(1 To 26)As Integer

s=Text1.Text

For i=1 To Len(s)

    x=Mid(s, i, 1)

    If x>="a" Then

        t=Asc(x)-Asc("a")+1

    Else

        t=Asc(x)-Asc("A")+1

    End If

       ① 

    If c(t)>=Max Then Max=c(t):   ②  

Next i

Text 2.Text=Chr(f+Asc("A"))

划线处应该填入的正确语句是（   ）

count = 0

For i = 1 To 20

    a(i) = Int(Rnd ∗ 100) + 1

Next i

For i = 1 To 20

Next i

For i = 1 To 100

    If b(i) <> 0 Then count = count + 1

Next i

Label1.Caption= "不重复数字个数" + Str(count)

为实现上述功能,则程序①处应填入的语句为（   ）

s = "abcxyz"

q = [1,2,3] + [0] * 10

head , tail = 0 , 3

res = ""

for i in s :

    c = chr ((ord(i) - ord("a") + q [head]) % 26 + ord("a"))

    res += c

    q [tail] = q [head]

    head = head + 1

    tail = tail + 1

print(res)

执行该程序段后，输出的结果是（   ）