VB中找出所有单词并统计单词个数单词之间以空格隔开。

2025-02-24 19:47:50

推荐回答（2个）

回答1：

如果是填空，下面这个是对的
Private Sub Command1_Click()
Dim s As String, i As Integer
Dim start As Integer
Dim n As Integer
s = Text1.Text
n = 0
For i = 1 To Len(s)
Do While Mid(s, i, 1) = "" And i <= Len(s)
i = i + 1
Loop
start = i
Do While Mid(s, i, 1) <> " " And i <= Len(s)
i = i + 1
Loop
If i <> start Then
List1.AddItem Mid(s, start, i - start + 1)
n = n + 1
End If
Next i
MsgBox "单词个数:" & n
End Sub

回答2：

根本不需要这么麻烦，不知道你的Text1里面的内容都是啥样子，能贴一下么？请追问，补充的话不再回复

VB中找出所有单词并统计单词个数 单词之间以空格隔开。

VB中找出所有单词并统计单词个数单词之间以空格隔开。