设计VB应用程序，输入一段英文，统计单词个数和单词平均长度，该段英文中可能出现符包括大小写英文字母、数字、特殊字符，标点符号（逗号，句号，空格，感叹号，问号，分号，双引号），大小写字母和数字算单词组成部分，其他都不计算，程序界面如下。

实现上述功能的VB程序如下，请在点线处填入合适代码。
Private Sub Command Click（　　）
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）+″个单词，平均长度为″+Str（ave）
End Sub