回 帖 发 新 帖 刷新版面

主题:发现一个神奇的事情

Private Sub Command1_Click()
Dim s() As Byte
ReDim s(1)
s(0) = 221
s(1) = 0
Dim cs As String
cs = s
Debug.Print Asc(cs), Asc("Y"), cs
MsgBox cs
If cs = "Y" Then MsgBox "ok"

Dim t() As Byte
t = cs
Debug.Print t(0); t(1)
Debug.Print
End Sub

把这段代码运行一下,你会发现很神奇!!

回复列表 (共5个回复)

沙发

板凳

没有运行,如何神奇?

3 楼

楼主是说

给数组赋值,并将数组作为一个变体变量后,这个变体变量可以输出为字符、也可以用asc函数验证其机内交换码,但不能用字符来判断。最后将变体变量重新赋给数组证实还是原来的数组

4 楼

哦,不是变体变量,而是字符串变量

5 楼

Debug.Print Asc(cs), Asc("Y"), cs

改为 

Debug.Print AscW(cs), AscW("Y"), cs

你就会发现这个不是你看到的Y,它是宽字节的Y ,就是不一样的字符串了,这个没有什么神奇的

我来回复

您尚未登录,请登录后再回复。点此登录或注册