关于vb的一个问题。

Question

IF ASC（MID(str,i,1)）<0  THEN
   汉字

Answer 1

那么怎么依次判断一个string中那些是汉字，那些是英文？有无例子？多谢

Answer 2

Public Function ChineseAmount(源字符串 As String) As Long
'计算字符串中汉字的个数。
Dim Count As Long
ChineseAmount = 0
For Count = 1 To Len(源字符串)
    If Asc(Mid(源字符串, Count, 1)) < 0 Then
       ChineseAmount = ChineseAmount + 1
    End If
Next Count
End Function

Answer 3

使用StrConv转换成unicode后计算长度