UC知道vb问题，清高手指点
来源：百度知道 编辑：UC知道 时间：2024/06/08 14:38:11
这是我写的一个简单的字符统计工具，运行的时候，他总是提示“next 没有 for ”不致到我错在哪里了， 清高手指点！
Private Sub Command1_Click()
catchstr = ""
catch_1 = ""
letters = 0
comma = 0
spaces = 0
number = 0
catchstr = Trim(Text1.Text)
For catch_1 = 1 To Len(catchstr)
Select Case catch_1
Case 0 To 9
number = number + 1
Case A To Z, A To Z
letters = letters + 1
Case " "
spaces = spaces + 1
Next
End Sub
Private Sub Command1_Click()
catchstr = ""
catch_1 = ""
letters = 0
comma = 0
spaces = 0
number = 0
catchstr = Trim(Text1.Text)
For catch_1 = 1 To Len(catchstr)
Select Case catch_1
Case 0 To 9
number = number + 1
Case A To Z, A To Z
letters = letters + 1
Case " "
spaces = spaces + 1
Next
End Sub
你的select语句没有结束。
在next前面加一个end select就可以了
代码改成：
Private Sub Command1_Click()
catchstr = ""
catch_1 = ""
letters = 0
comma = 0
spaces = 0
number = 0
catchstr = Trim(Text1.Text)
For catch_1 = 1 To Len(catchstr)
Select Case catch_1
Case 0 To 9
number = number + 1
Case A To Z, A To Z
letters = letters + 1
Case " "
spaces = spaces + 1
end select
Next
End Sub
next 前面少end select