Question

关于VB的asc和chr函数

x=214
print x
print asc(chr(x))
print x
显示结果是:
214
0

为什么第二次显示是0呢，是chr函数有问题还是asc函数有问题
x范围是0~255都可以，我看了下函数说明

Answer 1

1到31之间的是控制字符,
不能在屏幕上显示.
比如键盘上的向上向下向左向右,
回车换行,
tab键,
esc键等在ascii码中均有对应.
129-255是扩充字符集,
有一些非拉丁文字母的字母,
好像是希腊字母嘛.
但是它们其实也是能显示的.
因为汉字是双字节字符,
所以不要用asc函数,
用ascw函数才能返回正确的值.
你可以自己试试asc和ascw之间的区别.

Answer 2

答案很简单，就是 Chr(214)=Chr(0) 的了。
你可以输入下面的代码试试：

Dim a As Integer
For a = 1 To 255
If Chr(a) = Chr(0) Then Print a
Next a

结果是从129到254都会出现这种结果。
(我发现这个的时候是我做XOR加密文件程序的时候。)

Answer 3

chr(x)的作用是返回x代表的asc码。asc码是0到127，所以当x>=128，chr(x)=0

Answer 4

x>128

Answer 5

　　asc函数
　　用途：将全角字符转换为半角字符[1] 。
　　语法：ASC(text)
　　参数：Text 要进行半角转换的文本。
　　说明：公式将全角字母转化为半角字母，若不包含全角字母则保持不变。
　　实例：如果A1=电脑EXCEL，则公式“=ASC(A1)”返回电脑EXCEL。
　　vb代码中，忽然遇到ASC（"8"）了，查询了好半天，才搞明白原来是取数字8的ASCII码。
　　

　　chr函数　　
　　定义和用法：
　　chr()[1] 函数从指定 ASCII 值返回字符。
　　ASCII 值可被指定为十进制值、八进制值或十六进制值。八进制值被定义为带前置 0，十六进制值被定义为带前置 0x。
　　语法：chr(ascii)

　　参数：ascii

　　描述：必需。ASCII 值
　　实例
　　从不同 ASCII 值返回字符：
　　<?phpechochr(52)."<br>";//Decimalvalueechochr(052)."<br>";//Octalvalueechochr(0x52)."<br>";//Hexvalue?>