用什么函数判断是否为汉字

Question

RT，谢谢。

Answer 1

Dim c As String
    
    c = "阿"
    
    If c > "~" Then
     MsgBox "汉字"
    ElseIf IsNumeric(c) Then
     MsgBox "数字"
    ElseIf (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then
     MsgBox "英文"
    End If

Answer 2

不用这么麻烦啦,汉字的asc()值是<0的.
 asc("汉") <0  '表达式为真

Answer 3

或者直接判断字符编码范围在十六进制
&H4e00 与 &H9fa5之间的，就是汉字

Answer 4

Private Sub Command1_Click()
   Dim i, t
     
     For i = 1 To Len(Text1.Text)
     t = Mid(Text1.Text, i, 1)
     If Asc(t) < 0 Then ' 在VB中，中文的ASCII值总是负值
        MsgBox t, 0, "汉字"
     End If
     NextEnd Sub

Answer 5

判断字符编码范围在十六进制
&H4e00 与 &H9fa5之间，
代码写出来好不好，谢谢。
我就是有个文件，我想把其中的汉字打出来。标点符号有，日文没有。