程序代码

    Private Sub Command1_Click()

    Dim i As Integer

    Dim s As Long

    s = 1

    For    ① 

    ② 

    Next i

    Label1.Caption =    ③

    End Sub

    程序运行结束i的值为：    ④

划线处①应填入{#blank#}1{#/blank#}

划线处②应填入{#blank#}2{#/blank#}

划线处③应填入{#blank#}3{#/blank#}

划线处④应填入{#blank#}4{#/blank#}

For i = 1 To 5

 b(a(i)) = b(a(i)) + 1

Next i

pa = 0

For j = 1 To 10

 For k = 1 To b(j)

pa= pa + 1 : a(pa) = j

 Next k

Next j

a(1)到a(5)的初值依次是7、5、9、4、3，程序段运行后，数组a值依次是（  ）

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

    t = Int(Rnd*10) + 1

    If t Mod 2 = i Mod 2 Then

        t = t + 1

    Else

        t = t + 2

    End If

    s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框List1中可能显示的内容是(   )