小楊同學(xué)編寫(xiě)了一個(gè)VB程序用于學(xué)校里7選3選課情況統(tǒng)計(jì)。該程序主要功能有：1．點(diǎn)擊“生成選課組合”按鈕Commandl,生成35種選課組合；2．點(diǎn)擊“統(tǒng)計(jì)選課情況”按鈕Command2，統(tǒng)計(jì)出各種組合的選課人數(shù)；運(yùn)行界面如圖。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：

（1）分析程序代碼，如圖里“選課組合”序號(hào)為30的組合名稱為：

生史技

生史技

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。請(qǐng)回答下列問(wèn)題：
Dimzh（1To16）AsString,zrsAsInteger
Dimxk（1To1000）AsString'存放同學(xué)的選課科目組合，已知學(xué)生人數(shù)少于1000人
Dimzh2（1To35）AsString'存放35種選課科目組合
Dimrstj（1To35）AsInteger'存放各種選課組合選課人數(shù)
PrivateSubForm_Load （　　）
‘本過(guò)程從數(shù)據(jù)庫(kù)中讀取學(xué)生的選課情況數(shù)據(jù)，存放在數(shù)組xk中，學(xué)生的總?cè)藬?shù)存放在變量zrs?！a略
EndSub
PrivateSubCommandl_Click （　?。?br />DimiAsInteger,jAsInteger,mAsInteger,nAsInteger,kAsInteger
Dimkm（1To7）AsString
Listl.Clear
List1．AddIton“序號(hào)”+“”+“組合名稱”
km（1）=“物”：km（2）=“化”：km（3）=“生”km（4）=“政”
km（5）=“史”km（6）=“地”：km（7）=“技”
m=1
Fori=1To5
Fork=i+1To6
zh（m）=km（i）+km（k）
m=m+1
Nextk
Nexti
j=3：n=1：y=j
Fori=1Tom
Fork=yTo7
zh2（n）=

zh（i）+km（k）

zh（i）+km（k）

Ifn＜=9Then
Listl.AddItemn&″″&″″&zh2（n）
Else
Listl.AddItemn&″″&zh2（n）
EndIf
n=n+1
Nextk
y=y+1
Ify=8Then
j=

j+1

j+1

：y=j
EndIf
Nexti
Endsub
PrivateSubCommand2_Click （　?。?br />DimiAsInteger
List2．Clear
List2，Additon″組合名稱″+″″+″選課人數(shù)″
Fori=1To35
rstj（i）=

tj（zh2（i））

tj（zh2（i））

List2AddItemzh2（i）+““+Str（rstj（i））
Nexti
EndSub
Functiontj（zhmcAsString）AsInteger'統(tǒng)計(jì)某種選課組合的選課人數(shù)
DimiAsInteger,rsAsInteger
rs=0
Fori=ITozrs
Ifzhmc=xk（i）Then
rs=rs+1
EndIf
Nexti
tj=rs
EndFunction