UC知道VB循环FOR问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 16:05:23
请帮我看看以下程序，我想用FOR语句循环扫描出TEXT中一共有几个单词 我的思路是每个单词前都是存在空格的，我是这样写的
Private Sub Command1_Click()
Dim shu As String
shu = Text1.Text
For i = 1 To Len(shu)
c = Mid(shu, i, 1)
If c = "" Then
n = n + 1
End If
Next i
Print "一共有" & n; "个单词！"
Print c
End Sub
但运行有问题，请高手看看
Private Sub Command1_Click()
Dim shu As String
shu = Text1.Text
For i = 1 To Len(shu)
c = Mid(shu, i, 1)
If c = "" Then
n = n + 1
End If
Next i
Print "一共有" & n; "个单词！"
Print c
End Sub
但运行有问题，请高手看看
Private Sub Command1_Click()
Dim shu As String
Dim n As Integer
shu = Text1.Text
For i = 1 To Len(shu)
c = Mid(shu, i, 1)
If c = " " Then
n = n + 1
End If
Next i
If c <> " " Then n = n + 1
Print "一共有" & n & "个单词！"
Print c
End Sub
msgbox ubound(split(text1.text))+1