麻烦MOZ大哥帮我解释下：
我那程序的想法是这样判断：如果找到了一个字符是空格，并且前一个字符不是空格，那么字数+1，错在哪了啊……你的程序我研究下先，谢谢了。

1.　如果找到了一个字符是空格，并且前一个字符不是空格
　　应该是：　 
　　IF MID$(str1$, i, 1) = " " AND MID$(str1$, i - 1, 1) <> " " THEN num = num+1
2.　因为要考虑到假如字符串不是以空格结束的话，会少计一个单词，所以要在原字符串后面添加一下空格。

应该改成这样子：

CLS
INPUT "Please input a string:"; str1$
[color=ff00ff]str1$=str1$+" "[/color]
FOR i = 2 TO LEN(str1$)
    IF MID$(str1$, i, 1) = " " AND MID$(str1$, i - 1, [color=ff00ff]1[/color]) <> " " THEN num = num+1
NEXT i
PRINT "The word is :"; num

呵呵，谢谢  末子了，给不成你分了啊，再见。