設(shè)計(jì)VB應(yīng)用程序，輸入一段英文，統(tǒng)計(jì)單詞個(gè)數(shù)和單詞平均長(zhǎng)度，該段英文中可能出現(xiàn)符包括大小寫(xiě)英文字母、數(shù)字、特殊字符，標(biāo)點(diǎn)符號(hào)（逗號(hào)，句號(hào)，空格，感嘆號(hào)，問(wèn)號(hào)，分號(hào)，雙引號(hào)），大小寫(xiě)字母和數(shù)字算單詞組成部分，其他都不計(jì)算，程序界面如下。

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)邳c(diǎn)線處填入合適代碼。
Private Sub Command Click（　?。?br />Dim s As String
Dim n As Integer
Dim cnt As Integer,i As Integer
Dim num As Single,ch As Single,ave As single
s=Text1．Text
n=Len（s）
num=0
ch=0
cnt=0
ave=0
For i=1 To n
c=Mid（s,i,1）
If（1）Then
cnt=cnt+1
Elself c＞=″A″And e＜=″Z″Then
cnt=cnt+1
EiseIf c＞=″0″And c＜=″9″Then
cnt=cnt+l
Else
If cnt＞0 Then
num=num+1
ch=ch+cnt
（2）
End If
End If
Next i
If cnt＞1 Then
nun=nun+1
ch=ch+cnt
End  If
Label1．Caption=″總共有″+Str（num）+″個(gè)單詞，平均長(zhǎng)度為″+Str（ave）
End Sub