作业帮 > 综合 > 作业

求输入英文句子单词的平均长度.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/26 05:44:51
求输入英文句子单词的平均长度.
用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的判断条件进行一下修正.
希望对你能有所帮助.
再问: 呃,能不能排整齐一点看不懂啊,而且你这是pascal语言吗?好像不是把