Private Sub Command1_Click()

    Dim s As String, s1 As String, c As String

    s = Text1.Text

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        s1 =    ⑴   

        For j =    ⑵   

            If c <> Mid(s, j, 1) Then

                s1 = s1 + Mid(s, j, 1)

            End If

        Next j

           ⑶    

    Next i

Text2.Text = s

End Sub

For i=1 To 5

    a(i)=Int (Rnd*9) +1

Next i

For i= 1 To 5

    If i Mod2=0 Then

        a(i) = a(i)\i

    Else

        a(i)= a(i) Mod i

    End If

Next i

执行该程序段后，在下列选项中a(1)至a(5)各元素可能是（    ）

p ="Tel-114"

c=""

for ch in p:

 if ch>= "0" and ch<= "9":

 c+=str(9-int(ch))

 elif ch>= "a" and ch<= "z":

 ch= chr(ord(ch) - 32)

 if ch>= "A" and ch<= "Z":

 c=ch+c

print(c)

执行程序后，输出的结果为（   ）