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

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

Dim strA As String, strB As String

strA = "hongda"：strB = ""

For i = 1 To Len(strA) * 2

If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)

End If

Next i

该程序段运行后，变量strB的值是（  ）

lst = [2,5,2,1]

y = [1,1,1,1]

n = len(lst)

for i in range(①____):

    for j in range(②____):

        if ③____:

            y[j] = y[j] + 1

        else

            y[i] = y[i] + 1

上述程序段3个划线处的表达式分别为（   ）