394
続きです
> >395
すみません これだく書かせてください

Function CountWords(A)
A = A +""
For i = 1 to Len(A)
C = Mid(A,i,1)
If(C<>"")Then
F = 1 ' フラグです。
　　　　　　　　Else
If F = 1 Then X = X + 1
F =0
End If
Next i
CouWords = X
End Function
　これを実行しますと
　　　例、　A =”I love you. You love me.”
print CountWords(A)
6
となります。