Private Sub Command1_Click()

Dim y As Integer

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

Dim pa As Integer     ‘数据库导入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=1

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+“”+kcsName(m)

      m=m+1

    Next j

    Text1.Text=Text1.Text+vbCrLf

  Next i

  Text1.Text=Text1.Text+vbCrLf+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=1

  List1.AddItem“考号  姓名”

  List1.AddItem“--------------”

Do While Not myrecord.EOF

 ‘读取数据库数据，存入数组kh(x)、sName(x)中，代码略

  List1.AddItem kh(x)+“ ”+sName(x)

  x=x+1

  myrecord.MoveNext

Loop

myrecord.Close

End Sub