学进去

小王用VB编写了一个考场座位编排程序，实现从考生数据库里读出所有学生的姓名和前一次考试成绩，分别存入数组xm和数组cj中，并按成绩从高到低排序后显示在List1中。输入考场规格和考场号，单击考场座位编排按钮Command1后，从第一位考试开始按S型依次安排座位，并在List2中输出该考场的座位表。每个姓名输出占4个汉子字符宽度：运用fm函数来解决此问题，尾试场多余位置显示“空”字。


实现上述功能的VB程序如下，请在划线处填入合适的代码。
’加载所有考生信息代码略
’函数m代码略
Private Sub Command1_Click()
Dim kc As Integer

Dim p As Integer, q As Integer    ’p为行，q为列

’初始化代码略

p=Val(Text1.Text):q=Val(text2.Text):kc=Val(text3.Text)

ks=p*q*(kc-1)

For i=1 To p

   ks=ks+1

s=fm(xm(ks),4)
For j=1 To q-1
If j Mod 2=1 Then
num=ks+p*2*(j+1)\2-1(i-1)*2
Else
num= ______
End If
If num>n Then
s=s+fm( “空”, 4)
Else
s=s+ _______
End If
Next j
List2, AddItem s
List2.AddItem “----------”
Next i
End Sub