如果要判斷句子中的英文單詞是否正確,那就很麻煩的.如果不要判斷單詞的正確性,僅僅假設句子中.單詞以空格分隔,那麼就比較容易實現了.
思路:
1．計算句子的長度，字元數L
2．ZFS ---- 存放英文單詞所用到的總字元數
DCS --- 存放英文單詞個數
MyStr ---- 存放英文句子
ZFS = 0
DCS = 0
For i = 1 To L
If Mid(MyStr , i,1) " " Then
ZFS = ZFS + 1 "如果不是空格，就是英文單詞中的一個字母
Else
DZS = DZS + 1 "如果是空格，說明1個單詞已經結束
End If
Next i
DCS = DCS +1 "考慮到句子結束不是空格,所以退出迴圈,單詞總數要加1
ZFS = ZFS - 1 "考慮到句子結束是句號,字母總數要減1
Print ZFS/DCS "將總的字母數除以總的單詞數
當然，程式需要最佳化，即空格有1個以上怎麼辦？有逗號怎麼辦等等
如果要判斷句子中的英文單詞是否正確,那就很麻煩的.如果不要判斷單詞的正確性,僅僅假設句子中.單詞以空格分隔,那麼就比較容易實現了.
思路:
1．計算句子的長度，字元數L
2．ZFS ---- 存放英文單詞所用到的總字元數
DCS --- 存放英文單詞個數
MyStr ---- 存放英文句子
ZFS = 0
DCS = 0
For i = 1 To L
If Mid(MyStr , i,1) " " Then
ZFS = ZFS + 1 "如果不是空格，就是英文單詞中的一個字母
Else
DZS = DZS + 1 "如果是空格，說明1個單詞已經結束
End If
Next i
DCS = DCS +1 "考慮到句子結束不是空格,所以退出迴圈,單詞總數要加1
ZFS = ZFS - 1 "考慮到句子結束是句號,字母總數要減1
Print ZFS/DCS "將總的字母數除以總的單詞數
當然，程式需要最佳化，即空格有1個以上怎麼辦？有逗號怎麼辦等等