原文来源: 世纪家园
原文地址：http://www.sydjy.cn/bbs_list.asp?Id=2620

Private Sub Command1_Click()
    Dim s As String
    s = InputBox('请输入一个字符串')
    Print s & ' 有 ' & WordCount(s) & ' 个单词'
End Sub

Function WordCount(s As String) As Integer
    Dim cnt As Integer
    Dim c As String
    Dim InWord As Boolean
    cnt = 0
    InWord = False
    For n = 1 To Len(s)
        c = Mid(s, n, 1)
        If Not InWord And c <> ' ' Then
            cnt = cnt + 1
            InWord = True
&nb