如何统计TextBox,RichText中 中文、英文、中英文字数？

Question

似乎只能这样
dim i as integer
dim CHnum, Ennum
for i=1 to len(text1.text)
    if asc(mid(text1.text,i,1))>255 then
        Chnum=chnum+1
    else
        Ennum=Ennum+1
    end if
next
msgbox "中文字符有:"& Chnum & "个" & vbcrlf & "英文有"& Ennum & "个"

Answer 1

To:hengxin54(火星)我统计的是英文单词的个数，不是字母的个数=======================================问题现在已经结决，谢谢各位！