(提示：COUNTIFS函数用于计算多个区域中满足给定条件的单元格的个数。例如：= COUNTIFS(F4：F83，"<60"，B4： B83，J5)表示求F4： F83区域内所选内容小于“60”且B4：B83区域内所选内容为“0302”的单元格数据，F列、G列均为百分数。)

Private Sub Commandl_Click（）

Dim y As Integer

Dim start As Integer       '考场第1位数据元素的下标

Dim pa As lnteger   '数据库导人VB时学生数据下标

Dim pb As Integer   '考场座位数据下标

Dim i As Integer，j As Integer，k As Integer， m As Integer

start= 1

pa=start

recCount=x-1

If recCount Mod 30 <>0 Then

          ①     

    For i=1 To y   '将当前考生人数添加到 30 的整数倍

        recCount=recCount+1

        sName（recCount）= " "

    Next i

End If

For j=1 To recCount/30

    pa=start

    pb=start

    For i=1 To 30

        kcsName（pb）= sName（pa）

        pb=pb+1

        If i Mod 5=0 Then

            pa=start+i\5

        Else

                  ②      

        End If

    Next i

    start=start+30

Next j

Text1.Text=""

start=l

For k=1 To recCount/30

    m=start

    Text1.Text=Text1.Text+"第"+Str（k）+"考场"+vbCrLf

    'vbCrLf 为换行标志符，实现Text1中内容换行显示

    For i=1 To 6

        For j=1 To 5

            Text1.Text=Text1.Text+""+kesName（m）

            m=m+1

        Next j

        Text1.Text=Text1.Texi+vbCrLf

    Next i

    Text1.Text=Text1.Text+vbCrLí+vbCrLf

        ③   

Next k

End Sub

Private Sub Form_load（）

Dim myconn As New ADODB.Connection

Dim myrecord As New ADODB.Recordset

myconn.ConnectionString=" provider=microsoft.Ace.Oledb.12.

0：data source=e：\kaochang.Accdb"

myconn.Open

strsql=" select * from三中"

myrecord.Open strsql，myconn

x=l

Listl.Addltem"考号   姓名"

List1.AddItem  "----------------------"

Do While Not  myrecord.EOF

  '读取数据库数据，存入数组kh（x）、sName（x）中，代码略

  List 1.Addltem kh（x）+" "+sName（x）

  x=x+1

  myrecord. MoveNext

Loop

myrecord.Close .

End Sub

①       ②       ③