Question

VB中如何将汉字转换为Unicode代码？

还有把汉字转化为ASCII码。要用什么函数？我忘了。
谢谢大家的回答。你们的方法都很好。我想问：既然能把汉字转换成ascii码。一定也可以把ascii码转化成汉字咯。请问要用什么函数？实在是不好意思，问题又多了一个，我保证不再加了。谁先回答了这个就选谁的答案吧。『前提是回答了上个问题』

Answer 1

回答补充： 用Chr()函数把ascii码转化成汉字
用ChrW()函数把Unicode码转化成汉字

（还有之前说的
AscW()函数返回值为负的时候，应加上65536 才得到汉字实际的Unicode码）

----------------------------------------------------------------------------------------

求汉字的Unicode代码 用AscW()函数
AscW("汉")=27721

求汉字的ASCII码 用Asc()函数 返回一个负数值
如Asc("汉")=-17734

PS:PS:改进了下 可转化多个汉字
在窗体上建三个text控件，
功能：text1中按个输入汉字后 text2中按个显示汉字的Unicode代码 text3中显示汉字的ASCII码

原代码如下：

Private Function change(s As String) As String
change = AscW(s)
If change < 0 Then
change = change + 65536
End If
End Function

Private Function change2(s As String) As String
change2 = Asc(s)
End Function

Private Sub Text1_Change()
For i = 1 To Len(Text1.Text)
s = s & change(Mid(Text1.Text, i, 1)) & " "
Next
Text2.Text = s

s = ""
For i = 1 To Len(Text1.Text)
s = s & change2(Mid(Text1.Text, i, 1)) & " "
Next
Text3.Text = s
End Sub

补充：a 的ASCII码是97
Asc函数返回的是字符串首字母的ASCII码（如字符串只一个字符，即返回该字符的ASCII码）

Asc 函数

返回一个 Integer，代表字符串中首字母的字符代码。

语法

Asc(string)

必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。

PSPS: VB里 目前我还没找到能将之转换成 把汉字转换成西欧文编码的函数 不敢断言没有（有估计也很难找 我搜了好多关键字都没找到）

还有 不只是遨游浏览器，一般的IE浏览器 也有此功能

查看——编码——其他——最下面那小三角号——西欧(ISO)

Answer 2

ASC(字符) 返回ascii码

给你一个函数
它会返回传入的字符串所有ASCII码
Function AscStr(ByVal txt As String) As String
Dim ascii As String
For i = 1 To Len(txt)
ascii = ascii & Asc(Mid$(txt, i, 1)) & "$"
Next
AscStr = ascii
End Function

Private Sub Form_Load()
MsgBox AscStr("我们是")
End Sub

如果你要对返回的结果进行处理

请用split函数
例如

Function AscStr(ByVal txt As String) As String
Dim ascii As String
For i = 1 To Len(txt)
ascii = ascii & Asc(Mid$(txt, i, 1)) & "$"
Next
AscStr = ascii
End Function

Private Sub Form_Load()
Dim a
a = Split(AscStr("这个是AscStr函数测试用例"), "$")
For i = 0 To UBound(a)
If a(i) <> "" Then
MsgBox Chr$(a(i)) & "(" & a(i) & ")"
End If
Next
End Sub

傲游应该是IE的核心吧 应该不是傲游的功能

Answer 3

AscW(字符) 返回ascii码

Option Explicit
Dim sTemp As String
Dim yTemp() As Byte
Private Sub Form_Load()
Text1 = "汉字转换为"
sTemp = Text1
yTemp = StrConv(sTemp, vbFromUnicode)
sTemp = StrConv(yTemp, vbUnicode)
Text2 = sTemp
End Sub
把ascii码转化成汉字
Chr 函数
返回 String，其中包含有与指定的字符代码相关的字符
Private Sub Command1_Click()
Text1 = Chr(-17734) '显示汉
End Sub

Answer 4

AscW(字符)

Answer 5

Aa0Aa1Aa2Aa3Aa4Aa5Aa6Aa7Aa8Aa9Ab0Ab1Ab2Ab3Ab4Ab5Ab6Ab7Ab8Ab9Ac0Ac1Ac2Ac3Ac4A