学进去

小王为学校教务处编写了一个排考场座位的VB程序。考场采用“6排5列”共30人的模式。程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮Command1后，考场号与座位显示在Text1中，程序运行界面如图a所示，考生数据存放在数据库文件“kaochang.accdb”中，数据表如图b所示。
  
图a                               图b
实现上述功能的 VB 程序如下，请回答下列问题：
（1）当“Form Load()”事件处理过程运行结束时，变量x的值为_______。
（2）请在横线处填入合适的代码。
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

Text 1.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