小張利用 VB 給教務(wù)處老師編寫了“排監(jiān)考表”的小程序。該程序的執(zhí)行過程如下：
①從數(shù)據(jù)庫中讀取待排監(jiān)考的老師姓名信息存入數(shù)組 teachers,每個考試科目的學(xué)生數(shù)（新高考7選3，每個考試科目學(xué)生數(shù)不一樣）存入數(shù)組xkStudSum（其中xkStudSum（1）存放語文學(xué)科的學(xué)生數(shù)，按“語文數(shù)學(xué)英語物理化學(xué)生物政治歷史地理技術(shù)”依此類推）；
②根據(jù)每個試場的人數(shù)（30 人）計(jì)算出各個考試科目的試場數(shù)存入數(shù)組 xkSc（其中 xkSc（1）存放語文學(xué)科的試場數(shù)，依此類推）；
③將待排教師分配到每一個考場，并存入數(shù)組scTeacher（每個老師只能排1場，教師 數(shù)量100保證大于所有的試場數(shù)）；
④按考試科目將監(jiān)考教師姓名顯示在list1中。運(yùn)行界面如圖所示：

（1）實(shí)現(xiàn)上述功能的VB程序如下，請完善橫線處的代碼。
Const XKMC=“語文數(shù)學(xué)英語物理化學(xué)生物政治歷史地理技術(shù)“
Dim xkStudSum（1 To 10）As Integer'各個考試科目學(xué)生數(shù)
Dim teachers（1 To 100）As String'存放待排監(jiān)考的教師姓名
Dim scTeacher（1 To 100）As String'存放已排監(jiān)考的教師姓名
Dim xkSc（1 To 10）As Integer'各個學(xué)科試場數(shù)
Private Sub form_Load （　?。?br />‘本過程從數(shù)據(jù)庫中讀取各考試科目學(xué)生數(shù)并存放在數(shù)組 xkStudSum‘讀取教師姓名并存放在數(shù)組teachers
‘本過程代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim index As Integer
Dim totalSc As Integer‘存放總試場數(shù)量
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

（　?。?/div>

（　?。?/div>*100）+1‘隨機(jī)生成待排監(jiān)考老師的編號
If  not book（t）  Then
scTeacher（i）=teachers（t）
book（t）=True
Else
②

i=i-1

i=i-1

End If
Next i
‘按考試科目顯示監(jiān)考老師
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）根據(jù)問題描述和分析代碼，寫出數(shù)組scTeacher中存放“數(shù)學(xué)學(xué)科”第2個監(jiān)考教師姓名的下標(biāo)的vb表達(dá)式

xkSc（1）+2

xkSc（1）+2

。