学进去

要对报告厅内参加表演和观看演出的学生座位进行安排，具体学生相关数据如下表1所示。班级已经按从小到大排定，节目共4个，编号依次为1-4，不参加表演的学生的节目编号为5；已知报告厅有200个座位（10排20列），全部报名人数为150人，其中参加节目表演的学生为12人。座位：安排规则如下：①左上区域有12个座位（3排4列）为表演学生专座，用“O”表示，从左至右，从前至后，按节目顺序从小到大依次安排座位。②其他区域用“口”表示，从左至右，从前至后，按班级顺序依次安排不参加表演的学生的座位。
在Text1中输入班级，在Text2中输入姓名，单击“查询”按钮Command1，显示：①学生行列位置显示在标签label2中：②学生具体位置显示在列表框List1中。程序运行界面如图所示。
（1）根据表1显示的数据，1班的黄楠，所在的位置是_______（例填：第1排第1列）。
（2）请在划线处填入合适的代码。

Const n=150
Const row=10:Const col=20
Const acty=3:Const actx=4
Dim a(1 To n) As String, b(1 To n) As String, c(1 To n) As String
Dim e(1 To row*col) As String   ’存储学生姓名
Private Sub Commandl_Click()

num= f(Text1.Text, Text2.Text)

If num < >0 Then

l=(mum-1)\col+1

__________

’在1ist1中用实心图形标记查找到的位置，代码略

Label2. Caption="你的位置在：第"+Str(1)+"排，第"+Str(r)+"列"

Else

Label2 Caption="没有找到你的座位!"

End If

End Sub

Private sub Form_Load()

Dim lastn As Integer, m As Integer, flag As Boolean, k As Integer

’读取班级、学生姓名、参加节目编号到数组a、b、c中，代码略

flag=True: lastn=1

Do While flag

___________

For j= n To lastn+1 Step-1

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

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

t=b(j):b(j)=b(j-1):b(j-1)=t

t=c(j):c(j)=c(j-1):c(j-1)=t

lastn=j: flag True

End If

Next j

’座位初始化，并且在1ist1中显示，代码略

m=1:k=13

For i =1 To row

For j=1 To col

If_________Then

e((i-1)*col+j)=b(m):m=m+1

ElseIf k <=n Then

e((i-1)*col+j)=b(k):k=k+1

End If

Next j

Next i

Loop

End Sub
Function f(a As String, b As String)As Integer

’函数f根据输入的班级、姓名返回在数组e中的位置，如果没有找到则返回数字0

End Function