Private Sub Command1_Click() '导出GBK21003个汉字
Dim i, j As Integer
Dim Src As String
Src = ""
For i = 0 To 71 * 256 Step 256 '导出3755+3008=6763个汉字
For j = &HB0A1 + i To &HB0FE + i
If j < &HD7FA Or j > &HD7FE Then Src = Src & Chr(j)
Next j
Next i
For i = 0 To 31 * 256 Step 256 '导出6080个汉字
For j = &H8140 + i To &H81FE + i
If j <> &H817F + i Then Src = Src & Chr(j)
Next j
Next i
For i = 0 To 84 * 256 Step 256 '导出8160个汉字
For j = &HAA40 + i To &HAAA0 + i
If j <> &HAA7F + i Then Src = Src & Chr(j)
Next j
Next i
Text1 = Src
End Sub 作者: czswuyou 时间: 2014-2-12 09:37
导出的21003个汉字如下：