使用VB在文本框中輸入一行英文句子,統計其中的單詞個數?

題目：

使用VB在文本框中輸入一行英文句子,統計其中的單詞個數?
速度啊^速度……
謝謝

解答：

private sub Command1_Click()
n=0
strold=" "
s=text1.text
for i = 1 to len(s)
strnew=ucase(mid(s,i,1))
if (strold"Z") and (strnew>="A" and strnew