Question

用vb里的len语句统计text1中的字数

文字数量可用len函数获取，另外需要排除夹在文字中的起换行作用的chr(13)和chr(10)两个符号，使用循环语句用mid函数逐个统计

Answer 1

如果是仅仅排出换行符，可以用以下办法快速达到要求
stri=text1.text
stri=replace(stri,chr(10),"")
stri=replace(stri,chr(13),"")
text1的长度=len(stri)

追问

把这个写道text下面吗

追答

把这段代码写到你要求统计字数的过程中，如：
private sub form_click()
stri=text1.text
stri=replace(stri,chr(10),"")
stri=replace(stri,chr(13),"")
s=len(stri)
print s
end sub

追问

但是还是不能排除空格和回车