VB程序，實(shí)現(xiàn)以下功能：在文本框Text 1中輸入英文文本，每個(gè)單詞只包含大寫字母或小寫字母，且以“.”結(jié)尾。單擊“計(jì)算“按鈕求出所有英文單詞中長(zhǎng)度最長(zhǎng)的單詞，并顯示在列表框Listl中。運(yùn)行效果如圖2所示
（1）從代碼Private Sub Command1 Click0可知，Click 是

D

D

（選填：A對(duì)象名/B方法名/C屬性名D事件名E過(guò)程名）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Commandl _Click（　?。?br />Dim s As String,tAs String
Dim iAs Integer,temp As Integer,max AS Integer,w As Integer
List1.Clear‘列表框Listl清空
①

s=text_1.text

s=text_1.text

i=1：max=0：temp=0
Do While i＜=Len（s）
t=Mid（s,i,1）
If（t＜=“z“Andt＞=“a“）Or（t＜=“Z“And t＞=“A“）Then
temp-temp+1
Else
If temp＞max Then
max-temp
w=i
End If
②

temp=0

temp=0

EndIf
i=i+1
Loop
Litl.Addteom Str（max）+“”+③

mid（s,w-max,max）

mid（s,w-max,max）

End Sub
（3）若在文本框Text 1中輸入“Todayis Sunday“，單擊“計(jì)算”按鈕后，會(huì)在列表框Listl 中顯示

5Today

5Today

.