求输入英文句子单词的平均长度.用pascal语音

控件：1个文本框,1个按钮
代码：
Private Sub Command1_Click()a = Len(Text1.Text)b = 0For 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 IfNextMsgBox Str((a - b - c) / (b + 1))End Sub注意,如果出现冒号或者感叹号的话,需要对c的判断条件进行一下修正.
希望对你能有所帮助.