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

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

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

为实现上述功能请在划线处填上合适代码

Private Sub confirm_Click()

Dim i As Integer, j As Integer

Dim n As Integer, m As Integer Dim k As Integer, s As String Const length=6

n=Val(Text1.Text)i=1

List1.Clear

s=""

For j=1Tolength

k=Int(Rnd()*3)+1

If k=1Then

    m=Int(Rnd()*26)+1

    s=s+Chr(Asc("a")+m-1)

ElseIf k=2Then

    m=Int(Rnd()*26)+1

    s=s+Chr(Asc("A")+m-1)

Else

    m=⑴{#blank#}1{#/blank#}

    s=s+Chr(Asc("0")+m-1)

    EndIf

    Next j

    List1.AddItemStr(i)+""+s

    ⑵{#blank#}2{#/blank#}

Loop

End Sub

>>>  a=3

>>>  b=6

>>>  a, b=b, a

>>>  a-=b

>>>  a+b