Option Explicit
Dim lettles As Integer
Dim space As Integer
Dim digit As Integer
Dim others As Integer
Dim add As String
Dim InputStr As String
Dim i As Integer
Dim CaseStr As String
Private Sub CmbStart_Click()

lettles = 0
space = 0
digit = 0
others = 0

InputStr = txtInput.Text
For i = 1 To Len(InputStr)
CaseStr = Mid(InputStr, i, 1)
If CaseStr >= "a" And CaseStr <= "z" Or CaseStr >= "A" And CaseStr <= "Z" Then
lettles = lettles + 1
ElseIf CaseStr = " " Then
space = space + 1
ElseIf CaseStr >= 0 And CaseStr <= 9 Then
digit = digit + 1
Else
others = others + 1

怎么不完整,END IF有的

Option Explicit
Dim lettles As Integer
Dim space As Integer
Dim digit As Integer
Dim others As Integer
Dim add As String
Dim InputStr As String
Dim i As Integer
Dim CaseStr As String
Private Sub CmbStart_Click()

lettles = 0
space = 0
digit = 0
others = 0

InputStr = txtInput.Text
For i = 1 To Len(InputStr)
CaseStr = Mid(InputStr, i, 1)
If CaseStr >= "a" And CaseStr <= "z" Or CaseStr >= "A" And CaseStr <= "Z" Then
lettles = lettles + 1
ElseIf CaseStr = " " Then
space = space + 1
ElseIf CaseStr >= 0 And CaseStr <= 9 Then
digit = digit + 1
Else
others = others + 1
End If
Next

实时错误13 类型不匹配

这里算长度的.
我上边的代码算出字母,空格,数字.
我打上这三个以外的就出错.就是其它字符..
ElseIf CaseStr >= 0 And CaseStr <= 9 Then
这是把数字算出来.
看来我表达看有问题了