如何用VB代码求汉字Ascii值

来源：百度知道编辑：UC知道时间：2024/06/15 03:03:36

用这个asc()函数好像只能求一个字节的符号。如果拿去求汉字的话会出现负的值。
大家把答案写清楚点，我是初学者。还有你们最好先用&#+Ascii值试验下行不行？
2楼的比如说&# 30334 百 &# 24230 度 &# 33150腾 &# 35759 讯先把中间的空格去掉

ascii码？国标码我听过还没听过汉字有ascii的

在用绝对值函数abs()去绝对值

Private Sub Command1_Click()
Text1 = Asc("汉") '显示-17734
Text2 = Chr(Val(Text1)) '显示汉
End Sub

是负的没错!
如果你非要正的,可以这样
dim ascii as long
ascii=clng(asc("正")) and &hffff&