问个怪问题：给你N个文件有全英文内容的有含中文字的，如何找出这些含中文字的文件？

Question

呵呵，突然想到的，怎么用VB实现啊？大家都来说 说

Answer 1

Private Sub Command1_Click()
    'a = "a12a2a2a2a2a124542"
    a = "1222212中12121212"    If LenB(StrConv(a, 128)) <> Len(a) Then        MsgBox "yes"
    Else
        MsgBox "no"
    End IfEnd Sub

Answer 2

另外一种方法,For i = 1 To Len(s)
    If Asc(Mid(s, i, 1)) < 0 Or Asc(Mid(s, i, 1)) > 255 Then MsgBox  "有中文"
Next