不是吧
汉字的码是两个字节,且前面一个字节必须大于0x80H
If (zz > &H80) Then '大于0x80H表示是汉字
Temp_count = zz
Temp_count = Temp_count * 256
Get #1, , zz '读低位
Biao_count = Biao_count + 1
Temp_count = Temp_count + zz
If (Temp_count <> 0) Then
Rec_data = Rec_data & Chr(Temp_count)
End If
Else '未大于0x80H表示是ASCII码
If (zz <> 0) Then
kk = Chr(zz)
Rec_data = Rec_data & kk
End If
End If
select case keyascii
case 13,27,8
case <0
'汉字
case else
select case chr(keyascii)
case 0 to 9'数字
case a to z ,A TO Z
case "*","+",....
case else
'....
end select
end select