高分悬赏图片文件名（汉字）批量转换成 unicode编码
用Chr()函数把ascii码转化成汉字用ChrW()函数把Unicode码转化成汉字（还有之前说的AscW()函数返回值为负的时候，应加上65536 才得到汉字实际的Unicode码）----------------------------------------------------------------------------------------求汉字的Unicode代码 用AscW()函数AscW("汉")=27721求汉字的ASCII码 用Asc()函数 返回一个负数值如Asc("汉")=-17734PS:PS:改进了下 可转化多个汉字在窗体上建三个text控件，功能：t...全部
用Chr()函数把ascii码转化成汉字用ChrW()函数把Unicode码转化成汉字（还有之前说的AscW()函数返回值为负的时候，应加上65536 才得到汉字实际的Unicode码）----------------------------------------------------------------------------------------求汉字的Unicode代码 用AscW()函数AscW("汉")=27721求汉字的ASCII码 用Asc()函数 返回一个负数值如Asc("汉")=-17734PS:PS:改进了下 可转化多个汉字在窗体上建三个text控件，功能：text1中按个输入汉字后 text2中按个显示汉字的Unicode代码 text3中显示汉字的ASCII码原代码如下：Private Function change(s As String) As Stringchange = AscW(s)If change < 0 Thenchange = change + 65536End IfEnd FunctionPrivate Function change2(s As String) As Stringchange2 = Asc(s)End FunctionPrivate Sub Text1_Change()For i = 1 To Len(Text1。
Text)s = s & change(Mid(Text1。Text, i, 1)) & " "NextText2。Text = ss = ""For i = 1 To Len(Text1。Text)s = s & change2(Mid(Text1。
Text, i, 1)) & " "NextText3。Text = sEnd Sub补充：a 的ASCII码是97 Asc函数返回的是字符串首字母的ASCII码（如字符串只一个字符，即返回该字符的ASCII码） Asc 函数返回一个 Integer，代表字符串中首字母的字符代码。
语法Asc(string)必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。
PSPS: VB里 目前我还没找到能将之转换成 把汉字转换成西欧文编码的函数 不敢断言没有（有估计也很难找 我搜了好多关键字都没找到）还有 不只是遨游浏览器，一般的IE浏览器 也有此功能查看——编码——其他——最下面那小三角号——西欧(ISO)。收起
