如何判断一个字符串中是否含有中文？？谢谢帮忙！！！

Question

一个字符，一个汉字地取出来，查一下ASCII码值！

Answer 1

asc("阿") '<0
Asc() <0 的都是汉字

Answer 2

对不起，是不是汉字的asc码都小于零？

Answer 3

具体程序如下:
Private Sub Form_Load()
    Dim strWord As String
    strWord = "i 爱 you"
    For i = 1 To Len(strWord)
        If Asc(Mid(strWord, i, 1)) < 0 Then
            Debug.Print Mid(strWord, i, 1)
        End If
    Next i
End Sub

Answer 4

If LenB(StrConv(tmpStr, vbFromUnicode)) <> Len(tmpStr) ThenelseEnd If

Answer 5

If LenB(StrConv(tmpStr, vbFromUnicode)) <> Len(tmpStr) Then
 '有中文
else
 '无中文
End If