ascii码在vb里的存储类型

ascii码在vb里的存储类型是哪个??

---

VB code:
Private Sub Form_Load()
MsgBox TypeName(Asc("a"))
End Sub

---

Byte类型

---

最后我教你一个Ascii和UniCode的人工转换办法。

以4个空格为例：

Ascii编码：

20 20 20 20

UniCode编码：

20 00 20 00 20 00 20 00

产生字符串“1234”的程序：

Ascii编码：

Dim Bytes() As Bytes
For x =0 To 3
  i = x
  Bytes(i) = 49 + x
Next

这个时候，Bytes()是Ascii编码的字符串“1234”。但你想转换成VB下的String，需要这样。
String1 = Bytes()
Debug.print String1 '显示乱码，因为String1是Ascii编码，而不是UniCode编码。

String2 = StrConv(Bytes(), vbUniCode)
Debug.print String2 '显示"1234"

UniCode编码：

Dim Bytes() As Bytes
For x =0 To 3
  i = x * 2
  Bytes(i) = 49 + x
Next

String1 = Bytes()
Debug.print String1 '显示"1234"

---

学习

---

小仙妹