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 n As Integer，a(100)As Integer，max As Integer

  Private Sub Form_Load()      ‘读取原始数据

    Dim conn As New ADODB．Connection．rs As New ADODB．Recordset

    Dim i As Integer

  conn．ConnectionString=”Provider=Microsoft．ACE．OLEDB．12．0；Data

  Source=”&App．Path&。”＼student．accdb”

    conn．Open

    Set rs．ActiveConnection=conn

    rs．Open“SELECT*FROM DF”

    i=0：max=0

    Do While Not rs．EOF

      i=i+1：n=i

      a(i)=         ‘①

      If a(i)>max Then max=a(i)

      rs．MoveNext

    Loop

    rs．Close：conn．Close

  End Sub

  Private Sub Command1_Click()         ‘去重复值排序

    Const t=max

    Dim i As Integer，b(t)As Integer

    For i=1 To n

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

    Next i

    For i=1 To t

       If  Then List1．AddItem Str(t-i+1)       ‘②

    Next i

  End Sub

实现上述功能的VB程序如下，请回答下列问题:

实现上述功能的VB程序如下，请回答下列问题：

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1

中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：

请阅读代码，并回答以下问题：

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer，k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub