扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者：builder.com.cn 2007年4月5日
关键字：
Private Sub CountWords()
Dim strText As String = "It's a wonderful world"
Dim iCount As Integer
Do While (strText.IndexOf(Space(2)) >= 0)
strText = strText.Replace(Space(2), Space(1))
Loop
iCount = Split(strText, Space(1)).Length
MsgBox(iCount.ToString())
End Sub
如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。
京公网安备 11010802021500号