小张利用 VB 给教务处老师编写了“排监考表”的小程序。该程序的执行过程如下：
①从数据库中读取待排监考的老师姓名信息存入数组 teachers,每个考试科目的学生数（新高考7选3，每个考试科目学生数不一样）存入数组xkStudSum（其中xkStudSum（1）存放语文学科的学生数，按“语文数学英语物理化学生物政治历史地理技术”依此类推）；
②根据每个试场的人数（30 人）计算出各个考试科目的试场数存入数组 xkSc（其中 xkSc（1）存放语文学科的试场数，依此类推）；
③将待排教师分配到每一个考场，并存入数组scTeacher（每个老师只能排1场，教师 数量100保证大于所有的试场数）；
④按考试科目将监考教师姓名显示在list1中。运行界面如图所示：

（1）实现上述功能的VB程序如下，请完善横线处的代码。
Const XKMC=“语文数学英语物理化学生物政治历史地理技术“
Dim xkStudSum（1 To 10）As Integer'各个考试科目学生数
Dim teachers（1 To 100）As String'存放待排监考的教师姓名
Dim scTeacher（1 To 100）As String'存放已排监考的教师姓名
Dim xkSc（1 To 10）As Integer'各个学科试场数
Private Sub form_Load （　　）
‘本过程从数据库中读取各考试科目学生数并存放在数组 xkStudSum‘读取教师姓名并存放在数组teachers
‘本过程代码略
End Sub
Private Sub Command1_Click （　　）
Dim index As Integer
Dim totalSc As Integer‘存放总试场数量
Dim book（1 To 100）As Boolean
Randomize
For　i=1 To 10
xkSc（i）=①

（xkStudSum（i）+29）\30

（xkStudSum（i）+29）\30

totalSc=totalSc+xkSc（i）
Next i
For i=1 To totalSc
t=Int（Rnd

（　　）

（　　）

*100）+1‘随机生成待排监考老师的编号
If  not book（t）  Then
scTeacher（i）=teachers（t）
book（t）=True
Else
②

i=i-1

i=i-1

End If
Next i
‘按考试科目显示监考老师
For i=1 To 10
s=Mid（xkmc,2*i-1，2）+“：“
For j=1 To xkSc（i）
③

index=index+1

index=index+1

s=s+scTeacher（index）+“，“
Next j
List1．AddItem s
Next i
End Sub
（2）根据问题描述和分析代码，写出数组scTeacher中存放“数学学科”第2个监考教师姓名的下标的vb表达式

xkSc（1）+2

xkSc（1）+2

。