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

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

     (1)

  List1.AddItem Str(a(i))

Next i

For i = x To y - 1

  k = i

  For     (2)

    If a(k) > a(j) Then k = j

  Next j

  If k <> i Then

    t = a(k): a(k) = a(i): a(i) = t

  End If

Next i

For i = x To y

  List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#}  ⑵{#blank#}2{#/blank#} 

Const n = 10

    Dim d(1 To n) As Integer, pm(1 To n) As Integer

    Private Sub Form_Load()

    '代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

    End Sub

    Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer, t As Integer

    i = 1

    Do While i <= n - 1

    k = i

    For j = i + 1 To n

    If  Then k = j     ‘①

    Next j

    If i <> k Then t = d(i): d(i) = d(k): d(k) = t

    i = i + 1

    Loop

    pm(1) = 1

    For i = 2 To n

    If  Then     ‘②

    pm(i) = i

    Else

    pm(i) = pm(i - 1)

    End If

    Next i

    For i = 1 To n

    List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

    Next I 

    End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While      ①     

  If a(pa) < b(pb) Then

    s = a(pa)

    pa = pa - 1

  Else

    s = b(pb)

    pb = pb + 1

  End If

  c(pc) = s

  If flag Then

    pc = m + n - pc + 1

  Else

    pc =

  End If

       ②     

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

For i=1 To 3

    For j=i+1 To 7

        If a(j)< a(i) Then

            k= a(j): a(j)= a(i): a(i)=k

            c=c+1

        End If

    Next j

    s= Str(a(i))+s

Next i

Text1.Text=Str(c) & ":" & s

数组元素a(1)至a(7)中值分别为3，9，1，5，8，6，2，该程序段运行后，文本框Text1中显示的内容是（   ）