判断字符是否是GB2312-80的汉字。

　　首先，先介绍GB2312-80编码。参看文章“GB2312编码”。以下内容来自那篇文章。

　　GB2312或GB2312-80是一个简体中文字符集的中国国家标准，全称为《信息交换用汉字编码字符集--基本集》，由中国国家标准总局发布，1981年5月1日实施。GB2312编码通行于大陆；新加坡等地也采用此编码。几乎所有的中文系统和国际化的软件都支持GB2312。

　　GB2312标准共收录6763个汉字，其中一级汉字3755个，二级汉字3008个；同时，GB2312收录了包括拉丁字母、希腊字母、日文平假名及片假名字母、俄罗斯语西里尔字母在内的682个全形字符。

　　GB2312的出现，基本满足了汉字的计算机处理需要，它所收录的汉字已经覆盖99.75%的使用频率。

　　对于人名、古汉语等方面出现的罕用字，GB2312不能处理，这导致了后来GBK及GB18030汉字字符集的出现。

分区表示
　　GB2312中对所收汉字进行了“分区”处理，每区含有94个汉字/符号。这种表示方式也称为区位码。

　　　　01-09区为特殊符号。
　　　　16-55区为一级汉字，按拼音排序。
　　　　56-87区为二级汉字，按部首/笔画排序。
　　　　10-15区及88-94区则未有编码。

　　　　举例来说，“啊”字是GB2312之中的第一个汉字，它的区位码就是1601。

　　字节结构
　　在使用GB2312的程序中，通常采用EUC储存方法，以便兼容于ASCII。

　　每个汉字及符号以两个字节来表示。第一个字节称为“高位字节”，第二个字节称为“低位字节”。“高位字节”使用了0xA1-0xF7(把01-87区的区号加上0xA0)，“低位字节”使用了0xA1-0xFE(把01-94加上0xA0)。例如“啊”字在大多数程序中，会以0xB0A1储存。（与区位码对比：0xB0=0xA0+16,0xA1=0xA0+1）。

　　在实际的运用中，有时会要求判断一个中文字符是否是GB2312中的中文字符。

　　在VB2005中，tB = System.Text.Encoding.GetEncoding("gb18030").GetBytes(S)，表示将字符S的内码放到tB这个字节数组里。其中gb18030是向下兼容gb2312。

　　于是，编写了一个函数，用来判断字符是否是gb2312的中文字符。用的是VB2005。代码格式修正于2012年1月6日。

　　

Public Function IsGB2312( ByVal S As String) As Boolean
　　 If S Is Nothing Then Return False
　　 If S = "" Then Return False
　　 If S.Length > 1 Then S = S.Substring(0, 1)
　　 Dim tB() As Byte
　　 Try
　　　　tB = System.Text.Encoding.GetEncoding( "gb18030").GetBytes(S)
　　　　 If tB.Length = 2 Then
　　　　　　 If tB(0) >= 176 AndAlso tB(0) <= 247 AndAlso tB(1) >= 161  AndAlso tB(1) <= 254 Then
　　　　　　　　 If tB(0) = 215 AndAlso tB(1) > 249 Then
　　　　　　　　　　 Return False
　　　　　　　　 Else
　　　　　　　　　　 Return True
　　　　　　　　 End If
　　　　　　 Else
　　　　　　　　 Return False
　　　　　　 End If
　　　　 Else
　　　　　　 Return False
　　　　 End If
　　 Catch
　　　　 Return False
　　 End Try
End Function

 　　注：在VB2005中，ASC函数也能返回字符的内码，不过返回值是Integer型的。而且由于和早期的VB版本兼容，返回值还进行了一定的处理。早期的VB中Integer用的是2个字节，那么，汉字的内码也是两个字节，这两个字节组成一个Integer型的变量，由于第一个字节的最高位一定是1，所以，早期的VB的汉字的内码是一个小于0的整数。而VB2005的Integer型的变量是4个字节。汉字的内码是两个字节，转到Integer型，填充到后面两个字节，前面两个字节用0填充，这样一来，VB2005的汉字内码应该是一个正数，但为了和早期的兼容，VB2005做了一定的处理，用了一个公式256X+Y-65536来计算汉字的内码，其中X是内码的第一个字节，Y是内码的第二个字节。