VB 判断字符串中汉字个数，VB 计算字符串中汉字个数，VB 计算字符串汉字个数，VB 判断字符串汉字个数，VB 字符串中汉字个数，VB 字符串汉字个数，VB 计算汉字个数，VB 判断汉字个数，VB 汉字个数，VB 汉字。

VB 判断字符串中汉字的个数，VB 计算字符串中汉字的个数：

Public Function CLen(S As String) As Integer                                    '判断汉字个数
    Dim I, Tmp
    For I = 1 To Len(S)
        Tmp = Mid(S, I, 1)
        If Asc(Tmp) < 0 Then CLen = CLen + 1
    Next
End Function

使用示例：

MsgBox "一共有 " & CLen("a啊b喔c哦d咦e呜f喻g") & " 个汉字!", vbInformation, "提示:"