用VB编程,求输入的英语句子中单词的平均长度

例如：句子 All things are difficult before they are easy.中单词的平均长度为4.75.

控件：1个文本框，1个按钮
代码：
Private Sub Command1_Click()
a = Len(Text1.Text)
b = 0
For i = 1 To a
If " " = Mid(Text1.Text, i, 1) Then
b = b + 1 '统计空格数
End If
If "," = Mid(Text1.Text, i, 1) Or "." = Mid(Text1.Text, i, 1) Then
c = c + 1 '统计逗号和句号
End If
Next
MsgBox Str((a - b - c) / (b + 1))
End Sub注意，如果出现冒号或者感叹号的话，需要对c的判断条件进行一下修正。

额 我的想法是这样 声明一个数组，把每个单词作为数组元素，然后用length函数求出每个单词的长度 ，然后除以数组下标+1

没必要 只要根据vb的学习书籍 知道那几个关键词的意思就行 英语要求不高 虽是英文 都是基础的

Private Sub Command1_Click() a = Len(Text1.Text) b = 0 For i = 1 To a If " " = Mid(Text1.Text, i, 1) Then b = b + 1 '统计空格数 End If If "," = Mid(Text1.Text, i, 1) Or "." = Mid(Text1.Text, i, 1) Then c = c + 1 '统计逗号和句号 End If Next MsgBox Str((a - b - c) / (b + 1)) End Sub