編寫(xiě)VB程序，實(shí)現(xiàn)在文本中統(tǒng)計(jì)以某字母開(kāi)頭的單詞總數(shù)，并依次輸出查找到的每個(gè)單詞。程序功能如下：文本框Text1中輸入文本（單詞間用空格、“，”、“.”分隔），文本框Text2中輸入開(kāi)頭字母，單擊“查找”按鈕Commmandl后，標(biāo)簽Label1中顯示符合條件的單詞總數(shù)，列表框Listl中依次輸出每個(gè)單詞，程序運(yùn)行界面如圖所示。

（1）要使程序運(yùn)行時(shí)，窗體Forml標(biāo)題欄自動(dòng)顯示“統(tǒng)計(jì)指定字母開(kāi)頭的單詞”，可在

A

A

（單選，填字母：A.Form_Load

（　?。?/div>

（　　）

/B.Form_Click

（　?。?/div>

（　?。?/div>/C.Commandl_Click

（　?。?/div>

（　　）

）事件過(guò)程中添加相關(guān)語(yǔ)句來(lái)實(shí)現(xiàn)。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適代碼。
PrivateSubCommand1_C1ick （　　）
DimiAsInteger,jAsInteger,nAsInteger,flagAsBoolean
DimstAsString,szmAsString,chAsString,wordAsString,tmpAsString
st=Textl-Text
szm=Text2.Text
flag=True：n=0
Fori=1ToLen（st）
①

ch=Mid（st,i,1）

ch=Mid（st,i,1）

Ifch=szmAndflag=TrueThen
n=n+1：word=ch
Forj=i+1ToLen（st）
tmp=Mid（st,j,1）
Iftmp＜＞″″Andtmp＜＞″.″Andtmp＜＞″，″Then
②

word=word+tmp

word=word+tmp

Else
Listl.AddItemStr（n）+″.″+word
i=j
ExitFor
EndIf
Nextj
ElseIfch=″″Orch=″，″Orch=″.″Then
③

flag=True

flag=True

Else
flag=False
EndIf
Nexti
Label1.Caption=″字母″+szm+″開(kāi)頭的單詞總數(shù)：″+Str（n）
EndSub