VB的问题。求助

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:12:39
试编写一个程序，实现如WORD软件中的字数统计功能，即统计一段文字里面的字符个数（不含空格）。

提示：利用字符串函数。LEN（S）可计算出包括空格的总字符数；MID（S，I，1）可以截取字符串中的字符。用循环+条件语句来做。

sub scount()
dim s as string
s=text1.text
dim s1 as string
s1=replace(s," ","")
msgbox len(s1)
end sub
上面这段代码就可以完成你说的那个要求.

sub count()
dim sum as integer
dim a as string
dim i as integer
sum=0
for i=1 to len(text1.text)
a=mid(text1.text,i,1)
if a<>"" then sum=sum+1
next
msgbox sum
end sub