Question

使用VB在文本框中输入一行英文句子,统计其中的单词个数?

速度啊^速度……
谢谢

Answer 1

private sub Command1_Click()
n=0
strold=" "
s=text1.text
for i = 1 to len(s)
strnew=ucase(mid(s,i,1))
if (strold<"A" or strold>"Z") and (strnew>="A" and strnew<="Z") then
n=n+1
end if
strold=strnew
next i
print "单词个数";n
end sub