小張利用 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

。