VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

  Dim n As Integer , i As Integer , j As Integer

  Dim t1 As String

  ‘连接数据库获取数据

  Dim cn As new connection

  Dim rs As new recordest

  Dim str1 As String , str2 As String

     str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

     cn.open str1

     str2 = “select * form members where 生日 ＝’“ + text1.text + ”’”

     rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

     n = 0

     Do While Not Rs.EOF

       n = n + 1

       na(i) = rs.Fields(“姓名”).value

       rs.MoveNext

     Loop 

     rs.close

     cn.close

‘按姓名排序

If n = 0 Then

  List1.AddItem “本天没有员工生日”

Else

  For i = 1 to n-1

    For j = 1 to n+1 Step -1

      If na(j) < na(j-1) Then

        t1 = na(j) :     ①      : na(j-1) = t1

      End If

    Next j

   Next i

   For i = 1 to n

     List1.AddItem     ②   

   Next i

   Label3.Caption = “这天共” + Str(n) + “位员工生日”

  End If

End Sub

数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，,4,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（   ）

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

    m=(i+j)2

    IF k<d(m) Then j=m-1 Else i=m+1

    n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（  ）

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个划线处的表达式分别为（   ）