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

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean  'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True      '（1）

flag=False

For j=n To i+1 Step -1

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

k=a(j):a(j)=a(j-1):a(j-1)=k

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i)             '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

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

  实现上述功能的VB程序如下，但加框处语句有错，请改正。

Const n1=9       ‘第1段已排序数据长度为n1

Const n2=6       ‘第2段已排序数据长度为n2

 ‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

    ‘数组c依次存储两段已按从小到大排序的数据

    ‘并在列表框List1中显示，代码略

     List2．Clear

           A位置 

     For i=n1+1 To n1+n2

         j=i

           B位置  

        Do While j>1 And Flag

              t=c(j)

             c(j)=c(j-1)

             c(j-1)=t

       C位置 

        Else

          Flag=False

        End If

        j=j-1

                ‘②

      Loop

    Next i

    For i=1 To n1+n2

    List2．Addltem c(i)

    Next i

End Sub

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

  'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

  '代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean         

i = 1

flag = True

Do While             '改错

     flag = False

     For j = n To i + 1 Step -1

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

           k = a(j): a(j) = a(j - 1): a(j - 1) = k

           flag = True

        End If

     Next j

     i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为" +              '填空

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

End Sub

If temp >= a(n) Then

a(n + 1) = temp

Else

j = n

Do While j >= 1 And temp < a(j)

       ①            

j = j -1

Loop

         ②            

End If