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

你输入了中文？

汉字和数字能比麽？

[此贴子已经被作者于2007-9-8 22:18:17编辑过]

晕 不知道他比较什么 比较字符范围用ASCII码啦

CaseStr >= 0 And CaseStr <= 9 比较的是字符吗? 字符跟数字比较?

[此贴子已经被作者于2007-9-8 22:24:28编辑过]

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

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
自己明明会～不知道为什么你要变

好像明白了。谢谢支持。
我是初学者。

初学者不是不动脑的理由。

你这样说就不对了,我有看了很久才发上来的.我实在是找不到才发的.
怎么能这样说呢.

建议你买本书。

什么书好呢